[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. @echo off
  2. pushd "%~sdp0"
  3. setlocal enabledelayedexpansion
  4. for /l %%a in (0,1,9) do (set .%%a=1)
  5. (for /f "delims=" %%a in (歌手.txt) do (
  6.     set q=%%a
  7.     set w=!q:~0,1!
  8.     if defined .!w! (echo;@@%%a) else (echo;%%a)
  9. ))>歌手2.txt
  10. pause
复制代码

TOP

本帖最后由 路过 于 2021-1-12 14:59 编辑

回复 10# toyerspollors
歌手1的代码
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. pushd "%~sdp0"
  4. for /f %%a in ('findstr /v "^^^$" "歌手1.txt" ^| find /c /v ""') do set line=%%a
  5. (
  6.     for /l %%a in (1,1,%line%) do (set "q="
  7.         set /p q=
  8.         if "!q!"=="" (echo;) else (
  9.             set w=!q:~0,1!
  10.             if "!w!"=="第" (echo;@@!q!) else (echo;!q!)
  11.         )
  12.     )
  13. )<歌手1.txt>n歌手1.txt
  14. pause
复制代码
歌手2的代码
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. pushd "%~sdp0"
  4. for %%a in (一 二 三 四 五 六 七 八 九) do (set .%%a=1)
  5. for /f %%a in ('findstr /v "^^^$" "歌手2.txt" ^| find /c /v ""') do set line=%%a
  6. (
  7.     for /l %%a in (1,1,%line%) do (set "q="
  8.         set /p q=
  9.         if "!q!"=="" (echo;) else (
  10.             set w=!q:~0,1!
  11.             if defined .!w! (echo;@@!q!) else (echo;!q!)
  12.         )
  13.     )
  14. )<歌手2.txt>n歌手2.txt
  15. pause
复制代码

TOP

本帖最后由 路过 于 2021-1-13 08:23 编辑

一楼要的代码
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. pushd "%~sdp0"
  4. for /l %%a in (1,1,9) do (set .%%a=1)
  5. for /f %%a in ('findstr /v "^^^$" "歌手111.txt" ^| find /c /v ""') do set line=%%a
  6. (
  7.     for /l %%a in (1,1,%line%) do (set "q="
  8.         set /p q=
  9.         if "!q!"=="" (echo;) else (
  10.             for /f "tokens=*" %%b in ("!q!") do (set w=%%b
  11.                 set w=!w:~0,1!!w:~23,1!
  12.                 if defined .!w! (echo;@@%%b) else (echo;!q!)
  13.             )
  14.         )
  15.     )
  16. )<歌手111.txt>n歌手111.txt
  17. pause
复制代码

TOP

返回列表