汉字Asc函数求助

gaojiantang · 发表于 2021-6-27 20:02:34

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如图，为什么我的测试Asc一个汉字，他返回值不是>=-20319 呢？

Dim str="1ab@提2#3取cd45l$%d字!@s6符&串fdsa中?:的7g汉a,s3df12.a字"
TracePrint "汉字提取:" & 汉字提取(str, 1, Len(str))

Sub 汉字提取(str, i_start, i_end)
Dim Result, AA
For i = i_start to i_end
AA = Mid(str, i, 1)
TracePrint "AA:"& AA &",Asc(AA):" & Asc(AA)
If Asc(AA)>=-20319 And Asc(AA)<=-2050 Then
Result = Result & AA
TracePrint "Result:" & Result
End If
Next
End Sub

登录/注册后可看大图

gaojiantang · 发表于 2021-6-27 20:03:49

当前脚本第9678行：AA:1,Asc(AA):49
当前脚本第9678行：AA:a,Asc(AA):97
当前脚本第9678行：AA:b,Asc(AA):98
当前脚本第9678行：AA:@,Asc(AA):64
当前脚本第9678行：AA:欁sc(AA):230
当前脚本第9678行：AA:?Asc(AA):143

紫猫 · 发表于 2021-6-27 22:10:23

汉字占3个字节长度, 所以你应该是取3个ASC的值查看, 如果你只是为了单纯的提取汉字, 可以用紫猫插件的正则匹配命令

		自动登录	找回密码
密码			立即注册

[求助] 汉字Asc函数求助

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。