Office: Wildcards in Instr-Suchstring

Hallo,
in Ergänzung zu diesem thread Leerzeichen abschließend im String noch ein weiteres Problem :

Wie finde ich Kommas ohne Leerzeichen?
Folgender Mustertext:
„Im Gepäck fanden sich Angeln,Farbeimer, Steine und viel Zubehör”
Wie bekomme ich das Leerzeichen vor den Farbeimer (und sagt mir nicht, ich soll nach dem großen F suchen )
Gruß
Doming

 

Hi, das nicht, aber Du kannst doch das auf dem Komma folgende Zeichen auf ungleich Leerzeichen prüfen...

 

So sieht jetzt meine Lösung aus, ich gehe den String einfach Schritt für Schritt durch.
Hätte man natürlich auch mit Instr lösen können, aber so gibt es kein Problem damit, dass sich die Textlänge beim Bearbeiten ändert,.

Code:

If InStr(Txt, ",") Then
    Do
        a = a + 1
        If Mid(Txt, a, 1) = "," Then
            If Mid(Txt, a + 1, 1) <> " " Then Txt = Left(Txt, a) & " " & Right(Txt, Len(Txt) - a)
            If Mid(Txt, a - 1, 1) = " " Then Txt = Left(Txt, a - 2) & Right(Txt, Len(Txt) - a + 1)
        End If
    Loop Until a >= Len(Txt)
End If

 

Hi Doming, hier noch eine Alternative:

txt = replace(txt, “,";", ")
txt = replace(txt, " ";" ") '2 Leerzeichen -> 1 Leerzeichen


durch das erste replace könnte es sein, daß irgendwo dann ein Beistrich mit zwei Leerschritten entsteht, was mit dem zweiten replace wieder korrigiert wird

 

Hallo,
die Grundidee ist ok, aber so funzt das nicht. (Syntax)
Habe es mal in eine Funktion gepackt:

Code:

Sub aufruf()
     Debug.Print komma_mit_blank_formatieren ("Hund,Katze, Maus") ' Ergebnis ist "Hund, Katze, Maus"
End Sub

Public Function komma_mit_blank_formatieren(Eingabe As String)
  Eingabe = Replace(Eingabe, ", ", ",")
  Eingabe = Replace(Eingabe, ",", ", ")
  komma_mit_blank_formatieren = Eingabe
End Function

 

uuups, da hat sich ein dämlicher ; eingeschlichen - sollte ein Beistrich sein

 

Das Beste ist, Codezeilen in Code-Tags zu setzen. Dann ist das auch leserlicher.

 

bitte um Nachsicht, bin neu hier