kann man über VBA Abfragen, ob und welche Trennzeichen in einer Textdatei vorhanden sind?
Vielen Dank im Voraus!
MFG Andre
Sub trennzeichen()
Dim s As String
Dim z As Long, i As Long
s = "Dies ist ein Test" & vbLf & "Das ist die nächste Zeile" & vbCr & _
"Das die übernächste." & vbCrLf
For i = 1 To Len(s): Cells(Asc(Mid(s, i, 1)), 3) = Cells(Asc(Mid(s, i, 1)), 3) + 1: Next
For i = 1 To 255
Cells(i, 1) = i
If i > 32 Then Cells(i, 2) = Chr(i)
Next
End Sub
Sub Test_auf_CRLF()
Dim Zelle As Object
'Im Range Bereich eigenen Bereich angeben
For Each Zelle In Range("C2:C20")
Zelle.Select
If InStr(Zelle, vbCrLf) Then MsgBox "CRLF" _
Else If InStr(Zelle, vbLf) Then MsgBox "LF" _
Else If InStr(Zelle, vbCr) Then MsgBox "CR"
Next Zelle
End Sub
If Instr(sInhalt, vbCrLf) > 0 then
Oder Du ersetzt einfach alle CrLf durch LF, danach hast Du in jedem Fall das Lf als Trennzeichen:
sInhalt = replace(sInhalt, vbCrLf, vbLf)
ArrayData = Split(sInhalt, vbLf)
Gruß, Jürgen