Laufzeitfehler 5

[Scherzkeks]

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!

[Reinhold]

Originally posted by Scherzkeks

Private Sub cmdauslesen_Click()

Dim werte As String

Dim posA As Integer

werte = InStr(posA, Test, Chr(9))

einzelwerte = Mid(Test, posA, werte - posA) // hier wird der Fehler angezeigt

Als 3. Argument erwartet Mid() eine Zahl. werte ist aber als string definiert und bleibt auch ein String, wenn es den Wert aus einer Funktion mit numerischem Rückgabewert erhält.

hth

Reinhold

[developer]

http://fachinformatiker-world.de/forums/showthread.php?threadid=39119&werbeid=32 *hrgggg*

[Scherzkeks]

Originally posted by developer

http://fachinformatiker-world.de/forums/showthread.php?threadid=39119&werbeid=32 *hrgggg*

Sorry!

Es war spät, ich war müde und habe nicht dran gedacht. Bei nächsten mal werde ich dran denken!

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~+

Übrigens habe ich das Problem gelöst.

einzelwerte = Mid(Test, posA, Abs(werte - posA))

In dieser Zeile war der Fehler, wie ich schon in meinem Post angegeben habe. Wenn das Programm am Ende einer Zeile ankommt, dann ist werte = 0 und posA=35. Das gibt einen negativen Wert. Mit Abs ist das dann gelöst.

Trotzdem danke für die Hilfe!