Zeilenumbrüche entfernen mit VBS

[thomson]

Hallo,
will ein Programm schreiben, das mir meine Zeilenumbrüche entfernt und aus Kommas Leerzeichen macht hab aber keine Ahnung wie das geht!

 

[Shakie]

Das geht mit der Replace-Funktion:

    DeinText = Replace$(DeinText, vbCrLf, " ")
    DeinText = Replace$(DeinText, ",", " ")

Oder auch alles in einer Zeile:

DeinText = Replace$(Replace$(DeinText, ",", " "), vbCrLf, " ")

Die VB.Konstante VbCrLf steht für das Zeilenumbruchzeichen.

 

[thomson]

?

Das Problem ist aber VBS hat kein replace

 

[Shakie]

Ups, sorry, das habe ich überlesen. Leider habe ich dann keine Lösung für dich.
Obwohl, gibt es eine InStr-Funktion?

 

[Retlaw]

Mit den Stringfunktionen lässt sich eine replace-Funktion nachbauen:

InStr  Sucht nach Text
mid    Gibt einen Teil eines Textes zurück
left   Gibt den linken Teil eines Textes zurück, ab der angegebenen Position
right  Das Gleiche wie left nur von rechts.