已结贴

[此贴子已经被作者于2017-1-15 05:22编辑过]

计算变化的空格数即可，如下：
Open App.Path & "\"数据.txt" For Append As #1
Print #1,text1 & space(15-len(text1)) & text2
Close #1

Open App.Path & "\"数据.txt" For Append As #1
Print #1,text1 , text2
Close #1
这种方法试试。

另一种方法你也试试：
Open App.Path & "\"数据.txt" For Append As #1
Print #1,text1 & space(14-len(text2.text)) & text2
Close #1

好吧，我一个小时之前想发的东西，然后网站连接失败。
郁闷

第二列对齐应该是和第一列的长度有关，还是-len(text1),验证了的。

应该是与 text1.text 有关，我写快了。

我直接在浏览器里写的，没去测试，感觉而以。

我以前使用这种方法时，是使用的右对齐方式，顺手了，第一列也是右对齐，第二列也右对齐。

完美！！

完美！

Open App.Path & "\数据.txt" For Append As #1
Print #1,text1 & space(15-len(text1)) & text2
Close #1

简单的测试是可以的额...可不知道是为什么运用我的程序里面去的时候就失去效果了,,,求结果！

Open App.Path & "\数据.txt" For Append As #1
Print #1,text1 & space(15-len(text1)) & text2
Close #1

又不行了！！！！



L1和l2是 list1和list2  list1 用应该不会影响吧？我新建工程测试很好的啊！
怎么弄到程序里去就不行了！真是奇怪了！