[已解决]批处理怎样获取文本内容显示并自定义替换？

lateol · 发表于 2013-3-12 12:57:51

本帖最后由 lateol 于 2013-3-14 12:28 编辑

如当前目录有XX个txt
每个txt 里都有如下字符串：S3000 S3500 S4000 S4500.....等
如何查找到文本显示字符后面的数值并替换。
一个txt里可能有多个多个这样的值希望显示的时候能以最小值~最大值显示
如：最小值：S3000 ~最大值：S3500

我的思路如下：
查找当前abc文件夹里所有txt文本内容，查找到如以上的值：S3000 S3500 S4000 S4500 并显示
进行逐个修改：如
=======================
（文件名）1.txt （查找到的S值）最小值：S3000 ~最大值：S3500

请输入要把以上的值统一替换为：xxxx
========================
之后就把文本内容的S3000至S3500 全部替换为xxxxx
不知能都实现这样类型处理。

wankoilz · 发表于 2013-3-12 13:19:21

传个附件来看看吧

BAT-VBS · 发表于 2013-3-12 21:05:05

@echo off
setlocal enabledelayedexpansion
for /f %%a in ('findstr "^S" a.txt') do (
set str=%%a
set str=!str:M03=!
echo,!str!
)
pause

复制代码

wankoilz · 发表于 2013-3-12 22:55:26

我觉得楼主的要求用vbs实现起来稳妥点，加上了排序显示功能，看起来有点臃肿。
搜索匹配的是：S后面跟几个数字和M03
把vbs放到待处理txt文件一起运行

Option Explicit
Dim FSO,file,ofile,strText
Set FSO=CreateObject("scripting.filesystemobject")
For Each file In FSO.GetFolder(".").Files
If LCase(FSO.GetExtensionName(file))="txt" Then
Set ofile=FSO.OpenTextFile(file,1)
strText=ofile.ReadAll():ofile.Close
Set ofile=FSO.OpenTextFile(file,2)
ofile.Write(ShowAndReplace(strText,file.Name))
ofile.Close
End If
Next
WScript.Echo "处理结束！"
Function ShowAndReplace(str,filename)
Dim Matches,Match
Dim i,j,intCount,dicTmp,strTmp,strShow,strSource
With CreateObject("vbscript.regexp")
.Global=True
.IgnoreCase=True
.Multiline=True
.pattern="S[1-9]\d*(?=M03)"
If .Test(str)=True Then
Set Matches=.Execute(str)
Set dicTmp=CreateObject("scripting.dictionary")
For Each Match In Matches
intCount=intCount+1
dicTmp.Add intCount,Match
Next
'排序
For i=1 To dicTmp.Count-1
For j=i+1 To dicTmp.Count
If dicTmp.Item(i)>dicTmp.Item(j) Then
strTmp=dicTmp.Item(i)
dicTmp.Item(i)=dicTmp.Item(j)
dicTmp.Item(j)=strTmp
End If
Next
Next
For i=1 To dicTmp.Count
strShow=strShow&dicTmp.Item(i)&vbCrLf
Next
strSource=InputBox(strShow,filename&"的搜索结果,请输入替换值：")
ShowAndReplace=.Replace(str,strSource)
Else
ShowAndReplace=str
End If
End With
End Function

复制代码

lateol · 发表于 2013-3-13 12:33:14

本帖最后由 lateol 于 2013-3-13 13:25 编辑

回复 5# BAT-VBS
试了一下可以查找到并显示。但是显示出来的变量如何再用来替换呢。
如：
这个文本内有 S3000 S3500 S3000
这三个变量然后把他们全部一次修改就如 wankoilz 写的vbs替换方式。
能实现吗？

wankoilz · 发表于 2013-3-13 12:59:02

是这样吗：

Option Explicit
Dim FSO,file,ofile,strText
Set FSO=CreateObject("scripting.filesystemobject")
For Each file In FSO.GetFolder(".").Files
If LCase(FSO.GetExtensionName(file))="txt" Then
Set ofile=FSO.OpenTextFile(file,1)
strText=ofile.ReadAll():ofile.Close
Set ofile=FSO.OpenTextFile(file,2)
ofile.Write(ShowAndReplace(strText,file.Name))
ofile.Close
End If
Next
WScript.Echo "处理结束！"
Function ShowAndReplace(str,filename)
Dim Matches,Match
Dim i,j,intCount,dicTmp,strTmp,strShow,strSource
With CreateObject("vbscript.regexp")
.Global=True
.IgnoreCase=True
.Multiline=True
.pattern="S[1-9]\d*(?=M03)"
If .Test(str)=True Then
Set Matches=.Execute(str)
Set dicTmp=CreateObject("scripting.dictionary")
For Each Match In Matches
intCount=intCount+1
dicTmp.Add intCount,Match
Next
'排序
For i=1 To dicTmp.Count-1
For j=i+1 To dicTmp.Count
If dicTmp.Item(i)>dicTmp.Item(j) Then
strTmp=dicTmp.Item(i)
dicTmp.Item(i)=dicTmp.Item(j)
dicTmp.Item(j)=strTmp
End If
Next
Next
For i=1 To dicTmp.Count
strShow=strShow&dicTmp.Item(i)&vbCrLf
Next
For i=1 To dicTmp.Count
strSource=InputBox(strShow&"请输入要替换 "&dicTmp.Item(i)&" 的值(S+数字)：",filename&"的搜索结果")
str=Replace(str,dicTmp.Item(i),strSource)
Next
ShowAndReplace=str
Else
ShowAndReplace=str
End If
End With
End Function

复制代码

lateol · 发表于 2013-3-13 13:20:37

回复 8# wankoilz
第一个就很好了。这个好像处理他是把所有的txt处理后又返回第一个处理下去一直到每个txt S值替换完。
第一个已经满足了不过还有一点。就是可以改成子目录*.txt吗如当前目录abc文件夹内*.txt
还有处理过程如果不输入值直接确认或退出的话他就会替换成空这个可以修正一下么、
谢谢

wankoilz · 发表于 2013-3-13 14:01:16

你说的子目录问题，把第四行FSO.GetFolder(".")中的"."改成".\abc"就处理子目录abc中的文件了。
点“取消”这个问题确实没考虑到，修改如下：

Option Explicit
Dim FSO,file,ofile,strText
Set FSO=CreateObject("scripting.filesystemobject")
For Each file In FSO.GetFolder(".\abc").Files
If LCase(FSO.GetExtensionName(file))="txt" Then
Set ofile=FSO.OpenTextFile(file,1)
strText=ofile.ReadAll():ofile.Close
Set ofile=FSO.OpenTextFile(file,2)
ofile.Write(ShowAndReplace(strText,file.Name))
ofile.Close
End If
Next
WScript.Echo "处理结束！"
Function ShowAndReplace(str,filename)
Dim Matches,Match
Dim i,j,intCount,dicTmp,strTmp,strShow,strSource
With CreateObject("vbscript.regexp")
.Global=True
.IgnoreCase=True
.Multiline=True
.pattern="S[1-9]\d*(?=M03)"
If .Test(str)=True Then
Set Matches=.Execute(str)
Set dicTmp=CreateObject("scripting.dictionary")
For Each Match In Matches
intCount=intCount+1
dicTmp.Add intCount,Match
Next
'排序
For i=1 To dicTmp.Count-1
For j=i+1 To dicTmp.Count
If dicTmp.Item(i)>dicTmp.Item(j) Then
strTmp=dicTmp.Item(i)
dicTmp.Item(i)=dicTmp.Item(j)
dicTmp.Item(j)=strTmp
End If
Next
Next
For i=1 To dicTmp.Count
strShow=strShow&dicTmp.Item(i)&vbCrLf
Next
For i=1 To dicTmp.Count
strSource=InputBox(strShow&"请输入要替换 "&dicTmp.Item(i)&" 的值(S+数字)：",filename&"的搜索结果")
If strSource<>"" Then
str=Replace(str,dicTmp.Item(i),strSource)
End If
Next
ShowAndReplace=str
Else
ShowAndReplace=str
End If
End With
End Function

复制代码

lateol · 发表于 2013-3-13 17:49:52

回复 10# wankoilz
出现直接处理结束什么情况？

apang · 发表于 2013-3-13 20:30:57

本帖最后由 apang 于 2013-3-13 23:53 编辑

Dir = "D:\ABC"
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each file in FSO.GetFolder(Dir).Files
Ext = FSO.GetExtensionName(file)
If Lcase(Ext) = "txt" Then
RegEx FSO.OpenTextFile(file,1).ReadAll
End If
Next
Sub RegEx(Text)
Set Re = New RegExp
Re.Global = True
Re.Pattern = "[Ss][1-9]\d*"
If Not Re.Test(Text) Then Exit Sub
For Each Match in Re.Execute(Text)
ReDim PreServe ar(n)
ar(n) = Match : n = n + 1
Next
For i = 0 to Ubound(ar) -1
For j = i + 1 to Ubound(ar)
If CInt(Mid(ar(i),2)) > CInt(Mid(ar(j),2)) Then
Tmp = ar(i) :ar(i) = ar(j) :ar(j) = Tmp
End If
Next
Next
a = InputBox("最小：" & ar(0) & "~最大：" & ar(UBound(ar)) & _
vbLf & vbLf & "输入替换后的值：",file.Name,"S1000")
If IsEmpty(a) Then Exit Sub
If a = "" Then a = "S1000"
FSO.OpenTextFile(file,2).Write Re.Replace(Text,a)
End Sub

复制代码

行不行就这样，不想折腾了

wankoilz · 发表于 2013-3-13 21:18:41

直接“处理结束”便是没找到相应的匹配吧。

lateol · 发表于 2013-3-13 21:34:36

本帖最后由 lateol 于 2013-3-13 22:05 编辑

回复 13# wankoilz

lateol · 发表于 2013-3-13 21:58:38

回复 12# apang

试了一下这样显示不错，一直很喜欢你写的代码。
不过还有两个问题，
1.就是标题栏那里显示的是整个路劲直接显示名称就好了
2.还有那个最大最小值我处理一下看好像它都是从上拍到下的。而不是从数值的真实大小显示的。
3.处理是当前目录所有子文件处理希望设置单一一个子文件夹就好就如当前目录abc文件夹吧。
不过也很感谢你的帮助。虽然要达到一个满意的处理有点难，不过也学到了很多东西。

lateol · 发表于 2013-3-13 22:04:32

本帖最后由 lateol 于 2013-3-13 22:16 编辑

回复 13# wankoilz

好的可以了可不可以再修改一下修改方式不用一个文本逐个值的修改了就像之前那个直接整个文本修改。
也许你误解了我的意思了吧是逐个文本修改不是逐个本文的值修改。这是我跟BAT-VBS 写的bat说的。
替换方式就改成之前写的就行。谢谢！

apang · 发表于 2013-3-13 23:30:51

回复 15# lateol

改了，第一行的文件夹请写绝对路径

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

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

[文本处理] [已解决]批处理怎样获取文本内容显示并自定义替换？

评分

评分

评分