24小时热门版块排行榜    

查看: 1279  |  回复: 4

yhwsmile

金虫 (小有名气)

[交流] 【求助】请教VB txt文件输出如何让每个数据占用固定长度的字节~~~ 已有3人参与

vb输出txt数据文件,我想像fortran那样输出的txt文件每个数据占6个字节,请问该如何实现啊?
我的方法:用cstr将integer转换为string型,然后将string型的长度设为6,但输出后空格是补在数据后面的,我们数据格式要求是空格在前面~~~
图1为我直接生成的数据~~~
图2为我想得到的形式~~~
图3为我转成string,将长度设为8后得到的形式~~
~~


谢谢各位大虾了~~~~~
图1

图2

图3


[ Last edited by yhwsmile on 2010-9-25 at 17:22 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yhwsmile

金虫 (小有名气)

余泽成:欢迎常来程序语言版! 2010-09-25 23:06:57
自己解决了~~~
c0(k) = Trim(CStr(b0(k)))
    If Len(c0(k)) = 1 Then c0(k) = "     " + c0(k)
    If Len(c0(k)) = 2 Then c0(k) = "    " + c0(k)
    If Len(c0(k)) = 3 Then c0(k) = "   " + c0(k)
    If Len(c0(k)) = 4 Then c0(k) = "  " + c0(k)
    If Len(c0(k)) = 5 Then c0(k) = " " + c0(k)
不知道有没有更好的方法~~~
2楼2010-09-25 17:23:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

magic7004

金虫 (职业作家)


小木虫(金币+0.5):给个红包,谢谢回帖交流
那5个if可以改成c0(k) = Space(6-Len(c0(k)) & c0(k)
流氓不可怕,可怕的是流氓有文化,有文化又BH的流氓无敌~~!
3楼2010-09-26 09:34:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yhwsmile

金虫 (小有名气)

引用回帖:
Originally posted by magic7004 at 2010-09-26 09:34:22:
那5个if可以改成c0(k) = Space(6-Len(c0(k)) & c0(k)

恩,谢谢咯~~~
偶还得努力咯
4楼2010-09-26 14:36:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

不想注册啊

新虫 (初入文坛)


小木虫: 金币+0.5, 给个红包,谢谢回帖
请教如何将采集到的数据保存到txt文件中?我用NI的卡
5楼2012-12-24 11:08:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 yhwsmile 的主题更新
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见