计算字符串长度(关于日文字符)

核心提示：项目要求: 计算一个字符串的长度(对日项目VB.NET)以前的代码找不到了只能自己写一下了(找到了别人的代码觉得有点麻烦,没用)String.PRototype.isBytes = function() { 'var cArr = this.match(/[^\x00-\xff|\uff61-\uff9f]/i

项目要求: 计算一个字符串的长度(对日项目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

　  ' 文字列をバイト配列に変換
　　　  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
这两个方法没有试,有兴趣的可以试试

http://www.cnblogs.com/lost0/archive/2006/11/29/576040.html