Brug InStr for at søge efter positionen for "blah" og "noget", og så Mid til at hente teksten.
Fx.
Opret to tekstbokse. Text1 og Text2. Text1 indeholder strengen der skal kigges i. Og Text2 viser resultatet.
Insæt følgende kode i en Command-button. Ændre variablerne StartOrd og SlutOrd til de respektive ord.
Start programmet og tryk på knappen.
Dim StartOrd, SlutOrd As String
Dim Start, Slut As Long
StartOrd = "blah"
SlutOrd = "noget"
Start = InStr(1, Text1.Text, StartOrd)
Slut = InStr(Start + Len(Start), Text1.Text, SlutOrd)
Text2.Text = Mid(Text1.Text, Start + Len(StartOrd), Slut - Start - Len(StartOrd))
God fornøjelse!
Bagefter kan du sætte den i Webbrowser Control'en.
Webbrowser1.Navigate "http://etellerandet.dk/etdokument.asp?" & Text2.Text
Indlæg senest redigeret d. 29.06.2007 21:32 af Bruger #1927