søke gjennom en text og legge det i en liste ? går det an?

[jjjjjjjjjjeeeeeeeeeeee]

jeg vil ha slik at jeg kan bruke en inputbox til å skrive inn en string og at den skal lete i en text box for så og til slutt å legge svarene i en list box

 

noen som har noen glupe forslag til dette?

 

MVH Ruben

[Cerwell]

Her har du ett forslag (Copy/Paste).

Om du skal ha en loop på dette, så øker du variabelen "strReply" med Len(text2.text) , og bruker denne som ny start for "InStr()" funksjonen.

 

 

Private Sub Command1_Click()

'text1 inneholder det du leter gjennom.

'text2 er hva du leter etter

'variabelen strReply får posisjon på texten du leter etter, hvis funnet.

 

Dim strReply As String

strReply = InStr(1, Text1.Text, Text2.Text) 'Let

If strReply = 0 Then

MsgBox "Ikke Funnet!"

Else

List1.AddItem (Mid(Text1.Text, strReply, Len(Text2.Text))) 'Legg til hvis funnet.

End If

End Sub

 

 

[ Denne Melding var redigert av: Cerwell på 2002-09-23 00:02 ]