业务需求

有一个接码业务,通过api接口接收到的短信内容是这样的:

2024-02-25 17:39:01|2222

如何取出竖线后面的4位短信验证码呢?

实现

Dim result = "2024-02-25 17:39:01|2222"

Dim ret() //返回表参数, 可以省略该参数
Dim data = zm.RegExMatchEx(result, "|(%d+)", ret)
TracePrint zm.VarInfo(data)

Dim code
If data then
    For Each v in data
        For Each vv in v
            TracePrint vv,IsNumeric(vv),IsArray(vv),UTF8.Len(vv)
            If IsNumeric(vv) And UTF8.Len(vv) >= 4 Then 
                code = vv
                Exit For
            ElseIf Len(vv) >= 4 Then
                code = vv
                Exit For
            End If
        Next
    Next
Else
    //        TracePrint "未捕获到数据"
End If

TracePrint code

温馨提示：此处内容需要登录后才能查看！

需要注意的是,按键精灵的正则表达式中,特殊字符不支持使用"\"来进行标识.否则会出现报错.
例如,下面这个表达式,就是错误的.
(.*?)\|(%d+)

但是,这个表达式在易语言中却是支持的.