VFP正则表达式应用：文本内容换行 - sdta的博客

作者在 2017-11-19 20:16:44 发布以下内容

原文本格式如下：

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



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