VFP_从键盘上输入A B C DE F。实现去掉空格，然后输...

clea
accept to cstring
tstring=""
for i= 1 to len(cstring)
if substr(cstring,i,1)<>" "
tstring=tstring+substr(cstring,i,1)
endif
endfor
?tstring

---

clea
accept to cstring
tstring=""
for i= 1 to len(cstring)
if substr(cstring,i,1)<>" "
tstring=tstring+substr(cstring,i,1)
endif
endfor
?tstring

---

accept to ctext
cadd=""
for i=1 to len(ctext)
if asc(substr(ctext,i,1))=32
else
cadd=cadd+ctext
endif
endfor
?"去字符串后的字符串为:",cadd