帮我改个函数代码？谢谢

Question

Function CutStr(Str,LenNum)
Dim P_num
Dim I,X
If StrLen(Str)<=LenNum Then
Cutstr=Str
   Else
   P_num=0
X=0
Do While Not P_num > LenNum-2
X=X+1
If Asc(Mid(Str,X,1))<0 Then
   P_num=Int(P_num) + 2
   Else
   P_num=Int(P_num) + 1
   End If
   Cutstr=Left(Trim(Str),X)&"..."
Loop
End If
End Function

Answer 1

string CutStr(string Str,int LenNum)
{
int P_num;
int i,x;
if (Str.Length<=LenNum) 
{
return Str;
}
else
{
P_num=0;
x=0;
while (!(P_num > (LenNum-2)))
{
x++; if ((short)Convert.ToChar(Str.Substring(x+1,1))<0)
{
P_num+=2;
}
else
{
P_num+=1;
}
}
return Str.Trim().Substring(0,x) + "...";
} }