項(xiàng)目要求: 計(jì)算一個(gè)字符串的長(zhǎng)度(對(duì)日項(xiàng)目VB.NET)

以前的代碼找不到了只能自己寫一下了(找到了別人的代碼覺(jué)得有點(diǎn)麻煩,沒(méi)用)

String.PRototype.isBytes = function() {
 'var cArr = this.match(/[^/x00-/xff|/uff61-/uff9f]/ig);
'return (cArr==null ? true : false);}
上面這段代碼是我在java項(xiàng)目里找的,開(kāi)始沒(méi)看明白
朋友老紀(jì)這時(shí)發(fā)給我一段
        'public static boolean checkAscii(char ch) {
        '  // Ascii文字かどうか判斷し、返り値とする
        '  return ch >= 0x0000 && ch <= 0x007f;
        ' }

        'public static boolean checkHANKAKU_KANA(char ch) {
        '  // 半角カタカナかどうか判斷し、返り値とする。
        '  return 0xff61 <= ch && ch <= 0xff9f;
        ' }
這時(shí)才知道[^/x00-/xff|/uff61-/uff9f]這個(gè)正則表達(dá)式是匹配英文字符和半角日文之外的字符的
注意里面的這個(gè)符號(hào)^取反的意思[/x00-/xff|/uff61-/uff9f]里面沒(méi)有沒(méi)^就是匹配英文字符和半角日文
加上這個(gè)^就是匹配英文字符和半角日文之外的字符
下面這個(gè)是我寫的VB.NET的方法計(jì)算字符串的長(zhǎng)度
 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
這樣就可以計(jì)算出字符串的長(zhǎng)度了(有不對(duì)的地方請(qǐng)指出)

后來(lái)朋友又發(fā)給我了一個(gè)段代碼,如下
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
這兩個(gè)方法沒(méi)有試,有興趣的可以試試

http://m.survivalescaperooms.com/lost0/archive/2006/11/29/576040.html