[文本处理] 批处理如何获取json文件里的特定字符串？

for /f "delims=" %%i in ('dir/a-d/s/b "*.txt"')do (
for /f "usebackq delims=" %%j in ("%%~fi")do (
  set "#=%%j"
  call:0
  echo,!title!!part!!avid!%%~xi
)
)
pause
goto:eof
:0
set "title="
set "avid="
set "part="
:1
if not defined # goto:eof
for /f "tokens=1,* delims={}:," %%y in ("!#!")do (
set "#=%%z"
for /f "delims=" %%i in (""title"")do if /i "%%y"=="%%i" (
  for /f "tokens=1,* delims=:," %%y in ("%%z")do (
   set "%%~i=%%~y"
   if defined %%~i set "%%~i=%%~y"
  )
)
for /f "delims=" %%i in (""avid"")do if /i "%%y"=="%%i" (
  for /f "tokens=1,* delims=:," %%y in ("%%z")do (
   set "%%~i=%%~y"
   if defined %%~i set "%%~i= (%%~y)"
  )
)
for /f "delims=" %%i in (""part"")do if /i "%%y"=="%%i" (
  for /f "tokens=1,* delims=:," %%y in ("%%z")do (
   set "%%~i=%%~y"
   if defined %%~i set "%%~i=_%%~y"
  )
)
)
goto:1
goto:eofCOPY

/*&cls
@echo off
dir /a-d/b/s 0.blv|cscript -nologo -e:jscript "%~f0"
pause&exit
*/
 
function ReadText(file, charset){
    var txt="";
    try{
        var stream = new ActiveXObject('ADODB.Stream')
        stream.Type = 2
        stream.Mode = 3
        stream.Charset = charset
        stream.Open()
        stream.LoadFromFile(file)
        stream.Position = 0
        txt = stream.ReadText()
    }catch(Err){}
    stream.Close()
    return txt
}
 
var fso=new ActiveXObject('Scripting.FileSystemObject');
var blv=WSH.StdIn.ReadAll().split(/[\r\n]+/);
for(var i=0;i<blv.length;i++){
    var json = blv[i].replace(/[^\\]+\\[^\\]+$/,'')+'entry.json';
    if(fso.FileExists(json)){
        var txt=ReadText(json, 'utf-8');
        var m=eval('('+txt+')');
        var newname=m['title']+'_'+m['page_data']['part']+'('+
            m['avid']+'_'+m['page_data']['page']+').flv';
            WSH.echo('ren "'+blv[i]+'" "'+newname+'"');
    }
}}COPY

@echo off
for %%a in ("avid":2054259,"page":1,"part":"正片","title":"unity3d教程-[夜黑风高yoo]-第一节-基础",……) do echo;%%a
pauseCOPY

for /f "delims=" %%i in (9182057\1\Entry.json) do set "dtc=%%i"
set "dtc=%dtc:~1%"
set "dtc=%dtc::==%"
echo;%dtc%
pause
for /f "delims=" %%a in ("%dtc%") do echo set %%a
pauseCOPY

@echo off
more +9 "%~f0"|mshta ^
    ^"javascript:var fso=new ActiveXObject('Scripting.FileSystemObject');^
    var txt=fso.GetStandardStream(0).readall();^
    var json=eval('('+txt+')');^
    var out=json['title']+'\r\n'+json['page_data']['part']+'\r\n'+^
        json['avid']+'\r\n'+json['page_data']['page'];^
    fso.GetStandardStream(1).Write(out);close()^"|more
pause&exit
{"is_completed":true,"total_bytes":13861107,"downloaded_bytes":13861107,"title":"Mac软件推荐","type_tag":"lua.hdmp4.bili2api.2","cover":"http:\/\/i0.hdslb.com\/bfs\/archive\/141628374019371b16b0dca8bbdb28a2404a14ce.jpg","prefered_video_quality":200,"guessed_total_bytes":0,"total_time_milli":162912,"danmaku_count":5,"time_update_stamp":1492462494756,"avid":9182057,"spid":0,"seasion_id":0,"page_data":{"cid":15171062,"page":1,"from":"vupload","part":"P1","link":"","rich_vid":"","vid":"vupload_15171062","has_alias":false,"weblink":"","tid":95}}COPY

::{"is_completed":true,"total_bytes":13861107,"downloaded_bytes":13861107,"title":"Mac软件推荐","type_tag":"lua.hdmp4.bili2api.2","cover":"http:\/\/i0.hdslb.com\/bfs\/archive\/141628374019371b16b0dca8bbdb28a2404a14ce.jpg","prefered_video_quality":200,"guessed_total_bytes":0,"total_time_milli":162912,"danmaku_count":5,"time_update_stamp":1492462494756,"avid":9182057,"spid":0,"seasion_id":0,"page_data":{"cid":15171062,"page":1,"from":"vupload","part":"P1","link":"","rich_vid":"","vid":"vupload_15171062","has_alias":false,"weblink":"","tid":95}}
@echo off
set /p json=<"%~f0"
for %%a in (%json:~3,-1%) do echo;%%a
pauseCOPY

ren "C:\Users\xxx\Desktop\Newfolder\2054259\1\lua.hdmp4.bili2api.2\0.blv" "unity3d鏁欑▼-[澶滈粦椋庨珮yoo]-绗竴鑺?鍩虹_姝ｇ墖(2054259_1).flv"
ren "C:\Users\xxx\Desktop\Newfolder\2054259\2\lua.hdmp4.bili2api.2\0.blv" "unity3d鏁欑▼-[澶滈粦椋庨珮yoo]-绗竴鑺?鍩虹_璧犲搧(2054259_2).flv"
C:\Users\xxx\Desktop\Newfolder\求助得来的批处理2.bat(13, 9) Microsoft JScript compilation error: Expected '}'
 
Press any key to continue . . .COPY