PublicFunctionHZ2PY(TstrAsString,OptionalonlyFirstAsBoolean)AsStringOnErrorGoToErr
IfonlyFirstThenTstr=Left(Tstr,1)
DimintTstrLongAsIntegerDimstrPYAsStringDimiAsLong,pAsIntegerForintTstrLong=1ToLen(Tstr)
i=Asc(Mid(Tstr,intTstrLong,1))Ifi<=Asc("啊")ori>=Asc("座")ThenstrPY=strPY&Mid(Tstr,intTstrLong,1)
Else
Ifi>=Asc("啊")Andi
THE END