写文件如何对齐?有样子有代码,各路大虾请进!

二氧化碳 2004-07-15 11:13:14
字段1 字段2 字段3 字段4
1 1200.00 189.28 343.27
22 1171.50 190.00 344.56
27 1143.00 90.00 344.63
41 1114.50 90.00 344.59
106 1086.00 1.83 249.12
107 1057.50 11.46 351.23
1656 1029.00 125.64 246.77
1657 1000.50 125.60 246.85
1658 972.00 125.67 246.73
(一)
字段1 字段2 字段3 字段4
1 1200.00 189.28 343.27
22 1171.50 190.00 344.56
27 1143.00 90.00 344.63
41 1114.50 90.00 344.59
106 1086.00 1.83 249.12
107 1057.50 11.46 351.23
1656 1029.00 125.64 246.77
1657 1000.50 125.60 246.85
1658 972.00 125.67 246.73
(二)
Print #1, Spc(0); listviewrs!字段1; Spc(6); at(listviewrs!字段2, "0.00"); Spc(4); Format(listviewrs!字段3, "0.00"); Spc(3); listviewrs!字段4
我想实现(一),我的程序整出来的是(二)除了用判断语句修改空格SPC(N).还有别的办法吗?





























...全文
157 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
二氧化碳 2004-07-16
  • 打赏
  • 举报
回复
谢谢各位,结贴!
kmzs 2004-07-15
  • 打赏
  • 举报
回复
要看在什么系统上
lndlwwh830 2004-07-15
  • 打赏
  • 举报
回复
关注!!
northwolves 2004-07-15
  • 打赏
  • 举报
回复
用VBTAB 作分割符。
二氧化碳 2004-07-15
  • 打赏
  • 举报
回复
mL = Len(Format(listviewrs!字段1, "0.00"))
nL = Len(Format(listviewrs!字段2, "0.00"))
kL = Len(Format(listviewrs!字段3, "0.00"))

Print #1, Spc(0); listviewrs!字段1; Spc(8 - mL); Format(listviewrs!字段2, "0.00"); Spc(8 - nL); Format(listviewrs!字段3, "0.00"); Spc(8 - kL); listviewrs!字段4
这样就可以实现,谢谢各位!

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧