[已解决]麻烦修改个VBS替换文本的

lateol · 发表于 2013-5-25 18:22:30

自己研究了很久始终弄不懂这个替换的结构。

Dir = "==NC=="
Set fso = CreateObject("Scripting.FileSystemObject")
For Each file in fso.GetFolder(Dir).Files
Ext = fso.GetExtensionName(file)
If Lcase(Ext) = "nc" or Lcase(Ext) = "txt" _
or Lcase(Ext) = "ncd" or Lcase(Ext) = "pim" Then
ReplaceStr fso.OpenTextFile(file,1).ReadAll
End If
Next
Sub ReplaceStr(str)
Set re = New RegExp
re.Pattern = "==DK_T=="
re.Global = True
re.IgnoreCase = True
If not re.Test(str) Then Exit Sub
Do Until RegEx(a)
a = InputBox("===输入G43T编号[1~999]===",file.Name,"1")
If IsEmpty(a) Then Exit Sub
Loop
fso.OpenTextFile(file,2).Write re.Replace(str,"G43T" & a)
End Sub
Function RegEx(a)
Set reg = New RegExp
reg.Pattern = "^[1-9]\d{0,2}$"
RegEx = reg.Test(a)
End function

复制代码

以上代码处理是查找字符串"==DK_T==" 替换为 "G43Txx"  且是逐个文件修改
现在麻烦再改改改成以下形式
查找查找字符串"==DK_T==" 和 "==DK_T2=="  找到后 "==DK_T==" 替换为"G43TXX"  "==DK_T2==" 替换为M6HXXZ100.
输入框如输入 1 后 xxx.txt文本内包含"==DK_T==" 就替换为"G43T1"  "==DK_T2==" 替换为M6H1Z100. 且输入框数值1 自增+1
以此类推。
这样可以实现吗？
注：如当前目录有9个 txt文本都包含以上要替换的字符串，处理就只跳出VB窗口9次没一次替换中是直接查找两个字符串然后替换成两个不同字符串，就是自定义输入框的数值的一样的。
谢谢。

suiyanlovetian · 发表于 2013-5-25 19:37:08

本帖最后由 suiyanlovetian 于 2013-5-25 19:42 编辑

听得不太明白。lz能否再详细讲讲。改起来很容易的。

lateol · 发表于 2013-5-25 20:21:15

本帖最后由 lateol 于 2013-5-25 20:28 编辑

回复 2# suiyanlovetian

也就是说把文本内包含的"==DK_T=="和"==DK_T2==字符串都分别替换为G43TXX 和 M6HXXZ100。 XX表示输入框内自定义要输入的值【1~999】
比如说框内输入4 则吧该文本内的"==DK_T=="和"==DK_T2==字符串替换成G43T4 和 M6H4Z100。是同时替换。

lateol · 发表于 2013-5-25 20:29:02

回复 2# suiyanlovetian

呵呵不好意思错别字有点多嘻嘻。改过来了

suiyanlovetian · 发表于 2013-5-25 20:40:10

嗯，我明白了，vbs稍微学了点，也不久，正好练练手、根据你说的，不麻烦的。我试试先哈~

apang · 发表于 2013-5-25 20:43:46

楼主哇，我这代码并非什么好代码，就不要贴在这里献丑了。。。

再说，要是我来做，我宁愿重新来做，也不愿意在别人代码上修修补补

再再说，您发错板块啦

lateol · 发表于 2013-5-25 20:51:40

回复 6# apang

好吧那帮我重做一个非常感谢，很简单就是在查找字符串哪里再加多一个。"==DK_T2== 替换为 M6H值Z100.

就等你的出现了。

apang · 发表于 2013-5-25 20:59:20

回复 7# lateol

为什么就认为我一定会帮你呢？你知道你这样说话会得罪好多好多人吗？

suiyanlovetian · 发表于 2013-5-25 21:42:29

Dir = "==NC=="
Set fso = CreateObject("Scripting.FileSystemObject")
For Each file in fso.GetFolder(Dir).Files
Ext = fso.GetExtensionName(file)
If Lcase(Ext) = "nc" or Lcase(Ext) = "txt" _
or Lcase(Ext) = "ncd" or Lcase(Ext) = "pim" Then
ReplaceStr fso.OpenTextFile(file,1).ReadAll
End If
Next
Sub ReplaceStr(str)
Dim re_str1, re_str2
Set re = New RegExp
re.Pattern = "==DK_T(2)?=="
re.Global = True
re.IgnoreCase = True
If not re.Test(str) Then Exit Sub
Do Until RegEx(a)
a = InputBox("===输入编号[1~999]===",file.Name,"1")
If IsEmpty(a) Then Exit Sub
Loop
re_str1 = Replace(str, "==DK_T==", "G43T" & a)
re_str2 = Replace(re_str1, "==DK_T2==", "M6H" & a & "Z100")
fso.OpenTextFile(file,2).Write re_str2
End Sub
Function RegEx(a)
Set reg = New RegExp
reg.Pattern = "^[1-9]\d{0,2}$"
RegEx = reg.Test(a)
End function

复制代码

lateol · 发表于 2013-5-25 22:16:52

回复 8# apang

呵呵不管怎么样，我还是非常感谢你的。如果不喜欢提上你的名以后低调就是。

lateol · 发表于 2013-5-25 22:18:34

回复 9# suiyanlovetian
可以就这样。值没自增+1

		自动登录	找回密码
密码			注册

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

[问题求助] [已解决]麻烦修改个VBS替换文本的

评分

评分

浏览过的版块