应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 数据输出
121/2返回列表12下一页
查看: 905  |  回复: 11
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

mkluowen

铜虫 (小有名气)

[求助] 数据输出

运行结果用data 格式输出后，—1到1之间的数，小数点前的零不显示，比如-0.144输出后显示为-.144，怎么解决啊，还有，怎么规定每个数据占据的长度。
Write #2, natom, namol + 1, 1, qc, cc1x(ix), cc1y(iy), cc1z(iz)，输出后的数据一个挨一个的。
回复此楼

» 猜你喜欢
1楼 2013-05-07 11:51:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

ausir

木虫 (正式写手)

【答案】应助回帖

★ ★
感谢参与，应助指数 +1
mkluowen: 金币+2, 感谢参与 2013-05-09 09:50:29
jjdg: 编辑内容 2013-05-10 01:29
在 Excel 中新建一个空白文件，然后插入用户模块。在用户模块中，用下面的例子试验即可。
CODE:
Sub test()
Dim a, b, c, d
Open "d:\test\test.dat" For Output As #1
a = 1.005
b = 0.123
c = -1.03
d = -0.523
Write #1, Format(a, "#.###") & Chr(9) & Format(b, "##.###") & Chr(9) & Format(c, "#.###") & Chr(9) & Format(d, "#.###")
Close #1
End Sub

结果如下： test.dat 文件的内容。注意：用Write 写的有双引号。
"1.005        .123        -1.03        -.523"
这个应该可以满足要求。如果使用Print 语句，可能会更加方便些。

[ Last edited by jjdg on 2013-5-10 at 01:29 ]
赞一下(1人) 回复此楼
2楼2013-05-07 19:14:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ausir

木虫 (正式写手)

【答案】应助回帖

★ ★ ★
mkluowen: 金币+3, ★有帮助 2013-05-16 18:14:26
引用回帖:
4楼: Originally posted by mkluowen at 2013-05-09 09:48:16
我要的是输出的—0.523，不是-.523...

把“#.###" 修改为 "0.000"即可。结果如下：
"1.005        0.123        -1.030        -0.523"
赞一下(1人) 回复此楼
7楼2013-05-09 20:43:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)
★
jjdg: 金币+1, 感谢参与 2013-05-17 00:42:20
我发现我错了，我可能是处理字符串太多了，老是往字符串上想。
数字和字符串的存放是不一样的，这个我也不太懂。
赞一下(1人) 回复此楼
8楼2013-05-16 21:36:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)
ausir的 方法也是存储为字符串。
搂主在是要以什么方式存放，以文本存放的话，ausir的 方法 完全满足你的要求。若是以二进制方法可能就要改改程序。还有存放后又如何读取，也要考虑。
赞一下(1人) 回复此楼
9楼2013-05-16 21:47:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)
引用回帖:
10楼: Originally posted by mkluowen at 2013-05-18 08:56:24
以文本存放，读取是用其他软件读取。但是我感觉用字符串的形式估计无法读取。...

你用什么的方式存放，再用什么方式读取，就是一个转换问题。
vb中用str()将数字转为字符串； val()正好相反。
赞一下(1人) 回复此楼
11楼2013-05-18 17:34:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

★ ★
感谢参与，应助指数 +1
mkluowen: 金币+2 2013-05-09 09:50:52
我觉得比较直接的方式是把每个数据 用str()函数转成字符串，然后把长度不够的字符串在后面，补零 用&“0”，这样长度一致全搞定。
最后用replace函数把-0.换成-.  就可以写入文件了。
赞一下 回复此楼
3楼2013-05-08 21:14:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mkluowen

铜虫 (小有名气)
引用回帖:
2楼: Originally posted by ausir at 2013-05-07 19:14:10
在 Excel 中新建一个空白文件，然后插入用户模块。在用户模块中，用下面的例子试验即可。
Sub test()
Dim a, b, c, d
Open "d:\test\test.dat" For Output As #1
a = 1.005
b = 0.123
c = -1.03
d ...

我要的是输出的—0.523，不是-.523
赞一下 回复此楼
4楼2013-05-09 09:48:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mkluowen

铜虫 (小有名气)
引用回帖:
3楼: Originally posted by deephill at 2013-05-08 21:14:19
我觉得比较直接的方式是把每个数据 用str()函数转成字符串，然后把长度不够的字符串在后面，补零 用&“0”，这样长度一致全搞定。
最后用replace函数把-0.换成-.  就可以写入文件了。

我是新手，没有看得太明白，能举一个简单的例子吗？
赞一下 回复此楼
5楼2013-05-09 09:49:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

shyboylpf

新虫 (初入文坛)
我知道用C\C++怎么写。哈哈
赞一下 回复此楼
6楼2013-05-09 20:15:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mkluowen

铜虫 (小有名气)
引用回帖:
9楼: Originally posted by deephill at 2013-05-16 21:47:17
ausir的 方法也是存储为字符串。
搂主在是要以什么方式存放，以文本存放的话，ausir的 方法 完全满足你的要求。若是以二进制方法可能就要改改程序。还有存放后又如何读取，也要考虑。

以文本存放，读取是用其他软件读取。但是我感觉用字符串的形式估计无法读取。
赞一下 回复此楼
10楼2013-05-18 08:56:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 mkluowen 的主题更新
121/2返回列表12下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 8rmuugja8q 2026-02-22 8/400 2026-02-23 12:22 by alian_214
[基金申请] 体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低 +10 瞬息宇宙 2026-02-20 13/650 2026-02-23 11:23 by holypower
[考研] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 khieu8v8m0 2026-02-22 8/400 2026-02-23 09:35 by w4l55oybr1
[论文投稿] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 khieu8v8m0 2026-02-22 8/400 2026-02-23 09:29 by w4l55oybr1
[考研] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +5 usprnugpzw 2026-02-21 11/550 2026-02-23 09:24 by w4l55oybr1
[论文投稿] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 w89i99eaeh 2026-02-22 5/250 2026-02-23 08:04 by w4l55oybr1
[博后之家] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 khieu8v8m0 2026-02-22 6/300 2026-02-23 07:59 by w4l55oybr1
[博后之家] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +6 3dfhjxgsh7 2026-02-22 9/450 2026-02-23 07:49 by w4l55oybr1
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 khieu8v8m0 2026-02-22 4/200 2026-02-23 06:46 by jsjzfl
[公派出国] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 khieu8v8m0 2026-02-22 5/250 2026-02-23 06:29 by w4l55oybr1
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 khieu8v8m0 2026-02-22 8/400 2026-02-23 06:24 by w4l55oybr1
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +5 3dfhjxgsh7 2026-02-22 6/300 2026-02-23 02:04 by 5jlh3qtdvx
[教师之家] 版面费该交吗 +7 苹果在哪里 2026-02-22 8/400 2026-02-22 22:37 by otani
[基金申请] 面上可以超过30页吧？ +4 阿拉贡aragon 2026-02-22 4/200 2026-02-22 21:22 by 山西悬空寺空悬�
[考研] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 3dfhjxgsh7 2026-02-22 4/200 2026-02-22 16:52 by khieu8v8m0
[找工作] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 usprnugpzw 2026-02-22 3/150 2026-02-22 16:37 by khieu8v8m0
[公派出国] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 usprnugpzw 2026-02-21 4/200 2026-02-22 16:27 by khieu8v8m0
[基金申请] “人文社科而论，许多学术研究还没有达到民国时期的水平” +4 苏东坡二世 2026-02-18 5/250 2026-02-22 16:07 by liangep1573
[基金申请] 什么是人一生最重要的？ +4 瞬息宇宙 2026-02-21 4/200 2026-02-22 11:44 by huagongfeihu
[基金申请] 今年春晚有几个节目很不错，点赞！ +11 瞬息宇宙 2026-02-16 12/600 2026-02-21 21:14 by lq493392203
信息提示
关闭
请填处理意见
关闭