星影の魔術師の魔法の呪文

星影の魔術師

星影の魔術師のブログへようこそ 2割の労力で 8割の成果を上げるため日夜、隙あらば楽できないかと考えてます座右の銘は「今日しないで良い事は明日しろ」星影のマジシャンではなく魔術師 (ウイザード) です。プロフィールの写真は魔術師自身を自撮りして加工アプリで処理したものです

フォローする

キーワードサーチ

▼キーワード検索

サイド自由欄

星影の魔術師にメッセージを送る

フリーページ

アフィリエイトリンク 2 K

コメント新着

chiichan60 @ Re:日興フロッギーでｄポイントの現金化(06/20) New! 今晩は。私も最近曜日の感覚がなくてカ…

星影の魔術師 @ Re[1]:日興フロッギーでｄポイントの現金化(06/20) New! 和活喜さんへいつもありがとうございます…

星影の魔術師 @ Re[1]:日興フロッギーでｄポイントの現金化(06/20) New! teapottoさんへいつもありがとうございま…

星影の魔術師 @ Re[1]:昨日は iPhone の Safari でブログの編集画面が開かずにえらい目に遭った(06/19) New! chiichan60さんへいつもありがとうござい…

和活喜 @ Re:日興フロッギーでｄポイントの現金化(06/20) New! 　こんにちは、木曜日。福岡宗像は晴れで…

カテゴリ

ガジェット

(2)

< 新しい記事

新着記事一覧(全7615件)

過去の記事 >

2017.07.09

魔術師です。

ファイルリストからファイルを探すバッチファイルを修正しました。

前に作ったのはコレ

目的達成！ GNU Utilities for Win32 を使ったバッチファイル
https://plaza.rakuten.co.jp/wizardofstarlite/diary/201705030002/

クリップボードにファイル名をコピーしないオプション /nc -nc
エクスプローラで開かないオプションを追加しました。 /no -no

FSearch.bat
----- ここから
@echo off
setlocal
set STR=%1
set LIST=D:\List\LIST_FILE.txt
set RLIST=D:\List\LIST_FILE_R.txt
set DATA_DIR=D:\DATA
set SORT_CMD=c:\bin\sort.exe
set SORT_OPT=-r
set GREP_CMD=c:\bin\yagrep.exe
set GREP_OPT=-P
set HEAD_CMD=c:\bin\head.exe
set HEAD_OPT=-n1
set CLIP_CMD=C:\WINDOWS\SYSTEM32\CLIP.exe
set NoCLIP=0
set NoOpen=0
:

if "%1"=="-nc" goto :NoCLIP
if "%1"=="/nc" goto :NoCLIP
if "%1"=="-NC" goto :NoCLIP
if "%1"=="/NC" goto :NoCLIP
if "%1"=="-no" goto :NoOpen
if "%1"=="/no" goto :NoOpen
if "%1"=="-NO" goto :NoOpen
if "%1"=="/NO" goto :NoOpen
if "%1"=="-n" goto :RENEW
if "%1"=="/n" goto :RENEW
if "%1"=="-N" goto :RENEW
if "%1"=="/N" goto :RENEW
if "%1"=="-r" goto :RENEW
if "%1"=="/r" goto :RENEW
if "%1"=="-R" goto :RENEW
if "%1"=="/R" goto :RENEW
if "%1"=="-?" goto :USAGE
if "%1"=="/?" goto :USAGE
if "%1"=="-h" goto :USAGE
if "%1"=="/h" goto :USAGE
if "%1"=="-H" goto :USAGE
if "%1"=="/H" goto :USAGE
if "%1"=="" goto :USAGE

goto :PROC

:NoOpen
set NoOpen=1
set NoCLIP=1
set STR=%2

goto :PROC

:NoCLIP
set NoCLIP=1
set STR=%2

:PROC
echo STR="%STR%"

FOR /F "usebackq delims==" %%n IN (`type %RLIST% ^| %GREP_CMD% %GREP_OPT% "%STR%" ^| %HEAD_CMD% %HEAD_OPT%`) DO (
echo %%n
echo STR=%STR%
SET FILENAME=%%n
echo FILENAME=%FILENAME%
)

if "%FILENAME%"=="" goto :NOT_FOUND

call :FNAME_GET "%FILENAME%"

echo FPATH=%FPATH%
echo FNAME="%FNAME%"
echo FEXT=%FEXT%

if "%NoCLIP%"=="0" (
echo %FNAME%| %CLIP_CMD%
)
REM start explorer.exe /e,"%FPATH%"
if "%NoOpen%"=="0" (
start explorer.exe /e,/select,"%FPATH%%FNAME%%FEXT%"
)
goto END

:NOT_FOUND
echo 見つかりません.
goto END

:FNAME_GET
set FPATH=%~dp1
set FNAME=%~n1
set FEXT=%~x1
exit /B

:USAGE
echo USAGE : %~nx0 "STRING"
echo %~nx0 "STRING" : LIST SERACH
echo %~nx0 [-/]nc "STRING" : LIST SERACH NoCLIP
echo %~nx0 [-/]no "STRING" : LIST SERACH NoOpen Directory
echo %~nx0 [-/][nr] : LIST and Reverse LIST RENEW
echo %~nx0 [-/]h : USAGE
goto END

:RENEW
dir %DATA_DIR% /B /S /O:N > %LIST%
type %LIST% | %SORT_CMD% %SORT_OPT% > %RLIST%

echo FileList ReNewed.

:END

endlocal
----- ここまで

エクスプローラが開かないのは鬱陶しくなくていい

人気記事の一覧のあるトップへ

星影の魔術師に
応援のクリックをポチッとお願いします。