Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Problemen mit Do While Not EOF(1) ???
Autor: Bob
Datum: 30.01.02 14:46
Hallo, ich habe folgendes Problem: Ich benutze unten angegebenen Code um 3 Werte aus eine Cnfug-Text datei auszulesen. Beispiel einer cfg.datej 170.56.45.34:[ZY_^:: das wird korrect ausgelesen. : ist Trennzeichen. Es komen verschidenen Zahlen und Zeichen vor . Aber die Zeile macht Probleme: 170.56.52.37:,[ZY_^:: Es wird nur so eingelesen: 170.56.52.37:,[ZY_^: Und ich kriege mein dritten Wert nicht. Es fängt schon hier: Line Input #1, zeile Wenn mann mit Maus auf Wort "zeile" hällt sieht es. Code: Private Sub LeseFile(ByVal sFileName As String, ByVal nModus As Integer) Dim zeile As String Dim pos1 As String Dim pos2 As String Dim wert As String Dim feld As String Dim count As Integer Dim pfad1 As String Dim pfad2 As String 'Inhalt "text.cfg" wird ausgelesen inputText = sFileName Open inputText For Input As #1 count = 1 pos1 = 1 pos2 = 1 Do While Not EOF(1) Line Input #1, zeile Do While count < 4 pos2 = InStr(pos1, zeile, ":") wert = Mid(zeile, pos1, pos2 - pos1) pos1 = pos2 Select Case count Case "1" WERT1= wert Case "2" WERT2 = wert Case "3" WERT3 = wert End Select count = count + 1 pos1 = pos1 + 1 Loop Loop Close #1 Danke für jede Hilfe!!!

Problemen mit Do While Not EOF(1) ???	95	Bob	30.01.02 14:46
Re: Problemen mit Do While Not EOF(1) ???	504	unbekannt	30.01.02 16:59
Re: Danke!	28	Bob	31.01.02 09:10

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