VFP处理处理字符串中的乱字符

[無法替代]

上图中 "脂肪肝" 这个字符串是从别人数据库中取出来的数据
我要再加上一个字符串 比如 "111" 中间要换行 但用chr(13)不行
后来发现 "脂肪肝" 后面有一个看不到的字符 ansi码是206
这样的情况怎么加上换行符呢

注意 乱字符 是不固定的
我找了个网站查了一下目前发现的乱字符 是ASCII码的 不是ANSI码的 但内容一样。。。

ASCII码 206 对应的字符为 Î
ASCII码 219 对应的字符为 Û
ASCII码 181 对应的字符为 µ
ASCII码 175 对应的字符为 ¯

[都市夜猫]

chr(13) 是回车，chr(10) 才是换行

[都市夜猫]

Unix，用 “\n” 表示换行 Mac，用 “\r” 表示换行 Windows面，用 “\r\n” 表示换行 因此你最好用 chr(13)+chr(10)

[都市夜猫]

? '脂肪肝'+chr(206)+chr(10)+'111' && 这样肯定看不到乱字符
只不过半个无效字符并没去掉。要去掉也可以
s = '脂肪肝'+chr(219)
s = Strconv(Rtrim(Strconv(s,5),0h0000),6)
? s +Chr(13)+'111'

[無法替代]

引用 2 楼 dkfdtf 的回复:

Unix，用 “\n” 表示换行 Mac，用 “\r” 表示换行 Windows面，用 “\r\n” 表示换行 因此你最好用 chr(13)+chr(10)

重点不是回车和换行 这两个我都试了 平时都是可以的 这次是因为字符串结尾有乱字符 就不行了

[xuzuning]

a = "脂肪肝"
?a
?LEN(a)
?ASC(RIGHT(a,1))
?'111'+CHR(10)+a

汉字由两个字节构成，您看到的 206 正是 肝 字的第二个字节的内码

[wwle]

我也遇到过，挻麻烦，直接算好长度直接截才行。

[阿凡提]

参考一下： PROC FHZSTR PARAMETER m.q_com,m.q_nn * m.q_com = * m.q_nn = * 参数：字符串、宽度 * 返回：从左边取，字符串尾有半个汉字时去掉尾部半个汉字 *PRIVATE ALL LIKE q_* *PRIVATE m.q_com *PRIVATE m.q_nn PRIVATE m.q_com1 PRIVATE m.q_n1 PRIVATE m.q_n2 IF TYPE("m.q_com")#"C" m.q_com="" ENDI IF TYPE("m.q_nn")#"N" m.q_nn=LEN(m.q_com) ENDI m.q_com1=LEFT(m.q_com,m.q_nn) m.q_nn=LEN(m.q_com1) m.q_n1=1 m.q_n2=0 DO WHILE m.q_n1<=m.q_nn IF (m.p_dbk_chs.AND.fisachs(SUBS(m.q_com1,m.q_n1,2))).OR.(m.p_dbk_cht.AND.fisacht(SUBS(m.q_com1,m.q_n1,2))) m.q_n1=m.q_n1+2 m.q_n2=m.q_n1 LOOP ENDI IF (m.p_dbk_chs.AND.!fisachs(SUBS(m.q_com1,m.q_n1,1)+CHR(200))).OR.(m.p_dbk_cht.AND.!fisacht(SUBS(m.q_com1,m.q_n1,1)+CHR(200))) m.q_n1=m.q_n1+1 m.q_n2=m.q_n1 LOOP ENDI m.q_n1=m.q_n1+1 ENDDO IF m.q_n2=m.q_nn+1 m.q_com1=LEFT(m.q_com,m.q_nn) m.q_com=SUBS(m.q_com,m.q_nn+1) ELSE m.q_com1=LEFT(m.q_com,m.q_nn-1) m.q_com=SUBS(m.q_com,(m.q_nn-1)+1) ENDI RETU m.q_com1 * END OF PROC FHZSTR. PROC FISACHS PARAMETER m.q_vexp * m.q_vexp = * 参数：字符 * 返回：为简体中文字符(GBK) .T. * 否则 .F. RETU BETWEEN(ASC(SUBS(m.q_vexp,1,1)),129,254).AND.; (BETWEEN(ASC(SUBS(m.q_vexp,2,1)),64,126).OR.BETWEEN(ASC(SUBS(m.q_vexp,2,1)),128,254)) * END OF PROC FISACHS. PROC FISACHT PARAMETER m.q_vexp * m.q_vexp = * 参数：字符 * 返回：为繁体中文字符(BIG5) .T. * 否则 .F. RETU BETWEEN(ASC(SUBS(m.q_vexp,1,1)),161,254).AND.; (BETWEEN(ASC(SUBS(m.q_vexp,2,1)),64,126).OR.BETWEEN(ASC(SUBS(m.q_vexp,2,1)),161,254)) * END OF PROC FISACHT. ?FHZSTR(s,len(s))

[十豆三]

可以去掉这些字符再换行chr(13)+chr(10)

[weixin_42993008]

又看到版主的回复，感想，十豆三，照亮vfp学习者前进的道路。

[wmawma123]

后面加个空格+chr(13)+chr(10)行不行？