spaceto0.prg

来自「用VFP计算平方根(例如sqtr(2))到6万5千位小数的程序.」· PRG 代码 · 共 13 行

* spaceto0.prg
* 将字符串中的空格换为0
parameters h
private except eachlen,alllen
l=len(h)
for j=1 to l
   *@ 9,10 say "spaceto0"+str(j)
   k=substr(h,j,1)
   k=iif(k=" ","0",k)
   h=left(h,j-1)+k+substr(h,j+1,l)
next j
return h