[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
yuanyannian

Rank: 3Rank: 3

帖子
122 
积分
251 
技术
1  
捐助
0  
注册时间
2009-8-24 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2014-8-1 06:45 | 显示全部帖子

[问题求助] [已解决]VBS怎样处理 unicode 格式文件？

本帖最后由 yuanyannian 于 2014-8-5 19:52 编辑

处理 windows 安装盘中 HIVEDEF.INF 等 unicode 格式文件，得到 apang 老师的很大帮助，但由于本人对批处理实在是外行，每一步都不会写，所以不断麻烦并请教各位老师，请原谅！
现在的问题是，我想按如下方式处理 HIVEDEF.INF 等 unicode 格式文件，需要老师帮忙：
  1. '命令提示符下 输入的格式如 zzz.vbs -Saaa -TD:\zzz

  2. '如参数为 aaa，则跳转到 Function  aaa()；如参数为 bbb，则跳转到 Function  bbb()；如参数为 ccc，则跳转到 Function  ccc()；等等。

  3. '源文件为 unicode，需要保持原格式不变

  4. '如何接收第二个外部参数（变量），并截取 -T后面输入的路径作为变量（如 D:\zzz），后面将调用这个变量作为源文件的路径如 %zzz%

  5. 

  6. 

  7. '如下格式执行不正确，如何修改？

  8. Set oArgs = WScript.Arguments

  9. If oArgs(0)="aaa" Then

  10.   Call aaaSE()

  11. ElseIf oArgs(0)="bbb" Then

  12.   Call bbbSE()

  13. ElseIf oArgs(0)="ccc" Then

  14.   Call cccSE()

  15. End If

  16. '退出

  17. 

  18. Function  aaa()

  19.   Set fso = CreateObject("Scripting.FileSystemObject")

  20.   Set f = fso.OpenTextFile("HIVEDEF.INF", 1, false, -1)  '其中的 HIVEDEF.INF，改为 %xxx%\HIVEDEF.INF

  21.   s = f.ReadAll : f.Close

  22.   s = Replace(f.ReadAll, "HKCU,""", "HKLM,""WB-default\")

  23.   s = "[DEFAULTINSTALL]" & vbCrLf & "ADDREG = AddReg" & vbCrLf & vbCrLf & s

  24.   fso.OpenTextFile("HIVEDEF.INF", 2, true, -1).Write s

  25. '安装 %xxx%\HIVEDEF.INF

  26. End Function

  27. '退出

  28. 

  29. Function  bbb()

  30.   Set fso = CreateObject("Scripting.FileSystemObject")

  31.   Set f = fso.OpenTextFile("HIVESFT.INF", 1, false, -1)  '其中的 HIVESFT.INF，改为 %xxx%\HIVESFT.INF

  32.   s = f.ReadAll : f.Close

  33.   s = Replace(f.ReadAll, "HKLM,""SOFTWARE\", "HKLM,""WB-software\")

  34.   s = "[DEFAULTINSTALL]" & vbCrLf & "ADDREG = AddReg" & vbCrLf & vbCrLf & s

  35.   fso.OpenTextFile("HIVESFT.INF", 2, true, -1).Write s

  36. '安装 %xxx%\HIVESFT.INF

  37. End Function

  38. '退出

  39. 

  40. Function  ccc()

  41.   Set fso = CreateObject("Scripting.FileSystemObject")

  42.   Set f = fso.OpenTextFile("HIVESYS.INF", 1, false, -1)  '其中的 HIVESYS.INF，改为 %xxx%\HIVESYS.INF

  43.   s = f.ReadAll : f.Close

  44.   s = Replace(f.ReadAll, "HKLM,""SYSTEM\", "HKLM,""WB-setup\")

  45.   s = "[DEFAULTINSTALL]" & vbCrLf & "ADDREG = AddReg" & vbCrLf & vbCrLf & s

  46.   fso.OpenTextFile("HIVESYS.INF", 2, true, -1).Write s

  47. '安装 %xxx%\HIVESYS.INF

  48. End Function

  49. '退出
复制代码
...
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享
76626yyn

yuanyannian

Rank: 3Rank: 3

帖子
122 
积分
251 
技术
1  
捐助
0  
注册时间
2009-8-24 
2楼
发表于 2014-8-1 19:17 | 显示全部帖子
期待老师出手相助，感谢了！
76626yyn

TOP

yuanyannian

Rank: 3Rank: 3

帖子
122 
积分
251 
技术
1  
捐助
0  
注册时间
2009-8-24 
3楼
发表于 2014-8-1 19:40 | 显示全部帖子
本帖最后由 yuanyannian 于 2014-8-1 19:41 编辑

这电脑慢的害人。
76626yyn

TOP

yuanyannian

Rank: 3Rank: 3

帖子
122 
积分
251 
技术
1  
捐助
0  
注册时间
2009-8-24 
4楼
发表于 2014-8-1 22:05 | 显示全部帖子
回复 4# apang

首先感谢。

路径截取、调用没问题，HIVEDEF.INF 中的字符可成功替换，但其它两个文本（HIVESFT.INF、HIVESYS.INF 未能执行替换），
看代码中似乎没有针对 HIVESFT.INF、HIVESYS.INF 文件和路径？
再者，需要处理的可能还有更多的文件（同样格式）。

apang 老师辛苦了。
76626yyn

TOP

yuanyannian

Rank: 3Rank: 3

帖子
122 
积分
251 
技术
1  
捐助
0  
注册时间
2009-8-24 
5楼
发表于 2014-8-2 07:09 | 显示全部帖子
回复 4# apang


我把代码改为如下：
  1. msg = "命令提示符下 输入的格式如 zzz.vbs -Saaa -TD:\zzz"

  2. Set fso = CreateObject("Scripting.FileSystemObject")

  3. Set oArgs = WScript.Arguments

  4. If oArgs.Count >= 2 Then

  5.     fd = Mid(oArgs(1), 3) & "\"

  6. ElseIf oArgs.Count = 1 Then

  7.     fd = ".\"

  8. Else

  9.     MsgBox msg, , "提示" : WScript.Quit

  10. End If

  11. 

  12. If Mid(oArgs(0), 3) = "aaa" Then

  13.     Call ReplaceDEF()

  14. ElseIf Mid(oArgs(0), 3) = "bbb" Then

  15.     Call ReplaceSFT()

  16. ElseIf Mid(oArgs(0), 3) = "ccc" Then

  17.     Call ReplaceSYS()

  18. Else

  19.     MsgBox msg, , "提示" : WScript.Quit

  20. End If

  21. 

  22. Function ReplaceDEF()

  23.   Set f = fso.OpenTextFile(fd & "HIVEDEF.INF", 1, false, -1)

  24.   s = Replace(f.ReadAll, "HKCU,""", "HKLM,""WB-default\")

  25.   s = "[DEFAULTINSTALL]" & vbCrLf & "ADDREG = AddReg" & vbCrLf & vbCrLf & s

  26.   fso.OpenTextFile(fd & "HIVEDEF.INF", 2, true, -1).Write s

  27.   f.Close

  28. End Function

  29. 

  30. Function ReplaceSFT()

  31.   Set f = fso.OpenTextFile(fd & "HIVESFT.INF", 1, false, -1)

  32.   s = Replace(f.ReadAll, "HKLM,""SOFTWARE\", "HKLM,""WB-software\")

  33.   s = "[DEFAULTINSTALL]" & vbCrLf & "ADDREG = AddReg" & vbCrLf & vbCrLf & s

  34.   fso.OpenTextFile(fd & "HIVESFT.INF", 2, true, -1).Write s

  35.   f.Close

  36. End Function

  37. 

  38. Function ReplaceSYS()

  39.   Set f = fso.OpenTextFile(fd & "HIVESYS.INF", 1, false, -1)

  40.   s = Replace(f.ReadAll, "HKLM,""SYSTEM\", "HKLM,""WB-setup\")

  41.   s = "[DEFAULTINSTALL]" & vbCrLf & "ADDREG = AddReg" & vbCrLf & vbCrLf & s

  42.   fso.OpenTextFile(fd & "HIVESYS.INF", 2, true, -1).Write s

  43.   f.Close

  44. End Function
复制代码
可以达到要求---aaa 时处理 HIVEDEF.INF，bbb 时处理 HIVESFT.INF，ccc 时处理 HIVESYS.INF，但问题来了：它区分大小写，也就是只能处理替换大写字符，请教如何让它不分大小写？
另外，可否处理完以后，运行安装如 HIVEDEF.INF？
bat 下安装 .inf 命令是 rundll32 syssetup,SetupInfObjectInstallAction DefaultInstall 128（或132） D:\inf\default.inf，vbs 中如何做？
76626yyn

TOP

yuanyannian

Rank: 3Rank: 3

帖子
122 
积分
251 
技术
1  
捐助
0  
注册时间
2009-8-24 
6楼
发表于 2014-8-2 19:45 | 显示全部帖子
回复 7# apang

好用，谢谢 apang 老师！

不过，如果需要替换两个以上不同的字符串，不分大小写就不行了。
另外，INF 安装总是失败。
76626yyn

TOP

yuanyannian

Rank: 3Rank: 3

帖子
122 
积分
251 
技术
1  
捐助
0  
注册时间
2009-8-24 
7楼
发表于 2014-8-2 20:02 | 显示全部帖子
回复 7# apang

再请教 apang 老师，在您的指导帮助下，基本完成了成品的 vbs，用于处理 unicode 格式文件。主要作用：

1. 运行方式：xxx.vbs -Szzzz.inf -Td:\zzz
2. 如 zzzz.inf 为 ANSI 格式，就转换为 unicode 格式
3. 替换其中的注册表项指向为可挂载的非本系统的注册表文件
4. 安装 inf 文件（实际作用是将 INF 中的内容注入到非本系统的注册表文件）

存在的问题：
1. 代码过于凌乱，也可能有错误的地方，想请老师修改简化一些。
2. 如需要有两处以上替换的，希望均设置成不分大小写。
76626yyn

TOP

yuanyannian

Rank: 3Rank: 3

帖子
122 
积分
251 
技术
1  
捐助
0  
注册时间
2009-8-24 
8楼
发表于 2014-8-3 13:22 | 显示全部帖子
回复 10# apang

非常完美，非常感谢 apang 老师，老师辛苦了！！！

谢！谢！谢！
76626yyn

TOP

yuanyannian

Rank: 3Rank: 3

帖子
122 
积分
251 
技术
1  
捐助
0  
注册时间
2009-8-24 
9楼
发表于 2014-8-3 21:12 | 显示全部帖子
回复 10# apang

第一部分修改了一下，意思是判断在三个参数、两个参数、一个参数情况下执行的结果，要求准确输入参数，不知可对？
  1. If oArgs.Count = 3 Then

  2.     If Left(oArgs(0),2) = "-S" and (Left(oArgs(1),2) = "-T") and (Left(oArgs(2),2) = "-I") Then

  3.         sd = Mid(oArgs(2), 3) & "\"

  4.         fd = Mid(oArgs(1), 3) & "\"

  5.     Else MsgBox "Input error!"&vbcrlf&vbcrlf&msg : WScript.Quit

  6.     End If

  7. ElseIf oArgs.Count = 2 Then

  8.     If Left(oArgs(0),2) = "-S" and (Left(oArgs(1),2) = "-T") Then

  9.         sd = Left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,"\"))

  10.         fd = Mid(oArgs(1), 3) & "\"

  11.     Else MsgBox "Input error!"&vbcrlf&vbcrlf&msg : WScript.Quit

  12.     End If

  13. ElseIf oArgs.Count = 1 Then

  14.     If oArgs(0) = "?" Then

  15.         MsgBox msg

  16.     ElseIf Left(oArgs(0),2) = "-S" Then

  17.         sd = Left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,"\"))

  18.         fd = Left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,"\"))

  19.     Else MsgBox "Input error!"&vbcrlf&vbcrlf&msg : WScript.Quit

  20.     End If

  21. Else MsgBox "Input error!"&vbcrlf&vbcrlf&msg : WScript.Quit

  22. End If
复制代码
76626yyn

TOP

yuanyannian

Rank: 3Rank: 3

帖子
122 
积分
251 
技术
1  
捐助
0  
注册时间
2009-8-24 
10楼
发表于 2014-8-4 07:03 | 显示全部帖子
回复 10# apang


刚才发现 Case 语句不好用，输入序列以外的任意文件，总提示“文件无法打开”，并不显示 msgbox？
76626yyn

TOP

返回列表