VB实例02

@echo off

SET CURRENT_DISK=%~d0
SET CURRENT_PATH=%~dp0

set Read_File=%CURRENT_PATH%MP4_result.txt
set Write_File=%CURRENT_PATH%list_mp4.txt
rem Z:\mediaos\media\media_demux\hisi\
set Video_Path=

set current_url_path=""
set current_url_result="noResult"

setlocal EnableDelayedExpansion

for /f "tokens=*" %%a in (%Read_File%) do (
    REM echo %%a
    set is_url="false"
    set is_url_pass="false"
    set is_url_fail="false"
    echo "%%a"|find "TEST:The url is :">nul&&set is_url="true"
    echo "%%a"|find "TEST: PASSSSSSSSSSSSSS">nul&&set is_url_pass="true"
    echo "%%a"|find "TEST: FAILED">nul&&set is_url_fail="true"
    
    if !current_url_path!=="" (
        if !is_url!=="true" (
            rem set current url
            set current_url_path=%%a
            rem set current url result
            set current_url_result="noResult"
        )
    ) else (
        if !is_url_pass!=="true" (
            rem set current url pass
            set current_url_result="pass"
        )
    
        if !is_url_fail!=="true" (
            rem set current url fail
            set current_url_result="fail"
        )
        
        if !is_url!=="true" (
            rem write result into Write_File
            call:WriteRestltToTXT
            rem set current_url
            set current_url_path=%%a
            rem set current url result
            set current_url_result="noResult"
        )
    )
)

goto end

:WriteRestltToTXT
echo\
echo START VIDEO----------------------------------
echo ++ !current_url_result!---!current_url_path!
if !current_url_result!=="noResult" (
    echo ++ no_result
) else (
    echo ++ have result
    echo !current_url_result! !current_url_path!>>!Write_File!
)
echo END VIDEO------------------------------------
echo\
goto:eof

:end
echo END..............
pause