|
网站首页
|
业界新闻
|
小组
|
威客
|
人才
|
下载频道
|
博客
|
代码贴
|
在线编程
|
编程论坛
|
登录
注册
短消息
我发表的主题
我参与的主题
我收藏的贴子
我上传的附件
我下过的附件
编辑个人资料
我的博客
用户控制面板
搜索
道具
恢复默认风格
碧海青天
秋意盎然
棕红预览
粉色回忆
蓝雅绿
紫色淡雅
青青河草
e点小镇
橘子红了
红红夜思
水晶紫色
雪花飘飘
新年快乐
风格
短消息
论坛展区
帮助
编程论坛
→
开发语言
→
『 VB6论坛 』
→ 已结贴
我的收件箱(0)
欢迎加入我们,一同切磋技术
用户名:
密 码:
共有
1053
人关注过本帖
标题:
已结贴
只看楼主
加入收藏
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
帖 子:4947
专家分:30084
注 册: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
帖 子:4947
专家分:30084
注 册: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
帖 子:4947
专家分:30084
注 册: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
举报帖子
使用道具
赠送鲜花
14
1/2页
1
2
快速回复:
已结贴
数据加载中...
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.061191 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved