I want to do something like: [code

[PhilippeSignoret]

I want to do something like:

Dim stuff as String
If stuff has "[URL unfurl="true"]http://"[/URL] in it Then
 Msgbox stuff & " is a website!"
Else
 Msgbox stuff & " is not a website!"
End If

Can anyone help me with this?
Thanks!
Philippe

 

[PSkYiClHlOeDrIC]

Try this code.

The function InStr searches one string for the existance of another.


If (InStr(1, stuff, "

http://"))

Then
MsgBox stuff & " is a website"
Else
MsgBox stuff & " is not a website"
End If


This should do the trick for ya. This routine is case sensative, so if you make stuff = "

httP://"

it will return false; as a challenge to yourself, you may want to make this routine return true for any variation of

http://.

Best Regards,
Nathan Martini
Advanced Computer Solutions

 

[BlackKnight]

Hi,

Place the statement: 'Option Compare Text' in your form's General module to avoid the case sensitive problem.

Have a good one!
BK