項目要求: 計算一個字符串的長度(對日項目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
