Zeilenumsprung umgehen?

[pking]

Hallo,

Hab eine Datei angehängt wenn ich die mit Visualbasic auslesen möchte also nur ein bestimmtes Wort dann schreibt der mir alles mit weil er [] diese nicht als zeilenumsprung mit
Open(... erkennt!

Was kann ich dagegen machen?

ps: wenn die datei bei euch zeilenumsprung hat dann mit notepad öffnen.

mfg
pking

 

[Alex F.]

Ich hab die Datei mal mit dem FileSystemObject ausgelesen

Bsp:

    Dim fso As FileSystemObject
    Dim x   As TextStream
    Dim s   As String
    Dim s2  As String
    Set fso = New FileSystemObject
    
    Set x = fso.OpenTextFile(File1.Path & "\" & File1.FileName, ForReading)
    
    While Not x.AtEndOfStream
        s2 = x.ReadLine
        s = ""
        While Len(s2) > 0
            s = s & Mid(s2, 1, 1)
            s2 = Mid(s2, 2, Len(s2) - 1)
        Wend
        Text1 = Text1 + s + vbCrLf
    Wend

hier werden die Zeilen einwandfrei erkannt.

Bem: die innere Schleife hatte ich gebastelt um zu prüfen was für ein Zeichen in deiner Textdatei ist aber beim ersten durchsteppen sah ich das ich diese nicht brauchte ;-)

Wenn du es so machst kannst du dir die innere Schleife sparen und in S2 steht immer Zeilenweise drin was du brauchst


Gruß bb