[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文本处理] 直播源列表处理问题(已解决)

本帖最后由 窄口牛 于 2020-2-19 22:28 编辑

列表现在是这样的
  1. 某台
  2. http://www.bathome.net/post.php?action=newthread&fid=5
  3. http://www.bathome.net/post.php?action=newthread&fid=5
  4. http://www.bathome.net/post.php?action=newthread&fid=5
  5. 某某台
  6. http://www.bathome.net/post.php?action=newthread&fid=5
  7. 某某某台
  8. http://www.bathome.net/post.php?action=newthread&fid=5
  9. http://www.bathome.net/post.php?action=newthread&fid=5
复制代码
现在需要变成
  1. 某台
  2. http://www.bathome.net/post.php?action=newthread&fid=5
  3. 某台
  4. http://www.bathome.net/post.php?action=newthread&fid=5
  5. 某台
  6. http://www.bathome.net/post.php?action=newthread&fid=5
  7. 某某台
  8. http://www.bathome.net/post.php?action=newthread&fid=5
  9. 某某某台
  10. http://www.bathome.net/post.php?action=newthread&fid=5
  11. 某某某台
  12. http://www.bathome.net/post.php?action=newthread&fid=5
复制代码
也就是把开头不是http的行向下插,直到出现另一个不是http的行,循环结束

这是啥语言?bat处理这种有难度,vbs应该可以。

TOP

  1. @echo off
  2. for /f "usebackq delims=" %%i in ("0.txt") do (
  3. echo "%%i" | findstr "http" >nul 2>nul && (
  4. call echo %%key%%
  5. echo %%i
  6. ) || (
  7. set "key=%%i"
  8. )
  9. )
  10. pause
复制代码
0.txt是源文件

TOP

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set info=互助互利,支付宝扫码头像,感谢打赏
  4. rem 有问题,可加QQ956535081及时沟通
  5. title %info%
  6. cd /d "%~dp0"
  7. set "txtfile=xxx.txt"
  8. for /f "delims=" %%a in ('type "%txtfile%"') do (
  9.     set "line=%%a"
  10.     if /i "!line:~,4!" neq "http" (
  11.         set "title=!line!"
  12.     ) else (
  13.         echo;!title!
  14.         echo;!line!
  15.     )
  16. )
  17. :end
  18. echo;%info%
  19. pause
  20. exit
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

经过两个群里的两个老师的点拨,自己已经搞定
也谢谢上面各位的教导。

TOP

返回列表