|
在很多情况下都要识别汉字,以下是函数 VString
0 }! y/ X. K1 W5 i" _AnsiString __fastcall TForm1::VString(AnsiString ss)
4 ~3 U) v% T+ v3 K8 a9 I6 N2 e { 2 q. A' f/ x9 V3 c7 D1 g! ^" I
AnsiString ass; ! r+ G: O+ ~4 C5 z
int ii,ll; - P/ ]1 t% r7 @* y6 X) \0 ~
unsigned char cc; / a7 F' J4 u7 j+ c
ass=""; ; J% T" r* Y0 @% s8 H5 m. |2 I
ll=ss.Length();
( t7 q2 R0 t. u- `( u# U for(ii=0;ii<ll;ii++)
7 L+ _% b8 W2 O# K& V {
4 W. R. [6 Q O: e7 a cc=ss.c_str()[ii];
+ \ E9 D9 G& y R' d3 J; M if(cc>0xa0) , m7 H$ T7 g1 i- o3 i: w. q2 r
{ # L2 g9 c1 L" H0 m7 B- W
ass=ass+ss.SubString(ii+1,2); + e# X) t# c7 X p7 Q0 i
i++;
, p' ^- E7 f4 w } 8 R7 F2 r6 _* ~& {4 g$ L
else 0 B" v% c7 |" r2 ^; H
{ ; i, h4 W" e) {& _8 N+ C4 p8 }+ @" b
ass=ass+ss.SubString(ii+1,1); w8 W- q1 s" c4 V
2 p1 _0 `. G/ P } 6 R# h6 f ]% k' g
} ; W( @ t, ^1 S& B. f& n
return ass;
: M) e# U ]* l3 k: W} |