已结贴 - 编程论坛

#2

wmf20142015-09-14 09:08

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

#3

风吹过b2015-09-14 09:33

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

#4

风吹过b2015-09-14 09:41

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

#5

wmf20142015-09-14 10:45

回复 3楼风吹过b

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

#6

风吹过b2015-09-14 11:22

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

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

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

#7

a2513572015-09-14 19:34

回复 2楼 wmf2014

完美！！

#8

a2513572015-09-14 19:34

回复 3楼风吹过b

完美！

#9

a2513572015-09-14 22:43

回复 2楼 wmf2014

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

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

只有本站会员才能查看附件，请登录

#10

a2513572015-09-14 22:48

回复 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 用应该不会影响吧？我新建工程测试很好的啊！

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

#11

风吹过b2015-09-15 17:37

2楼代码，3楼代码，针对英文字符，如果你用于中文，那需要换个方法计算宽度。
汉字的宽度是英文字母的2位，但使用 len 时，长度都是1，错误就产生在这里。

LenB(StrConv(字符串, vbFromUnicode))
用这个命令代码那个 len(字符串)

lenb 占用字节数，汉字算2个，英文算1个，但 Unicode 也算2个
所以，直接lenb(字符串）的结果是 len（字符串）的2位，错误。

StrConv(字符串, vbFromUnicode) 把VB Unicode 字符串，转化为 ANSI 格式字符串
如果保存这种字符中，使用 byte 数组

#12

a2513572015-09-15 21:20

回复 11楼风吹过b

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

#13

风吹过b2015-09-15 21:59

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

#14

a2513572015-09-15 22:33

回复 13楼风吹过b

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