|
在很多情况下都要识别汉字,以下是函数 VString
9 `9 N' m# |: X6 Q, `# G' F2 FAnsiString __fastcall TForm1::VString(AnsiString ss) ' |! P+ _2 H+ y' e9 Y
{ 1 n& P* J1 c5 n
AnsiString ass;
$ X5 G* a8 K8 ]; L- N9 }- p# E int ii,ll;
$ c. r8 s T7 a% g unsigned char cc;
- \, G0 X9 X" X- x- j ass=""; 1 c5 V3 a' M5 w9 ?* D
ll=ss.Length();
: j ]) ] K2 O3 O8 f for(ii=0;ii<ll;ii++) , Q1 N) d j# w; J% f
{ + |- r3 S* j! ^
cc=ss.c_str()[ii];
( o( ]/ i! x( g, h$ A7 j/ i/ R if(cc>0xa0)
$ ~1 c. o. ]7 ~5 i; T8 d( h. t { 3 j, U- r0 e$ h8 ^
ass=ass+ss.SubString(ii+1,2); 9 j" X8 W9 M5 B
i++; 4 g6 y% a3 w0 L! v( l' m/ U8 ?
}
: j+ U# m# h8 |4 W7 s" Y5 S else 6 M( h+ g3 Q, @ b/ Q# O0 ~7 o; y
{
! V L( n# K; {6 B1 O5 B' k ass=ass+ss.SubString(ii+1,1); I6 ~, v. r" m4 Z. M2 N: R% E+ ?
2 U- ^, k$ W+ z4 e; I" C1 V }
& x% J P1 d G# n6 A$ x } - S9 z- N8 h% I1 |
return ass;
4 K h# b% l0 \9 C5 m" y" |9 C} |