已结贴

[此贴子已经被作者于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 & space(15-len(text1)) & text2
Close #1

又不行了！！！！



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

楼主说的不错！第一次用数字测试的时候成功了！
加入自己程序用的是汉字排版,弄的时候失效了！
数字 12 和符号 .. 都是2个加起来才等于一个汉字的空格大小！
-----------↓
想请问楼主,,看了你的回复,,我也弄了老半天了,,
还是不懂~怎么转换为汉字类型的尼？
尤其是代码怎么写啊~承认自己愚昧！
自己越改越乱~~~！！！

谢谢楼主！自己又突破这小小的瓶颈了！值得学习了！