[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 WHY 于 2019-1-7 20:56 编辑
  1. @if(0)==(0) echo off
  2. cscript //nologo //e:jscript "%~f0" < b.txt
  3. pause & goto :EOF
  4. @end
  5. var arr = [], i = j = 0;
  6. var fso = new ActiveXObject('Scripting.FileSystemObject');
  7. var str = fso.OpenTextFile('a.txt', 1).ReadAll();
  8. while(!WSH.StdIn.AtEndOfStream){
  9.     var n = Math.floor( i++ / 4 );
  10.     if(!arr[n]) arr[n] = [];
  11.     arr[n].push( WSH.StdIn.ReadLine() );
  12. }
  13. str = str.replace(/^教程如图所示:(?=\r\n|$)/gm, function(s){if(arr[j]) s+='\r\n'+arr[j].join('\r\n'); j++; return s});
  14. WSH.Echo(str)
复制代码

TOP

  1. @echo off
  2. (for /f "delims=" %%i in ('findstr /n .* a.txt') do (
  3.     set "str=%%i"
  4.     setlocal enabledelayedexpansion
  5.     set "str=!str:*:=!"
  6.     echo;!str!
  7.     if "!str!" == "教程如图所示:" (
  8.         for /L %%j in (1 1 4) do (
  9.             set "str=" & set /p "str="
  10.             if not "!str!" == "" echo;!str!
  11.         )
  12.     )
  13.     endlocal
  14. )) < b.txt
  15. pause
复制代码
1

评分人数

TOP

  1. gawk "1;/^教程如图所示:$/{for(i=0;i<4;i++){getline s<\"b.txt\";if(s){print s;s=\"\"}}}" a.txt > c.txt
复制代码
1

评分人数

TOP

返回列表