' sample.vbs ' 文字列"function"の数をカウントする Dim sKey, lngCnt sKey = "function" GoFileTop lngLine = ExpandParameter(CStr("$y")) SearchNext CStr(sKey), CLng(16) Do Until (ExpandParameter(CStr("$y")) = lngLine) lngCnt = lngCnt + 1 lngLine = ExpandParameter(CStr("$y")) SearchNext CStr(sKey), CLng(16) Loop MsgBox "文字列 """ & sKey & """は、" & lngCnt & "個みつかりました"