Check if string “starts with” another string

vbscript

I want to check if an address starts with http://www.youtube.com.

If I have something like this

if rs("mainVideoName")="http://www.youtube.com*" then

This doesn't work, so how can I do it?

Best Answer

Try this:

 Function UrlStartsWith(string1, string2)
     UrlStartsWith = InStr(1, string1, string2, 1) = 1
 End Function

 If UrlStartsWith(rs("mainVideoName"), "http://www.youtube.com") Then


 End If

Starts with is tested by using IntStr and ensuring that it returns 1 as the starting position that the search string is found. Since you are testing a URL the code above uses a TextCompare to make insensitive to case.

Related Solutions

VBScript — Using error handling

VBScript has no notion of throwing or catching exceptions, but the runtime provides a global Err object that contains the results of the last operation performed. You have to explicitly check whether the Err.Number property is non-zero after each operation.

On Error Resume Next

DoStep1

If Err.Number <> 0 Then
  WScript.Echo "Error in DoStep1: " & Err.Description
  Err.Clear
End If

DoStep2

If Err.Number <> 0 Then
  WScript.Echo "Error in DoStop2:" & Err.Description
  Err.Clear
End If

'If you no longer want to continue following an error after that block's completed,
'call this.
On Error Goto 0

The "On Error Goto [label]" syntax is supported by Visual Basic and Visual Basic for Applications (VBA), but VBScript doesn't support this language feature so you have to use On Error Resume Next as described above.

Best Answer

Related Solutions

VBScript — Using error handling

Related Topic