VB向文本写入数据, 采用什么什么方法可以使数据按小数点对齐?

Question

我编一程序, 向文本中写入数据有很多列, 要求是上下列接小数点方式对齐
小数点前后各4位,我想Format格式只能固定后面,但前面4位数据,不能零,数据如下:
 250.0000   4.0000  50.0000 220.0000    .6200    .9000
1400.0000  10.0000    .3500   1.8000  24.0000  30.0000

Answer 1

你是要将  .9000 前面填上0呢，还是要填至指定长度？填0的话：
?formatnumber(.9000,4,vbTrue)
0.9000用空格填指定长度(15位)：
?right(space(15)&formatnumber(.9000,4,vbTrue),15)
         0.9000

Answer 2

我不是在前面加零,要是加零用Format(.9000, "0.000")这样就行, 问题是我的数据是经常变化的,要是第一项数据是2500则上下数据则不能对齐.

Answer 3

我设想能不能实现好像WORD那样了,上下行全部靠右边对齐, 因为后面四位是有规律.

Answer 4

文本文件是没有格式的，怎么指定它对齐？那只能填充至一样长。
如果你用 html 输出，就很容易指定对齐方式了。当然，那也只是视觉上的对齐，只能用浏览器打开才能可视化看到；否则，用文本方式读取也一样的不能对齐。