Office: (Office 2003) Replace mit mehreren Zeichen in einem String

GTRDRIVER · 10. Dezember 2019

Hallo zusammen

ich hab grad nen Brett vor dem Kopf - evtl kann mir mal jemand helfen das zu entfernen...

Ich hab hier eine String in dem Z und Y vertauscht sind.

Wie kann ich alle Z in Y und gleichzeitig alle Y in Z ersetzen ?

Mit Replace geht das ja nur mit einem und wenn z.b: alle Y in Z ersetzt sind kann ich ja nicht mehr alle Z in Y ersetzten ....

Stehe grad vollkommen neben mir ...

:)

ebs17 · 12. Dezember 2019

Wenn Du auf Replace fixiert bist, brauchst Du drei nacheinander folgende Schritte: Setzen eines Wertes auf Ersatzwert, Ersetzen des einen, Ersetzen des anderen.

Wenn man den konkreten Fall in den möglichen Varianzen sehen könnte, wäre vielleicht ein Nachdenken über Alternativen möglich.

GTRDRIVER · 12. Dezember 2019

Hallo

danke für deine Nachricht.

An den ERsatzwert habe ich auch schon gedacht - ich weiß nur nicht was da ich nicht weiß welche welche Zeichen hier vorkommen können - wenn dann müsste man das in was abstraktes (ersatzwert) ersetzten...

Alternativ habe ich daran gedacht den String zeichen für Zeichen zu durchsuchen und zu ersetzten - dann sollte das kein Problem sein oder ?

ebs17 · 12. Dezember 2019

| ... Pipe dürfte recht selten in deutschen Zeichenketten vorkommen.

zeichen für Zeichen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Schleifen gehen auch immer (falls einem nicht schnell schwindelig wird).

GTRDRIVER · 12. Dezember 2019

Ich habe jetzt eine kleine sub gebaut mit ner Schleife das klappt super ..

Danke

elmar · 7. Januar 2021

von GTRDRIVER

Ich habe jetzt eine kleine sub gebaut mit ner Schleife das klappt super ..

Danke
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wäre auch für andere hier von Interesse... Zeigst Du uns das Meisterwerk? *tausch

ebs17 · 12. Dezember 2019

Bei Einzelzeichen im String würde man sicher statt der Replace-Anweisung die Mid-Anweisung verwenden (wegen des CO2-Abdrucks).

GTRDRIVER · 12. Dezember 2019

Hallo

hört sich jetzt etwas sakastisch an :-)

Nein das ist sicher kein MEisterwerk eher ein gefrickel aber es funktioniert ..

In der Tat lese ich mit len die Länge des Strings und lasse dann mit mid eine schleife laufen die jedes zeichen aufruft prüft und ggfs ersetzt - dann den String wieder zusammenbaut.

Ist eigentlich kein hexenwerk und erstaunlich performant.

readonly · 12. Dezember 2019

Hallo!

von GTRDRIVER

An den ERsatzwert habe ich auch schon gedacht - ich weiß nur nicht was da ich nicht weiß welche welche Zeichen hier vorkommen können - wenn dann müsste man das in was abstraktes (ersatzwert) ersetzten...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das chr(0)-Zeichen kommt eher selten in Tabellenfeldern vor (außer in Tabellenfeldern fester Länge) und böte sich daher an (Beispiel-Auswahlabfrage in SQL-Ansicht):
Code:

SELECT
Originaltext,

Replace(Replace(Replace("" & [Originaltext],"Y",Chr(0),1,-1,0),"Z","Y",1,-1,0),Chr(0),"Z") AS a,

Replace(Replace(Replace(Replace(Replace(Replace("" & [Originaltext],"Y",Chr(0),1,-1,0),"Z","Y",1,-1,0),Chr(0),"Z"),"y",Chr(0),1,-1,0),"z","y",1,-1,0),Chr(0),"z") AS b

FROM
T1;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

a = nur YZ-Großbuchstaben tauschen, b = YZ-Groß- und Kleinbuchstaben umtauschen (getrennt).
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~
Und nachfolgend auch noch eine Möglichkeit mit einer Funktion (VBA-Code):
Code:

Public Function fctYZ(ByRef varSourcetext As Variant) As Variant

' Y -> Z, Z -> Y, y -> z, z -> y (Zwischen Groß-/Kleinschreibung wird unterschieden)

Dim i As Long

fctYZ = varSourcetext

For i = 1 To Len("" & varSourcetext)
If Mid$(varSourcetext, i, 1) = "Y" Then
Mid$(fctYZ, i, 1) = Chr$(Asc(Mid$(varSourcetext, i, 1)) + 1)
ElseIf Mid$(varSourcetext, i, 1) = "Z" Then
Mid$(fctYZ, i, 1) = Chr$(Asc(Mid$(varSourcetext, i, 1)) - 1)
End If
Next i

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2003) Replace mit mehreren Zeichen in einem String

Replace mit mehreren Zeichen in einem String

Replace mit mehreren Zeichen in einem String

Replace mit mehreren Zeichen in einem String

Replace mit mehreren Zeichen in einem String

Replace mit mehreren Zeichen in einem String - Similar Threads - Replace mehreren Zeichen

Daten Einlesen aus mehre Zellen in Verbindung einer Verbundene Zelle

Arbeitszeiten aus mehreren Tabellenblätter

Ein Makro für mehrere Register

Replace a shape in a SmartArt graphic

Replace-Funktion (Ersetzen)

VBA Replace - Ich weiß mir keinen Rat mehr....

"find and replace" mit "for-Schleife" kombinieren