程序代码：

Clea
TEXT To Lc内容 Textmerge Pretext 7 Noshow
"id": "LiC6KN1E6UCB",

"name": "茸沂弃辺瑚哺",

"value": "本单位",

},{

"id": "LiB6KN1E6H6K",

"name": "钣齐栽怪末瘎儡斬损",

"value": "子公司",

},
ENDTEXT
TEXT To Lc条件 Textmerge Pretext 7 Noshow
(?<=name": ")[\u4e00-\u9fa5a-zA-Z]+
ENDTEXT

Local Loregexp,Cresults,Matches
Cresults = ""
Loregexp = Createobject("Vbscript.Regexp")
Loregexp .Pattern = Lc条件
Loregexp.Global = .T.
Loregexp.Ignorecase = .T.
Loregexp.Multiline    = .T.
Matches = Loregexp.Execute(Lc内容)

(pattern)    匹配pattern并获取这一匹配。所获取的匹配可以从产生的Matches集合得到，在VBScript中使用SubMatches集合，在JScript中则使用$0…$9属性 

[此贴子已经被作者于2023-4-28 16:25编辑过]