Hallo Leute,
ich habe mal wieder eine Frage
Also erstmal die Situation:
Ich möchte, dass mein Programm eine Zeichenkette, den der Benutzer eingibt mit einer *.txt-Datei vergleicht, in der in jeder Zeile eine Zeichenkette steht und wenn der String derselbe wie der in der Textdatei ist, eine Messagebox ausgeben. Könnte mir jemand einen kleinen Beispiel-Code geben?
Danke
DFJ_ Poster
Anmeldedatum: 15.10.2007 Beiträge: 156
Verfasst am: 17.04.2008, 14:47
Code:
Dim FF As Integer
dim Datei As String
dim Inhalt As String
dim Zeilen() As String
Datei = "C:\Text.txt"
FF = FreeFile
Inhalt = Space(FileLen(Datei))
Open Datei For Binary As FF
Get FF , , Inhalt
Close FF
Zeilen = Split(Inhalt, vbNewLine)
dim i as integer
dim eingabe integer
eingabe = "hallO"
for i = 0 to ubound(zeilen)
if zeilen(i) = eingabe then
msgbox "halt"
end if
next i
da googel hätte geholfen Spam bot
exe-cute_ Poster
Anmeldedatum: 21.10.2007 Beiträge: 154
Verfasst am: 17.04.2008, 15:48
strcomp ist schneller.
Code:
If strcomp(zeilen(i), eingabe, vbtextcompare) = 0 then
th3flood_ Newbie
Anmeldedatum: 09.10.2007 Beiträge: 14
Verfasst am: 17.04.2008, 16:29
super klappt
danke
(sorry ich war heute iwie zu dumm das selber zu finden )
Registrieren
Login
