|
在很多情况下都要识别汉字,以下是函数 VString
( _4 T% Y/ A9 f# B8 _; `AnsiString __fastcall TForm1::VString(AnsiString ss)
7 d& t* m# ?) g* v% z {
9 o d8 V0 c$ v! M" y, k AnsiString ass;
2 L& f. q4 l- Q: [0 `3 R int ii,ll;
+ S6 O( a- r7 Q5 T3 X1 I unsigned char cc; 4 g/ o2 V" Z s- N- P
ass=""; ' r5 [. `5 g6 d6 S) W5 t
ll=ss.Length();
, {5 ^+ r8 e/ z: J! B: Y for(ii=0;ii<ll;ii++)
* u* ^( R! c0 U; ] { : A$ T) R7 `3 L
cc=ss.c_str()[ii]; 3 |% _/ C# s" N, P
if(cc>0xa0)
# N+ }4 R% E5 ` { " J8 g( Q7 R7 s0 J! I$ n/ [
ass=ass+ss.SubString(ii+1,2);
8 Y* n3 t. I M0 [" C* {8 m i++;
# B) D2 _! d3 D# a! {, C1 p$ X } " Y. S. d0 k' R
else
' U3 o3 G( o) k) b$ i3 s4 Z2 M { " r4 _! \0 U* ?
ass=ass+ss.SubString(ii+1,1);
x$ V5 ?4 m" c* \# z, Z- T4 W* Z* n6 ?! t; ^
} 2 [8 S6 T2 Q' O: {
}
6 ~/ N& @& _! C5 ^0 L) j return ass;
2 d3 G6 f* O" R |5 B2 y6 L. w} |