search a string

[davyquyo]

search a string

i creatied thsi code

Private Sub Command1_Click()
Dim ophalen As String
Dim tekst1 As String
Dim tekst2 As String
Dim splitter As String
Open "c:/program files/call of duty/main/config_mp.cfg" For Input As #1
ophalen = Input(LOF(1), #1)
Close #1
For i = 0 To 200
splitter = Split(ophalen, Chr(10))(i)
[COLOR=red]
if spitter.    = "seta name" then
stop the i
tekst1 = Replace(splitter, "seta name", "")
tekst2 = Replace(tekst1, Chr(34), "")
Text2.Text = tekst2
Else
Next i
End If
[/COLOR] 
End Sub

there are error's offcourse
the red part shows an if i want to detect the if or the first 9 character = "seta name"

if not go to next i and else stop the loop
i already know that there are more characters present in this part

hope someone can help me with that part

[vbNeo]

Use the InStr() function, it'll return 0 if the string wasn't found, and the position of the search string if found.

An example of its usage:

Dim sString As String
 
sString = "The life of the wife, was ended by the knife"
 
'InStr syntax: InStr(Starting point in string, String to search, String to search for)
If InStr(0, sString, "knife") > 0 Then
 MsgBox "There's a knife in the string!"
End If

[davyquyo]

ok and how can i stop the loop

[vbNeo]

I believe 'Exit' does the trick... You could use a GoTo statement, though that is rather messy.

[davyquyo]

For i = 0 To 200
splitter = Split(ophalen, Chr(10))(i)
If InStr(0, splitter, "seta name") > 0 Then
exit i
MsgBox splitter
tekst1 = Replace(splitter, "seta name", "")
tekst2 = Replace(tekst1, Chr(34), "")
Text2.Text = tekst2
Else
Next i


ok when i test it say
next without loop

and exit is wrong to

[vbNeo]

Please remember to format your code... You have an open If statement:

For i = 0 To 200
 splitter = Split(ophalen, Chr(10))(i)
 If InStr(0, splitter, "seta name") > 0 Then
  MsgBox splitter
  tekst1 = Replace(splitter, "seta name", "")
  tekst2 = Replace(tekst1, Chr(34), "")
  Text2.Text = tekst2
  Exit For
 Else
  'Do Nothing
 End If
Next

Try this out, if it doesn't work, play with it - else do a forum search... You gotta be more active if you want problems solved, you need to take on affairs yourself...

[davyquyo]

If InStr(0, splitter, "seta name") > 0 Then

with this he says

invalid call or arument

[davyquyo]

ok If InStr(1, splitter, "seta name", vbTextCompare) > 0 Then

this did the trick

it's alright

[vbNeo]

That's my bad, change '0' to '1' since a string doesn't have a 0 caracter... This, however, you should've been able to figure out yourself, just goes to show you didn't try any other options...

[davyquyo]

i search on google for the answer but i find always more complicated scripts
so i ask here to

i realy try but i don't know so much about vb i'm a flashscrpter but i need a program to run local for my website

that's why i'm using vb for

[vbNeo]

This board has a very advanced search function, right here:

http://www.vbforums.com/search.php?s=

Since the post archives are constantly growing, and are very big at the moment, you should be able to find the code blocks you need.

If your code is working as it should, please make this thread resolved - if you don't know how, look at the announcement in one of the forum sections.

[davyquyo]

ok thanx