批处理之家 - Powered by Discuz! Board

标题: [文本处理] 直播源列表处理问题（已解决） [打印本页]

作者: 窄口牛 时间: 2020-2-18 13:12 标题: 直播源列表处理问题（已解决）

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

列表现在是这样的

某台
http://www.bathome.net/post.php?action=newthread&fid=5
http://www.bathome.net/post.php?action=newthread&fid=5
http://www.bathome.net/post.php?action=newthread&fid=5
某某台
http://www.bathome.net/post.php?action=newthread&fid=5
某某某台
http://www.bathome.net/post.php?action=newthread&fid=5
http://www.bathome.net/post.php?action=newthread&fid=5
复制代码

现在需要变成

某台
http://www.bathome.net/post.php?action=newthread&fid=5
某台
http://www.bathome.net/post.php?action=newthread&fid=5
某台
http://www.bathome.net/post.php?action=newthread&fid=5
某某台
http://www.bathome.net/post.php?action=newthread&fid=5
某某某台
http://www.bathome.net/post.php?action=newthread&fid=5
某某某台
http://www.bathome.net/post.php?action=newthread&fid=5
复制代码

也就是把开头不是http的行向下插，直到出现另一个不是http的行，循环结束

作者: 窄口牛 时间: 2020-2-18 22:57

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

作者: went 时间: 2020-2-19 21:39

@echo off
for /f "usebackq delims=" %%i in ("0.txt") do (
	echo "%%i" | findstr "http" >nul 2>nul && (
		call echo %%key%% 
		echo %%i
	) || (
		set "key=%%i"
	)
)
pause
复制代码

0.txt是源文件

作者: zaqmlp 时间: 2020-2-19 22:19

@echo off
setlocal enabledelayedexpansion
set info=互助互利,支付宝扫码头像,感谢打赏
rem 有问题,可加QQ956535081及时沟通
title %info%
cd /d "%~dp0"
set "txtfile=xxx.txt"
for /f "delims=" %%a in ('type "%txtfile%"') do (
    set "line=%%a"
    if /i "!line:~,4!" neq "http" (
        set "title=!line!"
    ) else (
        echo;!title!
        echo;!line!
    )
)
:end
echo;%info%
pause
exit
复制代码

作者: 窄口牛 时间: 2020-2-19 22:30

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

欢迎光临批处理之家 (http://www.bathome.net/)