判斷字串全角半角

最新推荐文章于 2021-03-10 19:58:47 发布

AveryCN

最新推荐文章于 2021-03-10 19:58:47 发布

阅读量675

点赞数

CC 4.0 BY-SA版权

分类专栏： VS

本文链接：https://blog.youkuaiyun.com/davidvn/article/details/24688721

VS 专栏收录该内容

23 篇文章

订阅专栏

此博客提供了一个函数用于判断传入的字符串是全角还是半角，并通过实例进行了说明。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

''' <summary>
''' 判斷字串全角半角 2013/1/15 admin
''' </summary>
''' <param name="str">傳入值</param>
''' <returns>true 半角/ false 全角</returns>
''' <remarks></remarks>
Public Function CheckUniCode(ByVal str As String) As Boolean
Dim bool As Boolean = False
If str.Trim().Length > 0 Then
Dim strTmp As String = str.Trim()
Dim i As Integer = strTmp.Length
Dim j As Integer = System.Text.Encoding.Default.GetBytes(strTmp).Length
If i = j Then
bool = True
Else
bool = False
End If
End If
Return bool
End Function

'解密單價
'=============================================
Public Function UnLockPrice(ByVal str單價 As String, ByVal strGUID As String) As String
Dim Crypt As Object
Crypt = CreateObject("NHCrypt.Crypt")
Crypt.PassWord = strGUID
UnLockPrice = Crypt.DecryptStr(str單價)
End Function

'============================================
'加密單價
'============================================
Public Function LockPrice(ByVal str單價 As String, ByVal strGUID As String) As String
Dim Crypt As Object
Crypt = CreateObject("NHCrypt.Crypt")
Crypt.PassWord = strGUID
LockPrice = Crypt.EncryptStr(str單價)
End Function