$U2 Forum rautinee原创$ $http://u2bbs.126.com$ Function SplitString(TheString) Dim n,Chs,Eng For n = 1 to Len(TheString) If Asc(Mid(TheString,n,1))<0 then Chs=Chs&Mid(TheString,n,1) Else Eng=Eng&Mid(TheString,n,1) End if Next SplitString="中文字符："&Chs&"<BR>英文字符："&Eng End Function 这个函数主要是用asc函数来实现的，当然他还可以细致一些，例如把标点符号也分列出来，有兴趣的朋友可以自己试试。
您现在的位置： 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
