|
在很多情况下都要识别汉字,以下是函数 VString
/ ~: Y# z' r! h0 y" E/ AAnsiString __fastcall TForm1::VString(AnsiString ss)
) a- O. f! E4 B { 9 ~* _& L+ ]9 Y t. B- W
AnsiString ass;
, }, r- A8 o' \ int ii,ll;
" u8 S X# f: k: C y; ?4 M3 y' O. b unsigned char cc; $ P! N. S# Z- H1 K1 [
ass=""; : \9 u; a" j' K9 b, I i- J
ll=ss.Length();
3 Q+ _" [3 N: }% I8 c2 E for(ii=0;ii<ll;ii++)
' _( [/ Q8 ^& G$ h { % t o0 X& P% U) n/ ]
cc=ss.c_str()[ii]; + N1 { `* h; w
if(cc>0xa0)
0 b0 f( _: V) s/ M' r { & x5 A% I; L7 J; i
ass=ass+ss.SubString(ii+1,2);
0 ]# s1 [6 g0 Q$ Y) g [% |, F i++;
" R) }. {+ u" m3 j' v5 y } & V! z+ v9 u' F( Q5 l) k
else + R# ^( N+ y! l9 L0 Q
{ 3 R$ e, X! s" d, ~+ g5 x7 Z
ass=ass+ss.SubString(ii+1,1);
+ Z+ z- v3 B" f3 @
# d7 Q( u4 Y' N0 M0 j3 }/ r }
2 U- r. h, O9 ~ } & H/ W1 e9 f8 v* H8 [: l' {' g8 `
return ass;
; [1 Q3 c# q0 K} |