在编号后插入新行

Question

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

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 

Answer 1

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

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

将显示一个显示

的消息框

string 1
string 2

Answer 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评论：

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