Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Noch eine Frage zu importierten Textdateien
Autor: Peter
Datum: 20.04.02 20:16
Was muss ich zu diesem Code dazuschreiben, damit das Programm im Falle des Nicht-Vorhandenseins die Datei vokabel.txt neu (leer) erzeugt: Dim FileLength f = "c:vokabel.txt" Open f For Input As #1 count1 = 0 While Not (EOF(1)) count1 = count1 + 1 Line Input #1, c$ d = InStr(c$, ";") If d <> 0 Then a$(count1) = Left$(c$, d - 1) b$(count1) = Mid$(c$, d + 1) End If Wend Close #1 Danke für eure Mühe mit einem Anfänger! Peter

Noch eine Frage zu importierten Textdateien	34	Peter	20.04.02 20:16
Re: Noch eine Frage zu importierten Textdateien	173	Dieter	20.04.02 20:32
Re: Noch eine Frage zu importierten Textdateien	23	Peter	20.04.02 20:45

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