Cómo convertir los caracteres chinos de los capítulos en números, ¡un maestro que conoce las expresiones regulares viene al rescate~!

Ya lo he escrito para usted, pero necesito enviarle el archivo ptnList.txt. Si lo envía aquí directamente, las regulaciones lo eliminarán.

Qué códigos VBS se publican:

Dim?fso, fd, fl, f, fdpath, findstr, repstr, ul, u

¿On?Error? ¿Reanudar?Siguiente

If?WScript.Arguments.Lengthgt;=1 Entonces fdpath?=?WScript.Arguments(0)

Else fdpath?=?InputBox("Por favor, introduzca la carpeta ruta: ", "Primer argumento") If?fdpath?=?"" Entonces?WScript.Quit

End?Iftmp?=?Split(WScript.ScriptFullName, "\")

tmp(UBound(tmp))?=?" ptnList Chapter.txt"

usrListPath?=?Join(tmp, "\")

Set?ul?=? ParseJson(GetFile(usrListPath))Set?fso?=?CreateObject("scripting.filesystemobject")

Set?fd?=?fso.GetFolder(fdpath)

Set?fl =fd.Files

For?each?f?in?fl doreplace?f.Path

Siguiente

MsgBox?" Reemplazo completado, verifique los resultados ".

,, Función "Preguntar"?ParseJson(strJson) Establecer?htmlfile?=?CreateObject("htmlfile") Establecer?owindow?=?htmlfile.parentWindow owindow.execScript?var?getJson?=?false","javascript" activado ?Error?Siguiente?Reanudar?'Si strJson no es una cadena json, lo siguiente será un error owindow.execScript?"getJson?true;?var?json_obj?=?" Activado?"Error al obtener json, saliendo de vbs" ,, "tya símbolo"

es decir.Salir

WScript.Salir ¿Fin?Salir ¿Fin?Si está configurado?ParseJson?=?owindow.json_obj

¿Fin? ¿Función?'Leer el archivo --gt;Reemplazar el contenido --gt;Guardar el archivo

Función?doreplace(filepath) Dim?FileName,?Find,?ReplaceWith,FileContents,dFileContents,regEx Set? regEx=New?RegExp?FileName?=?filepath? FileContents?=?GetFile(FileName) For?Each?u?In?ul regEx.Pattern?=?u.ptn

regEx.ReplaceWith?ReplaceWith =True

ReplaceWith=u.rep

FileContents=regEx.replace(FileContents, ReemplaceWith)

Siguiente paso

¿Escribir archivo?Nombre de archivo ,? FileContents

Finalizar función

"¿Leer archivo?

¿Función?GetFile(FileName)? If?FileNamelt;gt;"" ¿Entonces? ¿Dim? FS ,?FileStream? Set?FS?=?CreateObject("Scripting.FileSystemObject")? En caso de error Reanudar Siguiente Establecer FileStream = FS.OpenTextFile(FileName)?

"¿Escribir en el archivo?

¿Función WriteFile(Nombre de archivo, Contenido)?