astring=“HK02028-12古铜色曲杆吊环拉手头”
for i=1 to len(astring)
strtemp=mid(astring,i,1)
if (strtemp>"a" and strtemp<"z") or (strtemp>"A" and strtemp<"Z") _
or (isnumeric(strtemp)) or (strtemp="-") then
else
exit for
end if
next
string编码=left(astring,i-1)
string中文=right(astring,len(astring)-i+1)