|
在很多情况下都要识别汉字,以下是函数 VString
4 p: G4 S6 _. w0 \! H- i+ e6 `AnsiString __fastcall TForm1::VString(AnsiString ss) ' I3 i' n- {9 o( j3 x [9 U
{
) p4 Z$ w$ K# K& _) j8 Z- d: X% y AnsiString ass;
6 _! l$ C0 u+ _ f$ a9 ?) e int ii,ll;
3 V# @# k8 \ a! M unsigned char cc; " g4 ?( V4 d" L% {( l
ass=""; ( q( C8 C1 ~2 r" t8 s
ll=ss.Length(); * J; `, Y, Y* x0 q( J& C
for(ii=0;ii<ll;ii++)
" P0 Z' ^+ k5 H7 ~5 t; y: P {
8 Q/ H9 S* [" A5 p: [+ Y$ l cc=ss.c_str()[ii];
7 v: o/ o3 w* m if(cc>0xa0) - I$ ~4 b4 C1 x) H+ G
{
" k7 ^3 @3 v$ ^9 ~0 _1 A ass=ass+ss.SubString(ii+1,2); * {4 H5 ]. c: {* {9 N/ H
i++; . a, o5 X5 i- p
}
8 l8 m' Y" V" K# j/ B/ @ else ) q" \9 X8 b- y
{
5 s# W( z& i3 m" M9 s- F ass=ass+ss.SubString(ii+1,1); - p& ?3 N6 O% E Q2 ?# {+ L
# v3 r* @ r% [3 f" m } ; s x; G! F8 I6 c0 Q
} # E6 \6 K. B# l% ?* ]" g
return ass; ( M+ H, P4 G- v$ K: ?1 D
} |