関数 CheckTheChar(TheChar,TheString)
'TheChar="検出する文字列"
'TheString="検出する文字列"
if inStr(TheString,TheChar) then
for n =1 から Len(TheString)
if Mid(TheString,n,Len(TheChar))=TheChar then
CheckTheChar=CheckTheChar+1
次の場合に終了
次
CheckTheChar="この文字"&CheckTheChar&"回"
それ以外
CheckTheChar="0 回"
終了する場合
終了機能
例:
プログラムコード
Response.Write CheckTheChar("全員","a224everyone4a434a4everyone654arewr4a4a")
プログラムコード
<%
' 文字列 Str1 が文字列 Str2 に出現する回数を検出します
パブリック関数 SearchChar(Str1, Str2)
ディムI、カウンター
カウンタ = 0
InStr(Str2, Str1) の場合
I = 1 から Len(Str2) の場合
Mid(Str2, I, Len(Str1))=Str1 の場合
カウンタ = カウンタ + 1
終了の場合
次
次の場合に終了
検索文字=カウンター
終了機能
%>
<form name="form1" method="post" action="">
<p>2 つの文字列を入力してください:</p>
<p> 文字列 1:
<input name="text1" type="text" id="text">
</p>
<p> 文字列 2:
<input name="text2" type="text" id="text">
<input type="submit" name="submit" value="submit">
</p>
</form>
<%
薄暗い
X=リクエスト.フォーム("テキスト1")
Y=リクエスト.フォーム("テキスト2")
X<>"" かつ Y<>"" の場合
%>
<p>文字列 1: <%=X%></p>
<p>文字列 2: <%=Y%></p>
<p>文字列 1 が文字列 2 に出現する回数<%=SearchChar(X,Y)%></p>
<%
終了の場合
%>
簡単な変換後、メッセージ コンテンツに 3 つ以上の URL が含まれる場合にそれを検出し、ブロックする機能に変えることができます。