Clever-Excel-Forum

Hallo in die Runde, in einer *.csv-Datei von Thingspeak werden die Zeilen leider nicht mit einem Komma abgeschlossen. In Notepad++ geöffnet zeigt sich:

[attachment=49647]

das jede Zeile mit LF abgeschlossen wird.
Wie kann das Zeichen gegen

Code:
',' + vbCrLf

ausgetauscht werden?

Code:
debug.Print(Instr(Inhalt,vbLF))

 0

VBA findet das Zeichen nicht, was mach ich da falsch?
Es ist auch ausreichen wenn die Zeile mit einem Komma abgeschlossen wird, aber Replace akzeptiert keine Wildcard.

[attachment=49645]

Mein Vorschlag

Code:
Option Explicit

Function getTextfile(ByVal fileName As String) As String

    Dim fileNr As Long

    fileNr = FreeFile

    Open fileName For Input As fileNr

    getTextfile = Input(LOF(fileNr), fileNr)

    Close fileNr

End Function

Sub writeTextfile(ByVal fileName As String, output As String)

    Dim fileNr As Long

    fileNr = FreeFile

    Open fileName For Output As fileNr

    Print #fileNr, output;

    Close fileNr

End Sub

Sub changeTxtfile()

    Dim dat As String

    Dim fileName As String

    fileName = "<filename>"

    dat = getTextfile(fileName)

    dat = Replace(dat, vbLf, "," & vbCrLf)

    writeTextfile fileName, dat

End Sub

... ohne Worte, passt perfekt - das schaue ich morgen in Ruhe an Angel

Danke und einen schönen Sonntag-Abend noch.

Stefan

StefKe

Warkings

StefKe