首页 > 程序设计 > foxpro汉字中有没有空格判断解决方法

foxpro汉字中有没有空格判断解决方法

2017年9月25日

汉字中的空格判断解决方法

在foxpro中汉字中的空格判断,怎样判断汉字中如姓名有没有空格呢?
Create Cursor T (Xm C(10),正确结果 C(10),错误原因 C(20))
Insert Into T (Xm) Values ("吕 三")
Insert Into T (Xm) Values ("张  四")
Insert Into T (Xm) Values ("关 云  宇")
Insert Into T (Xm) Values ("刘 备")
Insert Into T (Xm) Values ("赵  葛 亮")
Insert Into T (Xm) Values ("赵云")
* 只考虑姓名间的空格,不考虑姓名尾部的空格,空格分全角(41377)和半角(32),鉴于楼主是初学者,代码如下(Vfp6代码)
Local lcStr
lcStr=""
Scan
    Do Case
       Case Chr(41377)$Alltrim(Xm) And Chr(32)$Alltrim(Xm)
            lcStr="全角+半角空格"
       Case Chr(32)$Alltrim(Xm)
            lcStr="半角空格"
       Case Chr(41377)$Alltrim(Xm)
            lcStr="全角空格"
       Otherwise 
            lcStr=""      
    EndCase 
    Replace 正确结果 With Strtran(Strtran(Alltrim(Xm),Chr(32),""),Chr(41377),""),错误原因 With lcStr
Endscan

程序设计 浏览4 次

本文的评论功能被关闭了.