使用VB的话应该如何实现呢

在 VB 中，你可以使用正则表达式来匹配文本文件中的字符串。以下是一个示例代码：

Dim regex As Object
Dim matches As Object
Dim fileContents As String

Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "<svg.*?\/svg>"
regex.Global = True
regex.IgnoreCase = True
regex.MultiLine = True

' 打开文件并读取内容
Open "file.txt" For Input As #1
fileContents = Input$(LOF(1), #1)
Close #1

' 在文件内容中查找匹配项
Set matches = regex.Execute(fileContents)

' 遍历匹配项并输出
For Each match In matches
    Debug.Print match.Value
Next match

此代码首先创建一个正则表达式对象，并设置其模式、全局匹配、大小写不敏感和多行模式等属性。然后，打开名为`file.txt`的文本文件，并将其内容读取到一个字符串变量`fileContents`中。接下来，使用正则表达式对象的`Execute`方法在`fileContents`中查找所有匹配项，并将结果保存在`matches`变量中。最后，遍历`matches`并输出每个匹配项的值。

需要注意的是，由于 VBScript.RegExp 对象不支持 DOTALL 模式，因此需要使用非贪婪匹配模式`.*?`，以确保匹配中间的任何字符，直到最近的`/svg>`出现。