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

[问题求助] 【已解决】如何给VBS加一句循环代码使之能够处理多个文件?

本帖最后由 思想之翼 于 2015-2-26 18:48 编辑

下列VBS代码仅对一个文本S1.txt进行操作,结果输出为Z1.txt。若有1000个文本,就要制作1000个类似的VBS,请教大师:如何加一句循环代码,使之能够依次对S1.txt  S2.txt  S3.txt...S1000.txt操作(S1.txt  S2.txt  S3.txt...S1000.txt数据格式一样),结果依次输出为Z1.txt  Z2.txt  Z3.txt...Z1000.txt恳望得到大家的帮助!


Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("S1.txt")
m = 1 : Max = 0   
ReDim arIn(m-1) : ReDim arOut(m-1)

Do Until file.AtEndOfStream
   strLine = RegEx(file.ReadLine)
   If strLine <> "" Then
      ...
   End If
Loop

For i = 0 to m-1
   For j = CLng(n/2) to 0 step -1
     ...
   Next
   strOut = Left(strOut,Len(strOut)-1) & vbCrLf
Next

fso.OpenTextFile("Z1.txt",2,True).Write strOut
CreateObject("Wscript.Shell")

Function RegEx(strLine)
   Set re = New RegExp
   re.Pattern = "\s+"
   re.Global = True
   RegEx = Trim(re.Replace(strLine," "))
End Function



解决方案:
Set fso = CreateObject("Scripting.FileSystemObject")
For f = 1 to 300
Set file = fso.OpenTextFile(f & ".txt")  
m = 21 : Max = 0    'm=总列数,Max=输出最大行数
ReDim arIn(m-1) : ReDim arOut(m-1)
Do Until file.AtEndOfStream
   strLine = RegEx(file.ReadLine)
   If strLine <> "" Then
      ReDim PreServe ar(m-1,n)
      For i = 0 to m-1
         arIn(i) = arIn(i) & "$" & Split(strLine)(i) & " "
         ar(i,n) = arIn(i)
      Next
      n = n + 1
   End If
Loop

For i = 0 to m-1
   For j = CLng(n/2) to 0 step -1
      ar1 = Split(ar(i,n-1),ar(i,j))
      If UBound(ar1) > 1 Then
         For k = 1 to UBound(ar1) - 1
            a = UBound(Split(ar1(k))) - 1
            b = UBound(Split(ar(i,j))) - 1
            If a >= 0 Then
               arOut(i) = arOut(i)&Mid(Split(ar1(k))(a),2)&" "
            Else
               arOut(i) = arOut(i)&Mid(Split(ar(i,j))(b),2)&" "
            End If
         Next
         Exit For
      End If
   Next
   If UBound(Split(arOut(i))) > Max Then Max = UBound(Split(arOut(i)))
Next

For i = 0 to Max - 1
   For j = 0 to m-1
      If UBound(Split(arOut(j))) >= i Then
         strOut = strOut & Split(arOut(j))(i) & vbTab
      Else strOut = strOut & vbTab
      End If
   Next
   strOut = Left(strOut,Len(strOut)-1) & vbCrLf
Next

fso.OpenTextFile("z" & f & ".txt",2,True).Write strOut

strOut = "" : n = "0"
Next
CreateObject("Wscript.Shell")

Function RegEx(strLine)
   Set re = New RegExp
   re.Pattern = "\s+"
   re.Global = True
   RegEx = Trim(re.Replace(strLine," "))
End Function
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

1.可否用不一个数组存下这些文件的路径,然后再从数组里面读取打开。
2.如果您的文件有规律的话,完全可以
   For i = 1 To 1000
        Set file = fso.OpenTextFile("S" & i & ".txt")
   Next i
1

评分人数

TOP

回复 2# loquat


    谢谢帮助!

TOP

返回列表