文件分类 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

自己老是下一堆书，分类是样累人的活，我很懒的

功能：根据设定的关键字用grep过滤，把匹配的文件放到各自的目录中.


@Echo OFF
:: 
:: BatName: Categorize.bat
:: Version: 0.1
:: Purpose: categorize for files
::
:: Usage: Categorize folderName
::        folderName    target folder
::
:: 
::  grep.exe
::
:: Code by SpikeKnox 2007.02.08
:: 

SetLocal EnableDelayedExpansion

rem Show help
If == (Type "%~f0" | findstr "^::" && Goto :EOF)
If == (Type "%~f0" | findstr "^::" && Goto :EOF)

rem ===  ============================================================================
rem 设置类别
Set "category=csharp;sql;script;windows;unix;design"

rem 设置每个类别的关键字(传给grep用的)
Set "csharp=c\W\?sharp\|c#"
Set "sql=sql"
Set "script=script\|perl\|python"
Set "windows=windows\|office\|excel\|word"
Set "unix=unix\|linux"
Set "design=design\|设计"
rem =========================================================================================

rem Goto target folder
Pushd %1 || Pushd %~dp1

rem Build file list
Dir /b /a-d > content.txt

Echo.
Echo 
Echo.
For %%I IN (%category%) DO (
    Echo +
    Echo.
    
    For /F "delims=*" %%i IN ('grep -i "!%%I!" content.txt' DO (
        If NOT EXIST %%I md %%I
        IF EXIST %%i ( Echo     %%i & Move /y "%%i" %%I\ >NUL 2>NUL )
    )
    Echo.
)

rem 
Del content.txt

Popd
Echo.
Pause

第1楼　SpikeKnox	发表于 2007-02-09 07:14
初级用户　发帖 28　积分 116
[原创]文件分类自己老是下一堆书，分类是样累人的活，我很懒的功能：根据设定的关键字用grep过滤，把匹配的文件放到各自的目录中. @Echo OFF :: :: BatName: Categorize.bat :: Version: 0.1 :: Purpose: categorize for files :: :: Usage: Categorize folderName :: folderName target folder :: :: :: grep.exe :: :: Code by SpikeKnox 2007.02.08 :: SetLocal EnableDelayedExpansion rem Show help If == (Type "%~f0" \| findstr "^::" && Goto :EOF) If == (Type "%~f0" \| findstr "^::" && Goto :EOF) rem === ============================================================================ rem 设置类别 Set "category=csharp;sql;script;windows;unix;design" rem 设置每个类别的关键字(传给grep用的) Set "csharp=c\W\?sharp\\|c#" Set "sql=sql" Set "script=script\\|perl\\|python" Set "windows=windows\\|office\\|excel\\|word" Set "unix=unix\\|linux" Set "design=design\\|设计" rem ========================================================================================= rem Goto target folder Pushd %1 \|\| Pushd %~dp1 rem Build file list Dir /b /a-d > content.txt Echo. Echo Echo. For %%I IN (%category%) DO ( Echo + Echo. For /F "delims=*" %%i IN ('grep -i "!%%I!" content.txt' DO ( If NOT EXIST %%I md %%I IF EXIST %%i ( Echo %%i & Move /y "%%i" %%I\ >NUL 2>NUL ) ) Echo. ) rem Del content.txt Popd Echo. Pause

第2楼　anqing	发表于 2007-02-09 07:21
高级用户　发帖 413　积分 859
一看长的p，就晕所以，佩服能写的人

第3楼　SpikeKnox	发表于 2007-02-09 09:13
初级用户　发帖 28　积分 116
呵呵~谢谢捧场! 也不是很长啦。关键代码就这么多： For %%I IN (%category%) DO ( Echo + Echo. For /F "delims=" %%i IN ('grep -i "!%%I!" content.txt' DO ( If NOT EXIST %%I md %%I IF EXIST %%i ( Echo %%i & Move /y "%%i" %%I\ >NUL 2>NUL ) ) Echo. ) 如果不用grep的话，可以用 findstr 命令来替代，不过正则的功能就没那么强了 [ Last edited by SpikeKnox on 2007-2-8 at 08:18 PM* ]

第4楼　redtek	发表于 2007-02-09 11:11
金牌会员　发帖 1,147　积分 2,902
顶~~~欣赏+收藏~~~

第5楼　lovebaby001	发表于 2010-09-03 17:23
新手上路　发帖 12　积分 12
根据设定的关键字用grep过滤，请问grep是什么工具啊？