马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有账号？立即注册
×
如图，为什么我的测试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
|
发表于 2021-6-27 20:02:34
发表于 2021-6-27 22:10:23
