| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1053 人关注过本帖
标题:已结贴
只看楼主 加入收藏
a251357
Rank: 2
等 级:论坛游民
帖 子:42
专家分:14
注 册:2014-4-24
结帖率:90%
收藏
已结贴  问题点数:20 回复次数:13 
已结贴
已结贴

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

2015-09-13 23:53
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分: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
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分: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
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
好吧,我一个小时之前想发的东西,然后网站连接失败。
郁闷

授人于鱼,不如授人于渔
早已停用QQ了
2015-09-14 09:41
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:0 
回复 3楼 风吹过b
第二列对齐应该是和第一列的长度有关,还是-len(text1),验证了的。

能编个毛线衣吗?
2015-09-14 10:45
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
应该是与 text1.text 有关,我写快了。

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

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

授人于鱼,不如授人于渔
早已停用QQ了
2015-09-14 11:22
a251357
Rank: 2
等 级:论坛游民
帖 子:42
专家分:14
注 册:2014-4-24
收藏
得分:0 
回复 2楼 wmf2014
完美!!
2015-09-14 19:34
a251357
Rank: 2
等 级:论坛游民
帖 子:42
专家分:14
注 册:2014-4-24
收藏
得分:0 
回复 3楼 风吹过b
完美!
2015-09-14 19:34
a251357
Rank: 2
等 级:论坛游民
帖 子:42
专家分:14
注 册:2014-4-24
收藏
得分: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
Rank: 2
等 级:论坛游民
帖 子:42
专家分:14
注 册:2014-4-24
收藏
得分: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
快速回复:已结贴
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.061191 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved