XProfan

Italia

Georg

Ciao,

ich lese aus einer Datenbank Text ein, der zeilenumsprünge enthält. Den Zeilenumsprung würde ich gern durch ein beliebiges Zeichen ersetzen. Der String soll also dann keinen Zeilenumsprung mehr enthalten.
Wie geht das? Habe nach ewiger Cerca und Probiererei nichts gefunden.

Georg

18.03.2014 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

H.Brill

Was sind das per Zeilenumsprünge ?
Normale, wie in einem Editor (Chr$(13) + Chr$(10)) ?

Wenn ja, geht das doch recht einfach :

Kompilieren Markieren Separieren

Declare datei$, zeile$, bereich#
Cls
datei$ = "F:\\test.csv"
Dim bereich#, FileSize(datei$) + 2' wg. Eof()
ReadText bereich#, datei$
zeile$ = String$(bereich#, 0)
zeile$ = Translate$(zeile$, Chr$(13) + Chr$(10), "|")
Print zeile$
Waitkey
Dispose bereich#
End

Hab jetzt hier <ALT + 124> | als Ersatzzeichen genommen.
Kommt jetzt drauf an, in was dein Text eingelesen wurde.
Falls in un String-Variable, reicht Translate$() aus.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

18.03.2014 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione