使用VBA实现文件固定行内容批量修改

雷沛qaz

大神好，需要VBA将文件固定行内容批量修改，请帮忙，感谢！

雷沛qaz

改后内容   <S>20.2024030037259</S>               <S>387</S>         <S>5024.8</S>

limonet

后面的人带把好刀，看好再下。

雷沛qaz

limonet 发表于 2024-6-16 17:45
后面的人带把好刀，看好再下。

啥意思，大仙

ykcbf1100

好象没看到要修改的字串

雷沛qaz

ykcbf1100 发表于 2024-6-16 18:38
好象没看到要修改的字串

有内容的，就是把文档里边这几行数据全部改成下边数据
<S>20.2024030037259</S>
<S>387</S>
<S>5024.8</S>

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, br, i&, j&, strTxt$, strFileName$, strPath$
   
    Application.ScreenUpdating = False
   
    strPath = ThisWorkbook.Path & "\"
    br = [{23,20.2024030037259;24,387;25,5024.8}]
   
    With CreateObject("VBScript.RegExp")
        .Pattern = ">([\d+\.]+)?<"
        strFileName = Dir(strPath & "*.b5r")
        
        Do Until strFileName = ""
            strTxt = ReadFromTextFile(ThisWorkbook.Path & "\" & strFileName)
            ar = Split(strTxt, vbLf)
            For j = 1 To UBound(br)
                ar(br(j, 1)) = .Replace(ar(br(j, 1)), ">" & br(j, 2) & "<")
            Next j
            WriteToTextFile strPath & strFileName, Join(ar, vbCrLf)
            strFileName = Dir
        Loop
    End With
   
    Application.ScreenUpdating = True
    Beep
End Sub
Function ReadFromTextFile$(ByVal strFullName$, _
    Optional ByVal strCharSet$ = "UTF-8")
    With CreateObject("ADODB.Stream")
        .Type = 2
        .Mode = 3
        .Charset = strCharSet
        .Open
        .LoadFromFile strFullName
        ReadFromTextFile = .ReadText
        .Close
    End With
End Function
Function WriteToTextFile(ByVal strFullName$, _
    ByVal strTxt$, Optional ByVal strCharSet$ = "UTF-8")
    With CreateObject("ADODB.Stream")
        .Type = 2
        .Mode = 3
        .Charset = strCharSet
        .Open
        .WriteText strTxt
        .SaveToFile strFullName, 2
        .flush
        .Close
    End With
End Function

gwjkkkkk

..............

ykcbf1100

雷沛qaz 发表于 2024-6-16 18:43
有内容的，就是把文档里边这几行数据全部改成下边数据
20.2024030037259
387

一个文件相同的内容只出现一次吗？

雷沛qaz

ykcbf1100 发表于 2024-6-16 18:59
一个文件相同的内容只出现一次吗？

不是，本想着用字符识别替换的，但有字符相同的，所以只能用行数来识别