|
在很多情况下都要识别汉字,以下是函数 VString 3 c7 A! D3 F" o/ o% N
AnsiString __fastcall TForm1::VString(AnsiString ss) - C1 y1 _, X% S, s7 T; M& x
{
& m& R+ K- v. u5 _( Q# o8 l2 z! C AnsiString ass;
: j* i' \4 A! f% E4 c int ii,ll; Q p0 e3 |+ M; q) ?
unsigned char cc;
! e R. Z4 A* _" ^ ass=""; * Q/ W6 h5 }9 V8 U& @* q
ll=ss.Length(); + {; [* V, H) c5 o6 A5 s4 i
for(ii=0;ii<ll;ii++) ; U: w9 x8 p/ Q, D+ [$ n
{
, I! k& n5 A3 h9 \ cc=ss.c_str()[ii];
7 ]2 S$ }2 q* d! [ A; D: ?& q0 f if(cc>0xa0) $ l* X* H3 \" b: Q- s, k
{ . s* N" N# z5 V( I
ass=ass+ss.SubString(ii+1,2);
" G) U. A! _$ x `3 o, y i++;
( x1 u/ r( l S' l& p }
4 P2 z3 G5 R% H1 X. [! E t! k else 5 a0 v0 R1 P- e" v: m. y4 I" Y
{ : W8 b9 C( r3 ~' p/ W0 M/ P
ass=ass+ss.SubString(ii+1,1); 2 j" g. g9 T$ I7 [! m0 S
" U1 Z9 n: y4 E) Y
} 4 x( F$ T0 J& k) G1 f
} : I$ E! m3 s' H
return ass; 8 @# G" i% ]. T5 V* {# N6 X
} |