XProfan

Deutsch

Georg

Hallo,

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 Suche und Probiererei nichts gefunden.

Georg

18.03.2014 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

H.Brill

Was sind das für 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 eine 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 zitieren Zeilenweise zitieren