Hallo!
Es ist gerade später Abend.......*auf die Uhr guck* oh, früher Morgen!
Irgendwie glaube ich den Fehler im folgenden Programm zu wissen, aber ich weiß nicht was ich tun soll.
Code:
Private Sub cmdauslesen_Click()
Dim datei As String
Dim Test As String
Dim werte As String
Dim posA As Integer
Dim einzelwerte As String
posA = 1
datei = "I:\Becker\Dat_auslesen\Dateien\datauschn2.txt"
Open datei For Input As #1
While Not EOF(1)
Line Input #1, Test
Do
werte = InStr(posA, Test, Chr(9))
einzelwerte = Mid(Test, posA, werte - posA) // hier wird der Fehler angezeigt
MsgBox (einzelwerte)
posA = werte + 1
Loop Until werte = 0
Wend
Close #1
End Sub
Ich habe eine txt Datei, in der Wehrte eine Sollaranlage gespeichert sind. Die Datei ist folgendermaßen aufgebaut. In jeder Zeile sind 7 Werte, die jeweils mit einem TAB (chr(9)) getrennt sind. Von diesen Zeile sind dort einige. Ich weiß jetzt nicht genau, wieviele, ist jetzt aber auch nicht so wichtig!
Nun ließt mir das Programm die erste Zeile aus, trennt die einzelnen Werte und gibt die Einzelwerte nacheinander in einer MsgBox aus. Ich wollte es so realisieren, das er mir die sieben Werte aus einer Zeile ausgibt, zur nächsten Zeile geht und dort das gleiche macht usw. bis zum Zeilenende.
Nun gibt mir mein Programm aber die ersten 6 Werte der ersten Zeile aus und bricht dann mit dem Laufzeitfehler '5' "Ungültiger Prozeduraufruf oder ungültiges Argument" ab.
Ich bitte um Hilfe!