论坛 › 已解决问题区 › 求个正则，插入换行。。【已解决】感谢A版！

fybhwsx 发表于 2019-12-30 18:32:07

求个正则，插入换行。。【已解决】感谢A版！

本帖最后由 fybhwsx 于 2019-12-30 18:40 编辑

PVC2005郑油2005焦炭2005沪铜2002纸浆2005郑煤2005原油2002豆二2002沪金2006

想得到下列这样格式的结果
PVC2005
郑油2005
焦炭2005
沪铜2002
纸浆2005
郑煤2005
原油2002
豆二2002
沪金2006

afan 发表于 2019-12-30 18:35:14

Local $sSource = 'PVC2005郑油2005焦炭2005沪铜2002纸浆2005郑煤2005原油2002豆二2002沪金2006'
;~ MsgBox(0, '源字符串', $sSource)
Local $sSRERe = StringRegExpReplace($sSource, '(.+?\d{4})', '\1' & @CRLF)
MsgBox(0, '替换结果', $sSRERe)

fybhwsx 发表于 2019-12-30 18:37:34

够快，感谢A版！

查看完整版本: 求个正则，插入换行。。【已解决】感谢A版！