批处理之家 - Powered by Discuz! Board

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

作者: lateol 时间: 2013-3-12 12:57 标题: [已解决]批处理怎样获取文本内容显示并自定义替换？

本帖最后由 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

传个附件来看看吧

作者: BAT-VBS 时间: 2013-3-12 21: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

我觉得楼主的要求用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

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

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

作者: wankoilz 时间: 2013-3-13 12:59

是这样吗：

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

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

作者: wankoilz 时间: 2013-3-13 14:01

你说的子目录问题，把第四行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

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

作者: apang 时间: 2013-3-13 20:30

本帖最后由 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

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

作者: lateol 时间: 2013-3-13 21:34

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

回复 13# wankoilz

作者: lateol 时间: 2013-3-13 21:58

回复 12# apang

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

作者: lateol 时间: 2013-3-13 22:04

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

回复 13# wankoilz

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

作者: apang 时间: 2013-3-13 23:30

回复 15# lateol

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

作者: wankoilz 时间: 2013-3-14 01:03

6楼不就是一次性修改整个文本的值么……

作者: lateol 时间: 2013-3-14 12:18

回复 18# wankoilz
好吧我研究一下谢谢了。

作者: lateol 时间: 2013-3-14 12:25

回复 17# apang

呵呵谢谢完美运行。
还有请教一个关于bat的
这短语句

a = InputBox("最小：" & ar(0) & "~最大：" & ar(UBound(ar)) & _

       vbLf & vbLf & "输入替换后的值：",file.Name,"S1000")
复制代码

用bat写：

@echo off
ECHO a = InputBox("最小：" & ar(0) & "~最大：" & ar(UBound(ar)) & _>>abc.vbs

ECHO       vbLf & vbLf & "输入替换后的值：",file.Name,"S1000")>>abc.vbs
复制代码

能把代码完全的写到vbs里吗？好像& 不行。有什么好的提议么？。

作者: BAT-VBS 时间: 2013-3-14 12:41

回复 20# lateol

转义
^&

欢迎光临批处理之家 (http://www.bathome.net/)