Hey ich wollte ein Programm schreiben
Der wie folgt Funktionieren sollte.
Ich schreib etwas in einer TextBox
und mittels eines Timer wollte ich ermitteln ob der Geschriebene Text
Mit dem Text in einer .ini Datei wo mehre Texte untereinander aufgelistet sind Übereinstimmt falls ja dann soll der Text in der TextBox verschwinden und eine Msg box ausgegeben werden das der Besagte Text gefunden wurde.
Das funktioniert auch soweit ganz gut
Nur leider Liest er nur die erste zeile von der .ini datei nur durch.
Sprich würde dort;
[Title]
Echo=Test
Echo=Test1
drin stehen würde er Test1 garnicht erst erkennen "Test" wiederum schon.
Kann mir jemand dabei helfen das er auch die anderen Wörter ausliest?
LG
ProdielerNR(1)
Der wie folgt Funktionieren sollte.
Ich schreib etwas in einer TextBox
und mittels eines Timer wollte ich ermitteln ob der Geschriebene Text
Mit dem Text in einer .ini Datei wo mehre Texte untereinander aufgelistet sind Übereinstimmt falls ja dann soll der Text in der TextBox verschwinden und eine Msg box ausgegeben werden das der Besagte Text gefunden wurde.
Code:
Public Function INI_ReadValueFromFile(ByVal strSection As String, ByVal strKey As String, ByVal strDefault As String, ByVal strFile As String) As String
Dim strTemp As String = Space(1024), lLength As Integer
lLength = GetPrivateProfileString(strSection, strKey, strDefault, strTemp, strTemp.Length, strFile)
Return (strTemp.Substring(0, lLength))
End Function
'Und das ist dann der teil der im Timer leuft
If Textbox1.Text = INI_ReadValueFromFile("Title", "Echo", " ", ".\Test.ini") Then
Timer1.stop
Textbox1.ResetText()
Msgbox ("Gefunden!")
End if
Nur leider Liest er nur die erste zeile von der .ini datei nur durch.
Sprich würde dort;
[Title]
Echo=Test
Echo=Test1
drin stehen würde er Test1 garnicht erst erkennen "Test" wiederum schon.
Kann mir jemand dabei helfen das er auch die anderen Wörter ausliest?
LG
ProdielerNR(1)