【正文】
dim strtemp,asctemp,c strtemp= for i=1 to len(sStr) c=mid(sStr,i,1) asctemp=ascw(c) if (asctemp47 and asctemp58) or (asctemp64 and asctemp91) or (asctemp96 and asctemp123) then strtemp=strtemp amp。 then convertsymbol=convertsymbol amp。 end if next end function function cutline(str,linelen) dim i,j