Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

array
Autor: ralf
Datum: 11.12.01 09:22
Hi, ich habe ein Problemchen mit folgendem Code: Dim F As Integer Dim strLine As String Dim strRefNr As String Dim strVorgNr As String Dim arrFeld() As String Dim arrPos() As String Dim arrKfz() As String Dim arrMenge() As String Dim arrBez1() As String Dim arrBez2() As String Dim arrEGew() As String Dim arrGGew() As String Dim arrArtNr() As String Dim n, m, msg F = FreeFile Open App.Path & "position.txt" For Input As #F While Not EOF(F) ' Zeile lesen und in die einzelnen Felder zerlegen Line Input #F, strLine arrFeld = Split(strLine, "#") If UBound(arrFeld) < 42 Then GoTo Ende strRefNr = arrFeld(0) strVorgNr = arrFeld(1) m = 0 For n = 0 To 4 arrPos(n) = arrFeld(2 + m) arrKfz(n) = arrFeld(3 + m) arrMenge(n) = arrFeld(4 + m) arrBez1(n) = arrFeld(5 + m) arrBez2(n) = arrFeld(6 + m) arrEGew(n) = arrFeld(7 + m) arrGGew(n) = arrFeld(8 + m) arrArtNr(n) = arrFeld(9 + m) m = m + 8 msg = msg + arrPos(n) + vbCrLf Next n Ende: Wend Close #F Wenn ich den Code ausführe bekomme ich Laufzeitfehler 9, Index ausserhalb des gültigen Bereichs. Danke für die Hilfe Gruss Ralf

array	60	ralf	11.12.01 09:22
Re: array	351	Dieter	11.12.01 09:36
Re: array	44	ralf	11.12.01 09:40
Re: array	341	Dieter	11.12.01 09:51
Re: array	40	ralf	11.12.01 10:30

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen