Dir =".\==NC==" 
Set FSO = CreateObject("Scripting.FileSystemObject") 
For Each file in FSO.GetFolder(Dir).Files 
Ext = FSO.GetExtensionName(file) 
If Lcase(Ext) = "nc" Then 
RegEx FSO.OpenTextFile(file,1).ReadAll 
End If 
If Lcase(Ext) = "txt" Then 
RegEx FSO.OpenTextFile(file,1).ReadAll 
End If 
If Lcase(Ext) = "ncd" Then 
RegEx FSO.OpenTextFile(file,1).ReadAll 
 End If 
If Lcase(Ext) = "pim" 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("☆最小S值：" & ar(0) & " -> ★最大S值：" & ar(UBound(ar)) & _ 
   vbLf & vbLf & "=========●输入替换后的S值：=========",file.Name,"S4500") 
 If IsEmpty(a) Then Exit Sub 
 If a = "" Then a = "S4500" 
 FSO.OpenTextFile(file,2).Write Re.Replace(Text,a) 
End Sub 
复制代码

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
复制代码