[已解决]批处理如何提取Unicode编码文件中的字符串

523066680

回复 9# yuanyannian


    perl保存为.pl格式 python保存为.py格式，把里面的文件名替换成正确的，同目录下运行
前提是装了perl或者python的解释器。

CrLf

回复 14# DAIC


    以前我也以为是 1.0 的，后来才发现 win7 自带的其实是 2.0，被文件夹名骗了

yuanyannian

回复 12# apang

这个 vbs 脚本可以，但请教：

如何直接查找、替换 unicode 格式中的 字符串，并保持源文件格式不变？

apang

回复 18# yuanyannian

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. Set f = fso.OpenTextFile("HIVEDEF.INF", 1, false, -1)
   
3. s = Replace(f.ReadAll, """마름모""", """菱形""")
   
4. f.Close
   
5. fso.OpenTextFile("HIVEDEF.INF", 2, true, -1).Write s

复制代码

保存为test.vbs， unicode编码

yuanyannian

回复 19# apang


太好了很成功，谢谢！！！

apang 老师，可否再帮忙写一个vbs（我是笨鸟）：

1. 源文件见附件，是 unicode 格式，处理过程中及处理后要保持 unicode 格式不变。
2. 查找其中的 HKCU,"，替换为 HKLM，"WB-default\。
3. 查找其中的 HKLM,"SYSTEM，替换为 HKLM，"WB-setup。
4. 查找其中的 HKLM,"SOFTWARE，替换为 HKLM，"WB-software。
5. 添加 [DEFAULTINSTALL] 一行。
6. 再添加 ADDREG = AddReg 一行。
先感谢！

源文件格式（节选）：

apang

回复 20# yuanyannian


    以后像这种与主题无关的问题请重新开贴

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. Set f = fso.OpenTextFile("test.txt", 1, false, -1)
   
3. s = f.ReadAll : f.Close
   
4. s = Replace(s, "HKCU,""", "HKLM,""WB-default")
   
5. s = Replace(s, "HKLM,""SYSTEM", "HKLM,""WB-setup")
   
6. s = Replace(s, "HKLM,""SOFTWARE", "HKLM,""WB-software")
   
7. s = "[DEFAULTINSTALL]" & vbCrLf & "ADDREG = AddReg" & vbCrLf & vbCrLf & s
   
8. fso.OpenTextFile("test.txt", 2, true, -1).Write s

复制代码

yuanyannian

回复 21# apang

知道了，谢谢 apang 老师。
这个问题解决了大问题，再次感谢！！！