'-------------------------------------------------------------------------------
'メモを正規表現で検索する
'
' CopyRight Naoshi Ide 2015-
'-------------------------------------------------------------------------------
Call Main
'メイン処理
Sub Main()
Dim memofolder
Dim regexp
memofolder = "C:\Users\Nao\Documents\個人フォルダ\10.メモ\"
regexp = "^■.*$"
Grep regexp, "*.memo",memofolder,29
End Sub
More than 5 years have passed since last update.
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme