text vergleichen!

[pking]

Hi,

Hab schon in der Suchfunktion gesucht aber dort hab ich nichts gefunden.

Und zwar:

Ich schreibe z.B in Text1.Text box Hallo rein, jetzt soll er z.B C:\vergleich.txt öffnen und schaun ob dort Hallo drin steht wenn ja dann soll er msgbox "ja gefunden schreiben", wenn nicht dann
else
msgbox "nicht gefunden"

ist bestimmt nicht so schwer jedoch bin ich noch nciht so gut in vb

mfg,
pking

 

[wincnc]

Hallo, versuch´s mal so:

Private Sub Command1_Click()
Dim Text As String
Dim Nr As Integer

Nr = FreeFile

Open "D:\Test.txt" For Binary As #Nr
  Text = Space(LOF(Nr))
  Get #Nr, , Text
Close #Nr

If InStr(1, Text, Text1.Text, vbTextCompare) Then
  MsgBox "Der gesuchte Text: '" & Text1.Text & "' wurde gefunden !", vbInformation, "Suchen"
Else
  MsgBox "Der gesuchte Text: '" & Text1.Text & "' wurde NICHT gefunden !", vbInformation, "Suchen"
End If

End Sub

 

[pking]

jo genau soweit bin ich auch schon gekommen NUR wenn ich z.B in die Textdatei "hallo" schreibe und in Text1.Text nur ein "h" dann sagt er das es gefunden wurde! Also er sollte ne Textdatei öffnen und von der Text1.Text genau vergleichen ob das wort da ist. Also die Wörter sind auch mit Zeilenumbrüchen geschrieben, wenn das besser gehen sollte!

 

[pking]

habs mir jetzt selber programmiert war doch nicht so aufwändig.

 

[pking]

Private Sub Command1_Click()
Dim txtInput, txtRows() As String
Dim Nr As Long
Nr = FreeFile
ReDim txtRows(0)


Open "C:\bla.txt" For Input As #Nr
 Do While (Not EOF(Nr))
			Line Input #Nr, txtInput
			txtRows(UBound(txtRows)) = txtInput
			ReDim Preserve txtRows(UBound(txtRows) + 1)
		Loop
	Close #Nr


If Text1.Text = txtRows(Int(Rnd(1) * UBound(txtRows))) Then
MsgBox "Den namen gibt es."
Else
MsgBox "Den namen gibt es nicht."
End If
End Sub

So hab ich mir bsp. nen sauberen login gecodet und kann user/password nachträglich ändern, da er ja eine file vom Internet runterlädt und dann vergleicht.
Aber wenn interessierts - wers braucht nurzu...