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

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
16楼 跳转到 »
发表于 2014-7-29 20:52 | 只看该作者
回复 9# yuanyannian


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

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
17楼
发表于 2014-7-29 22:15 | 只看该作者
回复 14# DAIC


    以前我也以为是 1.0 的，后来才发现 win7 自带的其实是 2.0，被文件夹名骗了
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

yuanyannian

Rank: 3Rank: 3

帖子
122 
积分
251 
技术
1  
捐助
0  
注册时间
2009-8-24 
18楼
发表于 2014-7-31 13:30 | 只看该作者
回复 12# apang

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

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

TOP

apang

Rank: 8Rank: 8

帖子
2085 
积分
14204 
技术
665  
捐助
0  
注册时间
2011-11-27 
19楼
发表于 2014-7-31 16:29 | 只看该作者
回复 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编码

TOP

yuanyannian

Rank: 3Rank: 3

帖子
122 
积分
251 
技术
1  
捐助
0  
注册时间
2009-8-24 
20楼
发表于 2014-7-31 17:01 | 只看该作者
回复 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 一行。
先感谢！

源文件格式（节选）：
76626yyn

TOP

apang

Rank: 8Rank: 8

帖子
2085 
积分
14204 
技术
665  
捐助
0  
注册时间
2011-11-27 
21楼
发表于 2014-7-31 20:25 | 只看该作者
回复 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
复制代码

TOP

yuanyannian

Rank: 3Rank: 3

帖子
122 
积分
251 
技术
1  
捐助
0  
注册时间
2009-8-24 
22楼
发表于 2014-7-31 20:56 | 只看该作者
回复 21# apang

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

TOP

12
返回列表