aloha20200628

回复 15# _avatar_

你用7楼代码处理1楼示例文件的结果也会出现这种问题吗？我用win7/win8.1/win10测试均正常无误...

_avatar_

回复 16# aloha20200628


    你测试的时候  entry.json 文件应该是保存的 ANSI 编码吧，需要 entry.json 是 utf-8 编码测试，因为脚本的作用是自动读取 entry.json 文件来提取标题，而 entry.json 文件有很多，编码都是 utf8

czjt1234

rem 另存为 ANSI 编码 bat
' & cls & cscript.exe /nologo /e:vbscript "%~f0" %* & pause & exit /b

f = "entry.json"    '源文件
u = "UTF-8"         '源文件的编码

Set oWshShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
s = oFSO.GetParentFolderName(WScript.ScriptFullname)
oWshShell.CurrentDirectory = s
Set oRegExp = New RegExp
oRegExp.Global     = True
oRegExp.MultiLine  = True
oRegExp.IgnoreCase = True
oRegExp.Pattern    = """title"":"".*?"""
Set oStream = CreateObject("ADODB.Stream")
oStream.Type    = 2    'adTypeText
oStream.Mode    = 3    'adModeReadWrite
oStream.Charset = u
oStream.Open()
oStream.LoadFromFile f
s = ""
For Each oMatch In oRegExp.Execute(oStream.ReadText())
    wsh.Echo oMatch.Value
Next
复制代码

aloha20200628

回复 15# _avatar_

调用 vbs/jscript 或下载或预装 grep/sed/awk/python/... 等都有方法可解，但在批处代码中直接调用 powershell 功能可以尽量简化这个问题，假设源文件 entry.json 是 utf-8 编码，以下代码存为 test.bat 运行...

@echo off & powershell "$p=((gc 'entry.json' -raw -enc 'utf8') -match '[^"""]+(?=""","""type_tag""")');$matches[0]">"0.0"&set/p v=<"0.0"
echo,%v%&del/q "0.0"&pause&exit/b
复制代码

_avatar_

回复 18# czjt1234


    你这个的确可以，vbs 我不懂，感谢指教！

_avatar_

回复 19# aloha20200628


    实际上我是在学习批处理，要解决问题本身我是有方法的，比如使用 nodejs。

    有打算学习一下 powershell 的，非常感谢指导！。