숫자 다음에 새 줄 삽입

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 

는 숫자의 비어 있지 않은 시퀀스가 ​​공백으로 선택적으로 따르고있는 CRLF로 경기를 교체 추가 발견

string 1 
string 2 

Answer 2

사용하십시오 정규식을 표시하는 메시지 상자가 표시됩니다

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

>> 

업데이트 의견 :

파일의 내용을 가져 오는 방법을 모르는 경우 horse을 참조하십시오.