Hallo, bin ein absoluter Anfänger dieses Gebiet und hab mir schon die Finger wundgetippt um an Lösungen für mein „Problem“ zu kommen.
Ich habe eine .TXT Datei, wo mehrere Buchstaben und Zahlenkombinationen untereinander angeordnet sind.
Ich möchte, daß jede Zeile nacheinander Ausgewertet wird. Jede Zeile ist in 2 Gruppen unterteilt durch einen doppelpunkt getrennt.
Danke für hilfreiche Tipps
Zum einlesen der Zeilen benutze folgendes:
'----------------------------------------------------------
Dim Dateinummer as Integer
Dim gesamt, Zeile as String
dateinummer = FreeFile
Open „Datei.txt“ For Input As #dateinummer
While EOF(dateinummer) = False
Line Input #dateinummer, Zeile
'Hier kannst du die aktuelle Zeile auswerten, die
'in der Variablen „Zeile“ steht
'Chr(13) & Chr(10) ergeben das Return-Zeichen
gesamt = gesamt & Zeile & Chr(13) & Chr(10)
Wend
Close #dateinummer
'-------------------------------------------------------
um aus der ganzen Zeile die zwei Einzelteile zu extrahieren musst du zuerst herausfinden, wo der Doppelpunkt ist und dann entsprechend abschneiden:
'-------------------------------------------
Dim Stelle as Integer
Dim Teil1, Teil2 as string
Stelle=InStr(Zeile, „:“)
Teil1=Left(zeile, stelle - 1)
Teil2=Right(zeile, Len(Zeile)-stelle)
'-------------------------------------------
Wenn du noch Erklärungen brauchst dann sag es mir!
mfg
Raber
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Oder hier ne andere Möglichkeit
Dim f as integer
dim sInhalt as string
dim b() as string
dim c() as string
dim i as integer
f=freefile
open „C:\meineDatei.txt“ for binary as #f
sinhalt=space$(lof(f))
get #f,sinhalt
close #f
b=split(sinhalt,vbcrlf)
for i=0 to ubound(b)
c=split(b(i),":")
'jetzt hast du eine Zeile in der Variable b(i) und die 2 Teile die durch den Doppelpunkt getrennt sind in c(0) und c(1)
'Beispiel zur Auswertung
If c(0)=„hallo“ and c(1)=„blubb“ then
msgbox „Gefunden“
end if
next
greetz
Mario