[.NET]LenB函數
以下為在.NET中類似VB 6.0中的LenB函數
VB.NET
Public Shared Function CharByte(ByVal vstrWord As String) As Integer
'aStr字串之第一個字的位元組長度
If Len(vstrWord) = 0 Then
Return 0
Else
Select Case Asc(vstrWord)
Case 0 To 255
Return 1
Case Else
Return 2
End Select
End If
End Function
Public Shared Function StrLenB(ByVal vstrValue As String) As Integer
'如同VB 6.0的LenB函數，傳回字串aStr的位元組長度
Dim i, k As Integer
For i = 1 To Len(vstrValue)
k += CharByte(Mid(vstrValue, i, 1))
Next
Return k
End Function
MessageBox.Show(StrLenB("a").ToString()) 'return 1
MessageBox.Show(StrLenB("abc").ToString()) 'return 3
MessageBox.Show(StrLenB("a亂").ToString()) 'return 3
MessageBox.Show(StrLenB("a亂b").ToString()) 'return 4
C#
public static int CharByte(string vstrWord)
{
//aStr字串之第一個字的位元組長度
if (vstrWord.Length == 0)
{
return 0;
}
else
{
if(Convert.ToInt32(vstrWord[0]) > 255){
return 2;
}else{
return 1;
}
}
}
public static int StrLenB(string vstrValue)
{
//如同VB 6.0的LenB函數，傳回字串aStr的位元組長度
int i = 0;
int k = 0;
for (i =0; i < vstrValue.Length ; i++)
{
k += CharByte(vstrValue.Substring( i, 1));
}
return k;
}
MessageBox.Show(StrLenB("a").ToString()); //return 1
MessageBox.Show(StrLenB("abc").ToString()); //return 3
MessageBox.Show(StrLenB("a亂").ToString()); //return 3
MessageBox.Show(StrLenB("a亂b").ToString()); //return 4
Hi,
亂馬客Blog已移到了 「亂馬客 : Re:從零開始的軟體開發生活」
請大家繼續支持 ^_^
