当前位置: 代码迷 >> VFP >> 怎么在VFP中查找汉字的命令,汉字是不定的
  详细解决方案

怎么在VFP中查找汉字的命令,汉字是不定的

热度:253   发布时间:2013-02-26 00:00:00.0
如何在VFP中查找汉字的命令,汉字是不定的
我有一个VFP表,现在正在整理中,需高位老师帮忙筛选出含有汉字的纪录。汉字的不定的:如:现配、尼龙管等;

------解决方案--------------------------------------------------------
这是去掉汉字的代码,自行修改
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
------解决方案--------------------------------------------------------
请参考:FAQ-

<取得字符串中双字节(中文和中文符号).英文字母.空格.数字字符和其他字符个数,并显示它们>
http://faq.csdn.net/read/210873

帖主,代码都给到份了,自已稍改一下吧。
------解决方案--------------------------------------------------------
&&总结各位高人的思想后,请将下列代码copy--> paste .prg文件

SELECT * FROM tt where rr1(bh)

FUNCTION rr1
PARAMETERS rr
gg=.t.
df = Len(Trim(RR))
rr2=rr
For i = 1 To df
If Asc(subs(rr, i, 1))> =128
gg= .f.
exit
EndIf
endfor
RETURN gg
ENDFUNC
  相关解决方案