812
社区成员
- 主页
- API 调用
- 基础类
- 控件与界面
- 数据库相关
- DataWindow
- 项目管理
- Web 应用
- 脚本语言
PB中的函数
将一个数值（如123,4)转换成字符串，要求固定宽度为10，不足部分用空格补齐，保留两位小数位置，得到结果为____124.40(_代表空格),用什么函数？
...全文
请发表友善的回复…
发表回复
rain_lao 2003-01-16
string ls_fin,ls_tmp,ls_f
int li_for
ls_fin=fill("0",4)+string(123.4)+"0"
for li_for=1 to len(ls_fin)
ls_f=mid(ls_fin,li_for,1)
if ls_f<>"0" then
ls_tmp=space(li_for - 1)
ls_fin=ls_tmp+mid(ls_fin,li_for,10 - li_for+1)
exit
end if
next
int li_for
ls_fin=fill("0",4)+string(123.4)+"0"
for li_for=1 to len(ls_fin)
ls_f=mid(ls_fin,li_for,1)
if ls_f<>"0" then
ls_tmp=space(li_for - 1)
ls_fin=ls_tmp+mid(ls_fin,li_for,10 - li_for+1)
exit
end if
next
hzhxxx 2003-01-14
斑竹出马，马到成功！
sybase2000 2003-01-14
String(12345,' '),这个好象不行吧，显示出来为一空串
myclife 2003-01-14
String(12345,' ')
killerdanny 2003-01-14
string l,lf,lr
long ll
l=string("123.4")
ll=pos(l,'.')
lf=left(l,ll - 1)
lr = right(l,len(l) - ll )
choose case len(lr)
case 2
l = space(10 - len(lf))+lf +"." +lr
case 1
l = space(10 - len(lf))+lf +"." +lr +'0'
case 0
l = space(10 - len(lf))+lf +"." +lr +"00"
end choose
messagebox("",l)
long ll
l=string("123.4")
ll=pos(l,'.')
lf=left(l,ll - 1)
lr = right(l,len(l) - ll )
choose case len(lr)
case 2
l = space(10 - len(lf))+lf +"." +lr
case 1
l = space(10 - len(lf))+lf +"." +lr +'0'
case 0
l = space(10 - len(lf))+lf +"." +lr +"00"
end choose
messagebox("",l)