Sakura-Editor Macro Reference

S_SearchNextの使用例

' 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 & "個みつかりました"