11

アドレスがhttp://www.youtube.comで始まるかどうかを確認したい。

こんなのあったら

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

これはうまくいかないので、どうすればいいですか?

4

3 に答える 3

14

これを試して:

 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 を使用して大文字と小文字を区別しません。

于 2012-05-03T08:39:09.307 に答える
4

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

で始まることを確認します。

于 2012-05-03T08:16:22.667 に答える
1

どうですか...

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
于 2012-05-03T13:36:22.623 に答える