InStr eller anden søge funktion (hvordan?)

Tak for dit svar!

Har et lille problem. Jeg har forsøgt mig med koden herunder, men det virker ikke. Hvad gør jeg forkert?

Kode 

'---------------------------------------
Denne linje ændrer navnet i en processlinje jeg har lavet til min browser.
'frmMain.tbsWindows.Tabs.Item("Key" & Me.Tag - 1).Caption
'---------------------------------------


----------------------------------------
'Dette er selve den kode jeg bruger!

Dim NoHTTP As Long
NoHTTP = InStr(1, "http://", LCase(brwWebBrowser.LocationName))
If Not NoHTTP = 1 Then
frmMain.tbsWindows.Tabs.Item("Key" & Me.Tag - 1).Caption = brwWebBrowser.LocationName
Else
frmMain.tbsWindows.Tabs.Item("Key" & Me.Tag - 1).Caption = "Ingen titel"
End If

Med Venlig Hilsen
Morten Torndahl Pedersen

[Redigeret d. 12/08-05 13:59:25 af Morten Torndahl Pedersen]

Ja kan se at der skal byttes om på http, har lavet en fejl.

her er eks. 1
<pre>
Private Sub Command1_Click()
Dim NoHTTP As Long
NoHTTP = InStr(1, LCase(Text1.Text), "http://")
If NoHTTP = 1 Then
'indholder http:// i starten
Else
'indholder ikke http
End If
End Sub
</pre>

eks.2

<pre>
Private Sub Command1_Click()
Dim NoHTTP As Long
NoHTTP = InStr(1, LCase(Text1.Text), "http://")
If NoHTTP <> 0 Then
'forskellige for nul
'indholder http:// et sted i url' en
Else
'indholder ikke http
End If
End Sub

</pre>

Håber du kan bruge en af dem til noget, ellers spørg bare i gen.
**************************************
Hvis mennesker er så kloge, hvorfor ødelægger
vi så os selv og den verden vil lever i?
**************************************
I mod softwarer patenter
http://www.nosoftwarepatents.com/

-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41

Kære Udviklere.

Jeg har fundet mange tråde om InStr og vidst nok også InPos.
Men hvordan bruger jeg disse?

Hvis vi nu siger at jeg har følgende kode

Kode 

Dim Side As String

Private Sub Form_Load()
Side = "http://www.udvikleren.dk"
End Sub

Hvordan gør jeg så sådan at når jeg f. eks. klikker på Command1 så gennemsøger den variablen Side, og hvis den indeholder http:// så skal den komme med en MsgBox!

Skal jeg bruge InStr/InPos eller noget helt andet???


På forhånd tak!

Med Venlig Hilsen
Morten Torndahl Pedersen

Hvis du bare vil søge om en bestem tekst f.eks at http er en variable kan du sagtens nøjes med instr

eks.

Instr(1,"http://",lcase(var1))

jeg har brugt lcase for at sikre at begge tekster er lille, så der sammenlignes ordenlig.

-Thomas
**************************************
Hvis mennesker er så kloge, hvorfor ødelægger
vi så os selv og den verden vil lever i?
**************************************
I mod softwarer patenter
http://www.nosoftwarepatents.com/

-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41

Tak for dit svar!

Har et lille problem. Jeg har forsøgt mig med koden herunder, men det virker ikke. Hvad gør jeg forkert?

'---------------------------------------
Denne linje ændrer navnet i en processlinje jeg har lavet til min browser.
'frmMain.tbsWindows.Tabs.Item("Key" & Me.Tag - 1).Caption
'---------------------------------------


----------------------------------------
'Dette er selve den kode jeg bruger!

Dim NoHTTP As Long
NoHTTP = InStr(1, "http://", LCase(brwWebBrowser.LocationName))
If Not NoHTTP = 1 Then
frmMain.tbsWindows.Tabs.Item("Key" & Me.Tag - 1).Caption = brwWebBrowser.LocationName
Else
frmMain.tbsWindows.Tabs.Item("Key" & Me.Tag - 1).Caption = "Ingen titel"
End If

Med Venlig Hilsen
Morten Torndahl Pedersen

[Redigeret d. 12/08-05 13:59:25 af Morten Torndahl Pedersen]

Tak for hjælpen.

Har lige et andet spørgsmål også.

Hvis jeg har følgende kode

Dim MyFile As String
MyFile = "http://www.udvikleren.dk/testfile.exe

Hvordan gør jeg så det samme bare med at det ikke er i starten af teksten. Skal jeg bruge InPos der? Og kan du give et (eller flere) eksempler?

EDIT: Er jeg dum eller hvad? Det her jeg fået svar på i dit forrige svar!

Med Venlig Hilsen
Morten Torndahl Pedersen

[Redigeret d. 12/08-05 15:39:47 af Morten Torndahl Pedersen]