当前位置: 代码迷 >> VFP >> 去掉字符串在的汉字,该如何解决
  详细解决方案

去掉字符串在的汉字,该如何解决

热度:7875   发布时间:2013-02-26 00:00:00.0
去掉字符串在的汉字
在VF中我怎样去掉字段 "规格型号 "中的汉字:

比如:前板组件JUZ6176005  

要得到的结果为:JUZ6176005

------解决方案--------------------------------------------------------
lcString= '前板组件JUZ6176005 '
FOR I=1 TO LEN(lcString)
IF ISLEADBYTE(SUBSTR(lcString,I,1)) &&中文(中文及中文符号是双字节)
I=I+1
LOOP
ELSE
EXIT
ENDIF
ENDFOR
?SUBSTR(lcString,I)
------解决方案--------------------------------------------------------
SELECT *,rr1(bh) FROM tt
FUNCTION rr1
PARAMETERS rr
gg= " "
df = Len(Trim(RR))
rr2=rr
For i = 1 To df
If !(Asc(subs(rr, i, 2)) < 0 Or Asc(subs(rr, i, 2)) > 255) Then
hb1 = subs(rr, 1, 2)
gg = gg + subs(rr, i, 1)
EndIf
NEXT
RETURN gg
ENDFUNC
  相关解决方案