Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

fehlersuche beim laden
Autor: Diddy
Datum: 05.04.04 15:58
Hallo hier hab ich den Quelltext: Private Function LoadArray() As Boolean Dim FNr As Integer Dim TxtFile As String Dim Msg As String Dim zw As String Dim w() As String Dim w1() As String Dim TrZ As String Dim i As Long Dim j As Long Dim k As Long TrZ = "|" FNr = FreeFile TxtFile = AppPathGet & "Array.txt" 'prüfen ob Datei vorhanden If Dir(TxtFile) = "" Then Msg = "Datei '" & TxtFile & " nicht gefunden" Exit Function End If On Error GoTo Fehler Open TxtFile For Binary As #FNr zw = Space(LOF(FNr)) Get #FNr, , zw Close #FNr List1.Clear ReDim AdrArray(UBound(AdrArray), 0) If Len(zw) > 0 Then w() = Split(zw, vbCrLf) ReDim AdrArray(UBound(AdrArray), UBound(w) + 1) For i = 0 To UBound(w) w1 = Split(w(i), TrZ) For j = 0 To UBound(w1) AdrArray(j + 1, i + 1) = w1(j) Next List1.AddItem AdrArray(1, i + 1) & ", " & AdrArray(2, i + 1) List1.ItemData(List1.NewIndex) = i + 1 Next End If Exit Function Fehler: End Function Beim laden erscheinen immer ein paar fehler, ich weiß aber leider nicht wieso. Kann mir da jemand helfen? Den rest des Programmes, könnt ihr unter: http://diddyfalk.piranho.com/Fehlstunden.rar Downloaden Danke schonmal fürs angucken.

fehlersuche beim laden	630	Diddy	05.04.04 15:58
Re: fehlersuche beim laden	403	NeoInferno	05.04.04 17:07
Re: fehlersuche beim laden	360	Dominik S.	05.04.04 18:56
Re: fehlersuche beim laden	370	Diddy	05.04.04 19:34
Re: fehlersuche beim laden	399	Dominik S.	05.04.04 23:21
Re: fehlersuche beim laden	342	Diddy	06.04.04 18:24
Re: fehlersuche beim laden	380	Diddy	06.04.04 20:08
Re: fehlersuche beim laden	384	Dominik S.	06.04.04 20:19

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