| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1041 人关注过本帖
标题:关于长数字的替换填充
只看楼主 加入收藏
liuhaijun
Rank: 2
等 级:论坛游民
威 望:1
帖 子:176
专家分:45
注 册:2008-12-27
结帖率:100%
收藏
已结贴  问题点数:10 回复次数:6 
关于长数字的替换填充
学生学号(XH)长度是18 字符型 如:305200909034500001  前13位固定不变,后5位递增。
我想用repl 的方法填充。
先做一个表单 ,加一个文本框Text1),按钮下的代码是:
set talk off   
km8=alltrim(thisform.text1.value)  
gg=val(km8)
repl all xh with alltrim(str((recno()+gg-1),18))
thisform.release

注:km8 和gg 均为全局变量,km8 用来接收text1 所输入的起始号。

问题:当起始号小于等于16位时,正常替换;当起始号大于等于17位时,个位均变成 0 ,不能正常替换。
      请问如何处理,来替换18位的学号(XH)?
搜索更多相关主题的帖子: 数字 
2009-10-06 00:17
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:2 
set talk off     
km8=alltrim(thisform.text1.value)   
* gg=val(km8)  
* repl all xh with alltrim(str((recno()+gg-1),18))
repl all xh with km8 +padl(recn()-1,5,"0")
   
thisform.release  
2009-10-06 01:53
sywzs
Rank: 10Rank: 10Rank: 10
来 自:辽宁
等 级:贵宾
威 望:15
帖 子:508
专家分:1725
注 册:2009-5-13
收藏
得分:3 
set talk off      
gg=val(subs(km8,14))   
km8=left(thisform.text1.value,13)     
repl all xh with km8 +padl(recn()-1+gg,5,"0")   
thisform.release  
2009-10-06 04:56
liuhaijun
Rank: 2
等 级:论坛游民
威 望:1
帖 子:176
专家分:45
注 册:2008-12-27
收藏
得分:0 
非常感谢二位老师的指点,可以正常填写充了。代码如下:
set talk off      
km8=left(thisform.text1.value,13)     
repl all xh with km8 +padl(recno(),5,"0")
thisform.release   

以上代码填充的结果是从1开始填充,如果起始码不是1
使用sywzs老师给的代码:
set talk off      
gg=val(subs(km8,14))   
km8=left(thisform.text1.value,13)     
repl all xh with km8 +padl(recn()-1+gg,5,"0")   
thisform.release   

会弹出“函数参数的值、类型或数目无效。”的提示。
我用的是VF6.0版。
2009-10-06 12:52
sd_tysd
Rank: 5Rank: 5
等 级:职业侠客
威 望:1
帖 子:81
专家分:319
注 册:2009-7-23
收藏
得分:4 
回复 楼主 liuhaijun
*set talk off   
*km8=alltrim(thisform.text1.value)  
*gg=val(km8)
*gg=val(km8)+recno()-1
*repl all xh with alltrim(str((recno()+gg-1),18))

set talk off   
km8=alltrim(thisform.text1.value)
gg=val(km8)+recno()-1  
repl all xh with "3052009090345"+right(str(recno()-gg+1000000),5)   &左边既然不变就可以用固定字符串表示 数值位数不能大于16位采用科学计数法表示所以不能显示起始数。

thisform.release


[ 本帖最后由 sd_tysd 于 2009-10-7 11:22 编辑 ]
2009-10-06 16:25
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:1 
当数值转换为字符串并需要前导0时(即固定若干位字符),可以用padl()函数来添加(如2楼),也可以用加一个合适的数,转换后截取后几位的办法(如5楼),我更倾向于使用后者的方法。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2009-10-07 11:20
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
在原表中增加一个字段,暂命名为XH1
REPLACD ALL XH1 WITH LEFT(ALLTRIM(XH),13)+PADL(RECNO(),5,[0])

坚守VFP最后的阵地
2014-03-23 22:10
快速回复:关于长数字的替换填充
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016071 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved