Datenstring aus txt auslesen und trennen
05.07.2021 08:17:15
Martin
ich möchte gerne den String aus einer Txt-Datein einlesen (funktioniert, wenn ich es auch etwas kompliziert finde den Code/nicht vollständig verstehe).
In einem zweiten Schritt soll dann die Zeichenkette am ";" aufgetrennt werden, so dass ich mit der zweiten und dritten Zahl weiterrechnen kann.
In dem Beispiel die Zahlen 5583371 und 4863644, die ich dann in einer Variable ablegen möchte.
Danke schön für Rat und euch allen noch einen guten Start in die neue Woche
Hier die txt Datei:
https://www.herber.de/bbs/user/146944.txt
Inhalt der txt Datein:
"19040;5583371;4863644"
Private Sub CommandButton2_Click()
Dim intFreeFile As Integer
Dim strTemp As String
intFreeFile = FreeFile
Open ThisWorkbook.Path & "\" & Cells(2, 1).Value & ".txt" For Input As #intFreeFile
Line Input #intFreeFile, strTemp
Close #intFreeFile
NumberFromTXT = CStr(strTemp)
Cells(2, 2).Value = NumberFromTXT
End Sub