『スキン』かちゅ～しゃをカスタマイズする

[490]なな～しゃさん：2005/05/18(水) 16:18:10 ID:nOBHd+/c
強調されないんですが、何処がおかしいの？
教えてください。
Function ReplaceTest(text,patrn, replStr)
Dim objRegExp, str1 ' 変数を作成します。
Set objRegExp = New RegExp ' 正規表現を作成します。
objRegExp.Pattern = patrn ' パターンを設定します。
objRegExp.IgnoreCase = True ' 大文字と小文字を区別しないように設定します。
objRegExp.Global = True
ReplaceTest = objRegExp.Replace(text, replStr) ' 置換します。
End Function
<form name="Form1">
<input name="HilightText" type=Text value="">
<input name="HilightButton" type=button value="強調表示！" onClick="SetHilight()">
<DIV ID="DivHilightStatus">強調表示する文字列は正規表現で指定しろよ　(ﾟДﾟ)ゴルァ！</DIV><BR>

前次新