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

窄口牛

列表现在是这样的

某台
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的行，循环结束

窄口牛

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

went

@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

@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
复制代码

窄口牛

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