如何解决包含无法找到 VbTab & Chr
Contains 无法找到 VbTab & Chr(...)
Public Function GetBullet(Txt As String) As String
GetBullet = ""
If Txt.Contains(vbTab & Chr(149)) Then GetBullet = Chr(149)
If Txt.Contains(vbTab & Chr(176)) Then GetBullet = Chr(176)
If Txt.Contains(vbTab & Chr(183)) Then GetBullet = Chr(183)
If Txt.Contains(vbTab & Chr(187)) Then GetBullet = Chr(187)
End Function
例如:
Txt: vbTab & "・我的文字"
Asc(Mid(Txt,2,1)) 返回 183
GetBullet 在函数结束时返回 ""
这是一个错误还是我写错了什么?
解决方法
.net 中的字符串是 unicode。您发布的字符串包含字符 12539,而不是 183
If Txt.Contains(vbTab & ChrW(12539)) Then GetBullet = ChrW(12539)
^ ^
important important
换句话说:
AscW(Mid(Txt,2,1)) returns 12539
^
important
也许切换到现代 .net 版本而不是旧的传统 VB 辅助函数会更好:
If Txt.Contains(vbTab & Convert.ToChar(12539)) Then GetBullet = Convert.ToChar(12539)
'index strings by 0 based index to get the char at that index
'Txt(1) is the second character in Txt
Convert.ToInt32(Txt(1)) returns 12539
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。