Steuerzeichen in Text finden und ersetzen

[StefKe]

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:

   

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.


  feeds.csv (Größe: 2,31 KB / Downloads: 6)

[Warkings]

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

[StefKe]

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

Danke und einen schönen Sonntag-Abend noch.

Stefan