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内容)

代码运行出现：OLE错误码0x800a1399: 未知的 COM 状态代码，错误。
这是什么原因？及怎么修改

正则表达式异常
字符串格式似JSON，不用正则也可以

在一些正则校验网站校验过条件表达式没问题，是不是Vbscript.Regexp不支持这种写法？

"id": "LiC6KN1E6UCB",
这句左边是不是少了一个 {

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内容)

For each oo in Matches
    ? oo.SubMatches(0)
EndFor

你这加密后的串也许不止包含汉字和英文字符，说不定也包含些数字和符号，其实不管是些什么，都提取出来就好了
TEXT To Lc条件 Textmerge Pretext 7 Noshow
"name": "(.*?)"
ENDTEXT

我怎么在发帖时会有预感，csyx版主能帮到我呢，谢谢你

TEXT To Lc条件 Textmerge Pretext 7 Noshow
"name": "(.*?)"
ENDTEXT
For each oo in Matches
    ? oo.SubMatches(0)
EndFor

这里是截取以"name": "开头的字串，然后利用冒号:来取子串吗？
还是下面这个？

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

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

又在这胡说八道，有本事你倒是把你的代码运行一遍啊，就会瞎咧咧

也是提取子串，规则 "name": "[\u4e00-\u9fa5a-zA-Z]+"  含义是提取 起始于 "name": " 结束于 ", 内容只能是汉字或英文字符（且至少出现一次）的子串
大概相当于 vfp 的 StrExtract 函数，但功能比 StrExtract 强点儿，能限定子串的字符范围

你写的正则表达式也没毛病，要执行的 (?<=name": ") 就是 ?(询问)<=(起始于) name": "，后面是子串匹配规则 [\u4e00...A-Z] 汉字或英文字符，+ 至少出现一次
咋整呢，也许 Vbscript.Regexp 就是不支持这种正则语法，你问要如何修改，这个 COM 咱肯定是改不了，只好换个方式改 pattern

[此贴子已经被作者于2023-4-29 08:18编辑过]