我用的操作系统是XP，正常安装VFP6后按提示接着安装了MSDN，但不知道为什么，在运行VFP6时帮助菜单下的帮助（F1)是灰色的。请教了。
程序中为了相关联，需要把几个数据库中的“姓名”统一，（因为几数据库中相同姓名有的中间带空格，有的没有空格）如有的是“王洁”，有的是“王 洁”（带一个空格），有的是“王 洁”（带二个空格）。我想用一个程序把所有姓名中的空格全部都去掉，不知道为什么用
y=""
for i=1 to len(rtrim(xm))
if subs(xm,i,1)<>" " then
y=y+subs(xm,i,1)
endif
next
repl xm with y
可以去掉带一个空格的姓名中的空格，而不能去掉带两个空格姓名中的空格。
用?subs(xm,3,1)<>" "时，对带一个空格的姓名时是.F.，对带二个空格的姓名时是.T.
请教了。

打开表
在表中运行命令:
repl all xm with alltr(xm)

老兄，错了。alltrim(xm)只是把字符串左右的空格去掉，不能把中间的空格去掉。

没看清咯,==
现在在自己机上试试,帮你搞定

应该是一个数字等于两个字符的问题了,而一个空格就算一个字符,你也试试看

晕,
public y
y=""
for i=1 to len(rtrim(xm))
if subs(xm,i,1)<>" " then
y=y+subs(xm,i,1)
endif
next
repl all xm with y
thisform.Refresh
就可以了

[此贴子已经被作者于2007-5-7 15:46:03编辑过]

"用?subs(xm,3,1)<>" "时，对带一个空格的姓名时是.F.，对带二个空格的姓名时是.T."

不是你说的那样,当第三个字符为空格时,都显示的是".f."(一个汉字等于两个字符)

"我用的操作系统是XP，正常安装VFP6后按提示接着安装了MSDN，但不知道为什么，在运行VFP6时帮助菜单下的帮助（F1)是灰色的。请教了。"
菜单：
工具-〉选项：找到“文件位置”选项卡
在列表框找到“帮助文件”，指定文件路径。
ok

replace all xm with chrtran(chrtran(xm,chr(32),''),chr(161)+chr(161),'')&amp;&amp;空格可以是半角的，也可以是全角的

请songyuyu版主先自己在机上试过后再回答
use cj09g1x
do while not eof()
y=""
for i=1 to len(rtrim(xm))
if subs(xm,i,1)<>" " then
y=y+subs(xm,i,1)
endif
next
repl xm with y
skip
endd
use
retu
此程序就是不能去掉中间带两个空格的字符串,我才在此提问.
晕,
public y
y=""
for i=1 to len(rtrim(xm))
if subs(xm,i,1)<>" " then
y=y+subs(xm,i,1)
endif
next
repl all xm with y
thisform.Refresh
怎么能用repl all xm with y,这把所有xm都替换成第一个姓名了.

还有关于帮助菜单成灰的问题,不知道有请教了