已结贴 - VB6论坛 - 编程论坛档案馆

编程论坛 → 开发语言 → 『 VB6论坛』 → 已结贴

标题：已结贴

只看楼主

a251357

等　级：论坛游民
帖　子：42
专家分：14
注　册：2014-4-24
结帖率：90%

楼主

已结贴√ 问题点数：20 回复次数：13

已结贴

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

2015-09-13 23:53

wmf2014

等　级：贵宾
威　望：216
帖　子：2039
专家分：11273
注　册：2014-12-6

第 2 楼

得分:10

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

能编个毛线衣吗？

2015-09-14 09:08

风吹过b

等　级：贵宾
威　望：364
帖　子：4912
专家分：29900
注　册：2008-10-15

第 3 楼

得分:10

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

授人于鱼，不如授人于渔
早已停用QQ了

2015-09-14 09:33

风吹过b

等　级：贵宾
威　望：364
帖　子：4912
专家分：29900
注　册：2008-10-15

第 4 楼

得分:0

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

授人于鱼，不如授人于渔
早已停用QQ了

2015-09-14 09:41

wmf2014

等　级：贵宾
威　望：216
帖　子：2039
专家分：11273
注　册：2014-12-6

第 5 楼

得分:0

回复 3楼风吹过b

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

能编个毛线衣吗？

2015-09-14 10:45

风吹过b

等　级：贵宾
威　望：364
帖　子：4912
专家分：29900
注　册：2008-10-15

第 6 楼

得分:0

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

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

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

授人于鱼，不如授人于渔
早已停用QQ了

2015-09-14 11:22

a251357

等　级：论坛游民
帖　子：42
专家分：14
注　册：2014-4-24

第 7 楼

得分:0

回复 2楼 wmf2014

完美！！

2015-09-14 19:34

a251357

等　级：论坛游民
帖　子：42
专家分：14
注　册：2014-4-24

第 8 楼

得分:0

回复 3楼风吹过b

完美！

2015-09-14 19:34

a251357

等　级：论坛游民
帖　子：42
专家分：14
注　册：2014-4-24

第 9 楼

得分:0

回复 2楼 wmf2014

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

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

2015-09-14 22:43

a251357

等　级：论坛游民
帖　子：42
专家分：14
注　册：2014-4-24

第 10 楼

得分:0

回复 8楼 a251357

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

又不行了！！！！

L1和l2是 list1和list2 list1 用应该不会影响吧？我新建工程测试很好的啊！

怎么弄到程序里去就不行了！真是奇怪了！

2015-09-14 22:48

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-457288-1-1.html