Question

vb文件输出问题

vb处理完数据之后，输出到文件
Open App.Path & "\3.txt" For Append As #3
Print #3, arr(i - 1, 1)
Print #3, classbpp(1)
Print #3, classtemp(1)
Print #3, output(7)
Print #3, "处理完毕"
Close #3

现在如果其中某一两条记录为空，怎么让他不输出？
比如classbpp(1) 没有值，输出的时候就是一个空行
如果有三条记录都是空的话，输出时就会空出三行，怎么能让没有数据的行不输出？
这段程序是在一个循环里的，每循环一次就要输出几个空行，实在太浪费空间了各位高手有没有办法？

Answer 1

那只能用选择语句进行：
if arr(i - 1, 1)<>"" Then Print #3, arr(i - 1, 1)
if classbpp(1)<>"" Then Print #3, classbpp(1)

if classtemp(1)<>"" Then Print #3, classtemp(1)
if output(7)<>"" Then Print #3, output(7)

追问

如果想让输出结果对齐怎么办？

比如执行Print #3, classbpp(1) 时，输出的结果是：

该怎么做呢？多谢啦~~

追答

这个比较复杂了；

1，需要预先知道所有的输入情况的最多的字符数字。然后规定一个合适的宽度（字符数）。
2，在写入文件前，对该内容判断字符数，不足的用其他特殊字符添满。
3，将来，从文件里读出来的时候，需要去掉填充的特殊字符。
对于填充字符，需要自己编写子过程，因为1个中文的宽度相当于2个西文字符的宽度。

所以，实现起来比较复杂了！其实没有必要对齐，如果需要浏览文件内容，可以编写代码进行浏览。或者不要用文本文件，采用数据库吧！

追问

读的时候我是用一个function过程实现的，排除掉了多余的空格
现在是输出，这些数据输出出来是要手动处理的，所以最好能直观一些
至于您提到的合适的宽度，举例中毛概那条记录是最长的
您能帮忙写一下么？

数据库我也试过，至少以我自己和身边众高手的能力，达不到我需要的效果，而且读取速度比较慢。（办公电脑太老了，很不给力，只有运行VB还顺利些。）

追答

请问,输入的数据你有字符数的限制吗?
我不清楚你的原来数据是怎么得到的?如果是一个整体得到,并作为一个整体存放到一个文件,当然可以做.
1,首先要扫描一遍这些数据,得到每个列的最多字符数(列宽),存放到变量.(这个就是每列宽度)
2,然后就可以根据上面我说的方法写到文件里了.

但是,如果你的数据是不断增加的,比如,已经写了文件,又有新的数据,需要继续写到这个文件里,那样的话,如果新数据宽度超过原来的宽度,就又没法对齐了!

所以,需要限制一个最宽的宽度(最多字符数)

追问

是在循环里得到的，每次循环都得到一组：
arr(i - 1, 1); " "; arr(i - 1, 2)
classbpp(1)
classtemp(1)
output(7)

其中：
classbpp(1) = classbpp(1) & arr(i, 3) & " " & arr(i, 4) &" " & arr(i, 5) &" " & arr(i, 6) &" " & arr(i, 7) & vbNewLine
classtemp(1)和output(7)也是类似的样子，都是输出固定的数组，在这里可以认为是固定的字符串，但长度不固定，arr(1,3)和arr(2,3)的长度也不同

追答

你明白了吗?如果是固定一组数据,写到一个文件,还有做的价值,否则无法做!!!

追问

数据固定，不过是分次写入，可以么？

追答

对呀,分次写入,怎么弄啊?
你不规定某个字段的宽度,这次是20,下次是24,如何弄啊?
要么,把原来的读出来,和新的一起分析,重新确定宽度,这样会降低速度
你把你的文件传过来,我帮你试试:Syx54@sohu.com

Answer 2

肥肉肉vbh

Answer 3

路过