VB.Net计算含日文的字符串长度

VB.Net计算含日文的字符串长度

以前的代码找不到了只能自己写一下了(找到了别人的代码觉得有点麻烦,没用)

String.prototype.isBytes = function() {

var cArr = this.match(/[^\x00-\xff|\uff61-\uff9f]/ig);

return (cArr==null ? true : false);}

上面这段代码是我在JAVA项目里找的,开始没看明白

朋友老纪这时发给我一段

public static boolean checkAscii(char ch) {

// Ascii文字かどうか判断し、返り値とする

return ch >= 0x0000 && ch <= 0x007f;

}

public static boolean checkHANKAKU_KANA(char ch) {

// 半角カタカナかどうか判断し、返り値とする。

return 0xff61 <= ch && ch <= 0xff9f;

}

这时才知道[^\x00-\xff|\uff61-\uff9f]这个正则表达式是匹配英文字符和半角日文之外的字符的

注意里面的这个符号^取反的意思[\x00-\xff|\uff61-\uff9f]里面没有没^就是匹配英文字符和半角日文

加上这个^就是匹配英文字符和半角日文之外的字符

下面这个是我写的VB.NET的方法计算字符串的长度

Public Function GetStringLength(ByVal data As String) As Integer

Dim i As Integer = 0

Dim len As Integer = 0

Dim cc As String = ""

Dim charRegex As New Regex("[\x00-\xff|\uff61-\uff9f]")

For i = 0 To data.Length - 1

文字の取得を行う

cc = data.Substring(i, 1)

If charRegex.IsMatch(cc) Then

len = len + 1

Else

len = len + 2

End If

Next i

Return len

End Function

这样就可以计算出字符串的长度了(有不对的地方请指出)

后来朋友又发给我了一个段代码,如下

Public Function GetByte(ByVal p_s) As Integer

Dim bySource() As Byte

Dim byEncoded() As Byte

Dim destEncoding As Encoding '更多.net源码和实例,来自乐博网 www.lob.cn

文字列をバイト配列に変換

bySource = Encoding.Unicode.GetBytes(p_s)

エンコーディングを取得 (シフトJISコードページ)

destEncoding = destEncoding.GetEncoding("Shift_JIS")

コードページをUnicodeからシフトJISに変換

byEncoded = Encoding.Convert(Encoding.Unicode, destEncoding, bySource)

Return byEncoded.Length

End Function

Public Function ChkByteLength(ByVal p_strVal As String, ByVal p_strParam As String, ByVal p_nMaxLength As Integer, Optional ByVal p_nMinLength As Integer = 0) As Boolean

If p_nMinLength > 0 Then

If GetByte(p_strVal) > p_nMaxLength Or GetByte(p_strVal) < p_nMinLength Then

m_aMsg.Add(GetLine() & clsMessage.GetMessage("E018", p_strParam, CStr(p_nMinLength), CStr(p_nMaxLength)))

Return False

End If

Else

If GetByte(p_strVal) > p_nMaxLength Then

m_aMsg.Add(GetLine() & clsMessage.GetMessage("E009", p_strParam, CStr(p_nMaxLength)))

Return False

End If

End If

Return True

End Function

这两个方法没有试,有兴趣的可以试试