VFP正则表达式应用：文本内容换行-贤集微头条

VFP正则表达式应用：文本内容换行

原文本格式如下：
05 14 15 16 18 + 02 0605 14 15 16 25 + 02 0605 14 15 16 26 + 02 0605 14 15 16 27 + 02 0605 14 15 18 25 + 02 0605 14 15 18 26 + 02 0605 14 15 18 27 + 02 0605 14 15 25 26 + 02 0605 14 15 25 27 + 02 0605 14 15 26 27 + 02 0605 14 16 18 25 + 02 0605 14 16 18 26 + 02 0605 14 16 18 27 + 02 0605 14 16 25 26 + 02 0605 14 16 25 27 + 02 0605 14 16 26 27 + 02 0605 14 18 25 26 + 02 0605 14 18 25 27 + 02 0605 14 18 26 27 + 02 0605 14 25 26 27 + 02 0605 15 16 18 25 + 02 0605 15 16 18 26 + 02 0605 15 16 18 27 + 02 0605 15 16 25 26 + 02 0605 15 16 25 27 + 02 0605 15 16 26 27 + 02 0605 15 18 25 26 + 02 0605 15 18 25 27 + 02 0605 15 18 26 27 + 02 0605 15 25 26 27 + 02 0605 16 18 25 26 + 02 0605 16 18 25 27 + 02 0605 16 18 26 27 + 02 0605 16 25 26 27 + 02 0605 18 25 26 27 + 02 0614 15 16 18 25 + 02 0614 15 16 18 26 + 02 0614 15 16 18 27 + 02 0614 15 16 25 26 + 02 0614 15 16 25 27 + 02 0614 15 16 26 27 + 02 0614 15 18 25 26 + 02 0614 15 18 25 27 + 02 0614 15 18 26 27 + 02 0614 15 25 26 27 + 02 0614 16 18 25 26 + 02 0614 16 18 25 27 + 02 0614 16 18 26 27 + 02 0614 16 25 26 27 + 02 0614 18 25 26 27 + 02 0615 16 18 25 26 + 02 0615 16 18 25 27 + 02 0615 16 18 26 27 + 02 0615 16 25 26 27 + 02 0615 18 25 26 27 + 02 0616 18 25 26 27 + 02 06
转换为如下格式：
05 14 15 16 18 + 02 06
05 14 15 16 25 + 02 06
.....................................
15 18 25 26 27 + 02 06
16 18 25 26 27 + 02 06
?
1
2
3
4
5
6
7
8
9
10
11
12 CLEAR
TEXT TO cStr NOSHOW TEXTMERGE
05 14 15 16 18 + 02 0605 14 15 16 25 + 02 0605 14 15 16 26 + 02 0605 14 15 16 27 + 02 0605 14 15 18 25 + 02 0605 14 15 18 26 + 02 0605 14 15 18 27 + 02 0605 14 15 25 26 + 02 0605 14 15 25 27 + 02 0605 14 15 26 27 + 02 0605 14 16 18 25 + 02 0605 14 16 18 26 + 02 0605 14 16 18 27 + 02 0605 14 16 25 26 + 02 0605 14 16 25 27 + 02 0605 14 16 26 27 + 02 0605 14 18 25 26 + 02 0605 14 18 25 27 + 02 0605 14 18 26 27 + 02 0605 14 25 26 27 + 02 0605 15 16 18 25 + 02 0605 15 16 18 26 + 02 0605 15 16 18 27 + 02 0605 15 16 25 26 + 02 0605 15 16 25 27 + 02 0605 15 16 26 27 + 02 0605 15 18 25 26 + 02 0605 15 18 25 27 + 02 0605 15 18 26 27 + 02 0605 15 25 26 27 + 02 0605 16 18 25 26 + 02 0605 16 18 25 27 + 02 0605 16 18 26 27 + 02 0605 16 25 26 27 + 02 0605 18 25 26 27 + 02 0614 15 16 18 25 + 02 0614 15 16 18 26 + 02 0614 15 16 18 27 + 02 0614 15 16 25 26 + 02 0614 15 16 25 27 + 02 0614 15 16 26 27 + 02 0614 15 18 25 26 + 02 0614 15 18 25 27 + 02 0614 15 18 26 27 + 02 0614 15 25 26 27 + 02 0614 16 18 25 26 + 02 0614 16 18 25 27 + 02 0614 16 18 26 27 + 02 0614 16 25 26 27 + 02 0614 18 25 26 27 + 02 0615 16 18 25 26 + 02 0615 16 18 25 27 + 02 0615 16 18 26 27 + 02 0615 16 25 26 27 + 02 0615 18 25 26 27 + 02 0616 18 25 26 27 + 02 06
ENDTEXT
Re = Createobject("VBScript.RegExp")
Re.Global = .T.
Re.Ignorecase = .F.
Re.Pattern ="((\d{2}\s){5}\+\s(\d{2}\s?){2})"
cc=Re.Replace(cStr,"$1"+CHR(13)+CHR(10))
STRTOFILE(cc,"hh.txt")
MODIFY FILE hh.txt
ERASE hh.txt