アドレスがhttp://www.youtube.comで始まるかどうかを確認したい。
こんなのあったら
if rs("mainVideoName")="http://www.youtube.com*" then
これはうまくいかないので、どうすればいいですか?
アドレスがhttp://www.youtube.comで始まるかどうかを確認したい。
こんなのあったら
if rs("mainVideoName")="http://www.youtube.com*" then
これはうまくいかないので、どうすればいいですか?
これを試して:
Function UrlStartsWith(string1, string2)
UrlStartsWith = InStr(1, string1, string2, 1) = 1
End Function
If UrlStartsWith(rs("mainVideoName"), "http://www.youtube.com") Then
End If
[で始まる] を使用してテストしIntStr
、検索文字列が見つかった開始位置として 1 を返すことを確認します。URL をテストしているため、上記のコードは TextCompare を使用して大文字と小文字を区別しません。
InStr()
これには次の関数を使用できます。
Dim positionOfMatchedString
positionOfMatchedString= InStr(rs("mainVideoName"),"http://www.youtube.com")
If positionOfMatchedString > 0 Then
// Do your stuff here
End If
Anthony が指摘しているように、これは string2 がstring1に含まれていることを示しています。次のように記述できます。
If positionOfMatchedString = 1 Then
で始まることを確認します。
どうですか...
Dim s: s = "http://www.youtube.com"
Dim l: l = Len(s)
If Left(rs("mainVideoName"), l) = s Then
' String begins with URL part '
End If