Macro/投稿/156
をテンプレートにして作成
Land.to
[
ホーム
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
* 編集中のファイルを対象に選択文字列でGrep [#ia1c8389]
-ページ: [[Macro/投稿]]
-作者: [[まくろ初心者]]
-カテゴリー: vbs
-投稿日: 2006-12-03 (日) 01:34:50
** メッセージ [#qed53f8c]
[[macro:326]]
#code(VBScript){{
' 編集中のファイルのみを対象に選択文字列でGrep実行(ただ...
sKey = inputbox("","Grep文字列の指定", ExpandParameter(Cs...
sFile = ExpandParameter(Cstr("$f"))
sPath = ExpandParameter(Cstr("$F"))
if len(sKey) > 0 and sFile <> sPath then
msgbox spath & "," & sfile
sDir = Left(CStr(sPath), Len(sPath) - Len(sFile) ...
'01100011
'0111000=56
'0011000=24
Grep CStr(sKey), CStr(sFile), CStr(sDir), CLng(56)
end if
}}
----
#comment
終了行:
* 編集中のファイルを対象に選択文字列でGrep [#ia1c8389]
-ページ: [[Macro/投稿]]
-作者: [[まくろ初心者]]
-カテゴリー: vbs
-投稿日: 2006-12-03 (日) 01:34:50
** メッセージ [#qed53f8c]
[[macro:326]]
#code(VBScript){{
' 編集中のファイルのみを対象に選択文字列でGrep実行(ただ...
sKey = inputbox("","Grep文字列の指定", ExpandParameter(Cs...
sFile = ExpandParameter(Cstr("$f"))
sPath = ExpandParameter(Cstr("$F"))
if len(sKey) > 0 and sFile <> sPath then
msgbox spath & "," & sfile
sDir = Left(CStr(sPath), Len(sPath) - Len(sFile) ...
'01100011
'0111000=56
'0011000=24
Grep CStr(sKey), CStr(sFile), CStr(sDir), CLng(56)
end if
}}
----
#comment
ページ名: