Wildecard vb6

[anoniem]

zoeken met wildecard hij zoekt in text1.text de bedoeling is dat hij alleen weer geeft wat hier tussen staat " " ik neem aan dat daar een wildcard in moet staan "*" maar mijn vraag is hoe maak je de optie dat hij een wildcard snapt

[anoniem]

Plaats even de code die je nu hebt, hier is niet echt wijs uit te worden wat je nu eigenlijk wil. Vermeld even wat je wilt en hoe de code die je hebt nu functioneert. Grtz,

[anoniem]

Oke ik zal het proberen duiderlijk uit te leggen. hij leest bepaalde gegevens uit de geheugen dan zal dat weer gegeven worden in "ADDRB.Text" vervolgens heb ik een klein stukje van nodig hier onder hij zoekt naar het stukje die ik nodig heb (zoek functie is er om dat de gegevens dynamich is, hij zoekt op een punt die altijdt het zelfde is maar steeds ergens anders staat) [code:1:d07dd65d99] Private Sub cmdFindFirsttest_Click() txtFiletest = ADDRB.Text If txtFindtest <> "" Then If InStr(txtFiletest, txtFindtest) <> 0 Then txtFiletest.SelStart = InStr(txtFiletest, txtFindtest) + 15 txtFiletest.SelLength = Len(txtFindtest) cmdFindNexttest_Click End If End If End Sub Private Sub cmdFindNexttest_Click() If txtFindtest <> "" Then txtFiletest.SelStart = txtFiletest.SelStart - 28 If InStr(txtFiletest.SelStart, txtFiletest, txtFindtest) <> 0 Then txtFiletest.SelStart = InStr(txtFiletest.SelStart, txtFiletest, txtFindtest) + 15 txtFiletest.SelLength = Len(txtFindtest) 'output = txtFindtest 'Print Text1.Text = txtFile End If End If End Sub [/code:1:d07dd65d99] voorbeeld ------------ voor het zoeken: OPPO1=FFSJASPA ADDR1=TEST TEST =15479904OP uitkomst: =TEST TEST =15479904OP nu is het de bedoeling dat hij alleen de gegevens tussen de = tekens in een text feld zet dus dat ik uit einderlijk dit krijg TEST TEST Ik hoop dat ik duiderlijk ben geweest.

[anoniem]

Met Instr(...) zoek je de positie van een string in een andere string op. Hiermee krijg je dus de eerste keer dat het teken voorkomt. Je kun ook een startpositie opgeven. Als je die nu de eerste keer dat het teken voorkomt +1 laat zijn krijg je als redultaat de tweede keer dat de string voorkomt. In code: [code:1:3229bbdf58] Sub SearchText() Dim strZoekstring As String Dim lngStart As Long Dim lngEerste As Long Dim lngTweede As Long Dim strResultaat As String strZoekstring = "OPPO1=FFSJASPA ADDR1=TEST TEST =15479904OP" lngStart = 1 lngEerste = InStr(lngStart, strZoekstring, "ADDR1=") lngTweede = InStr(lngEerste + 6, strZoekstring, "=") strResultaat = Mid(strZoekstring, lngEerste + 6, lngTweede - lngEerste - 7) MsgBox (strResultaat) End Sub [/code:1:3229bbdf58] De bovenstaande code zoekt naar "ADDR1=", gaat vervolgens op zoek naar het volgende = teken en laat zien wat daartussen staat. Grtz,

[anoniem]

Bedankt hij werkt echt goed.