|
发表于 2016-10-21 22:38
|
显示全部楼层
本楼为最佳答案
Private Sub CommandButton1_Click()
Dim fso As Object, tf As Object, regex As Object
Dim p As String, f As String, fld As String, str As String
Dim i As Integer, arr
'1)创建子文件夹
p = ThisWorkbook.Path & "\"
fld = "处理后"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(p & fld) = False Then fso.CreateFolder (p & fld)
'2)设置替换规则
Set regex = CreateObject("VBScript.RegExp")
regex.Global = True
regex.Pattern = "\{.*\};?"
'3)处理各原文本
f = Dir(p & "*.txt")
Do While f <> ""
'读
Set tf = fso.OpenTextFile(p & f)
arr = Split(tf.readall, vbLf)
tf.Close
'写
Set tf = fso.CreateTextFile(p & fld & "\" & f, True)
For i = 0 To UBound(arr)
str = arr(i)
str = regex.Replace(str, "") '按正则规则替换掉
str = Application.Trim(str) '只保留单词之间的单个空格
If Len(str) > 1 Then tf.writeline (str)
Next i
tf.Close
f = Dir
Loop
End Sub
去除2.rar
(13.85 KB, 下载次数: 6)
|
|