我的文本文件中有以下代码。
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
答案 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。