在编号后插入新行

时间:2014-10-16 08:50:59

标签: 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 

2 个答案:

答案 0 :(得分:0)

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

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

将显示一个显示

的消息框
string 1
string 2

答案 1 :(得分:0)

使用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