Vbscript 在编号后插入新行

我的文本文件中有以下代码

Consumer Extract |: 10684 Campaign Extract |: 13018 Survey Response Extract |: 73300 Fullfillment Extract |: 220003 

现在，有没有办法在我们找到数字后插入新行。我想将输出文件作为

Consumer Extract |: 10684
Campaign Extract |: 13018
Survey Response Extract |: 73300
Fullfillment Extract |: 220003 

---

找到数字后，将vbCrLf添加到字符串中。例如：

var = "string 1" & vbCrLf & "string 2"
MsgBox var

将显示一个消息框，其中显示

string 1
string 2

---

使用RegExp查找非空的数字序列（可选后跟空格），并用添加的CrLfs替换匹配项：

>> s = "Consumer Extract |: 10684 Campaign Extract |: 13018 Survey Response Extract |: 73300 Fullfillment Extract |: 220003"
>> Set r = New RegExp
>> r.Global = True
>> r.Pattern = "(\d+\s*)"
>> WScript.Echo r.Replace(s, "$1" & vbCrLf)
>>
Consumer Extract |: 10684
Campaign Extract |: 13018
Survey Response Extract |: 73300
Fullfillment Extract |: 220003

>>

更新wrt评论：

---

如果您不知道如何获取文件内容，请查阅。

但如何在上面给出的代码中找到数字并添加vbCrLf？请使用任何指针，我将获得以下错误“VBScript运行时错误：类型不匹配：”“r.Replacei获得结果。但是，有没有办法从文件中读取数据，而不是将其设置为“>>s=Consumer Extract |：10684 Campaign Extract |：13018 Survey Response Extract |：73300 Fullfillment Extract |：220003”