nicht angemeldet
Zeilenumruch rausfiltern...
Hallo !
Ich möchte aus einem String, der an ein ASP-Programm geschickt wird, alle Zeilenumbrüche herausfiltern, und durch Leerzeichen ersetzen.Der übergebene String soll ohne Umbrüche in eine txt Datei, also in eine Zeile geschrieben werden.
Eine Routine die irgendein Zeichen in ein anderes umwandelt hab ich mir schon gestrickt, ich müsste jetzt nur wissen, wie ich mit "INSTR(string,<RETURN>)" halt eben das Return erkenne.
Früher wars bei Basic glaub ich so : "pos=instr(string,chr$(13)" funzt aber (erwartungsgemäss) hier nicht.
So sieht mein "Filter und Ersetzungsscript aus" :
Pos=INSTR(string,<RETURN>)
WHILE Pos <> 0
neu=LEFT(string,Pos-1)+" "
rest=MID(string,Pos+1)
string=neu+rest
Pos=INSTR(string,<RETURN>)
WEND
Gruß
Holger
-
Hallo !
Ich möchte aus einem String, der an ein ASP-Programm geschickt wird, alle Zeilenumbrüche herausfiltern, und durch Leerzeichen ersetzen.Der übergebene String soll ohne Umbrüche in eine txt Datei, also in eine Zeile geschrieben werden.
Eine Routine die irgendein Zeichen in ein anderes umwandelt hab ich mir schon gestrickt, ich müsste jetzt nur wissen, wie ich mit "INSTR(string,<RETURN>)" halt eben das Return erkenne.
Früher wars bei Basic glaub ich so : "pos=instr(string,chr$(13)" funzt aber (erwartungsgemäss) hier nicht.So sieht mein "Filter und Ersetzungsscript aus" :
Pos=INSTR(string,<RETURN>)
WHILE Pos <> 0
neu=LEFT(string,Pos-1)+" "
rest=MID(string,Pos+1)
string=neu+rest
Pos=INSTR(string,<RETURN>)
WENDGruß
HolgerHallo,
vie einfacher geht's mit: TextNeu = Replace(Text, Chr(13), " ")
Ersetzt ebenfalls alle Zeilenumbrüche durch Leerzeichen, ist aber bedeutend schneller.Schau doch mal bei http://www.asp-database.de vorbei.
Tschau, Stefan
-
vie einfacher geht's mit: TextNeu = Replace(Text, Chr(13), " ")
Ersetzt ebenfalls alle Zeilenumbrüche durch Leerzeichen, ist aber bedeutend schneller.Schau doch mal bei http://www.asp-database.de vorbei.
Tschau, Stefan
Ja Priiima ! Danke !
Holger
-