vb 文本输出问题

来源:百度知道 编辑:UC知道 时间:2024/05/24 17:22:06
编辑了一个文本输出,可是顺序有问题,例如输出日期我需要其按照顺序一次往后:
2008-10-31

2008-11-1

2008-11-2

但是我的文本每次点击按钮后,都是在已经输出的文本之前继续输出,刚好生成的文本全反了:

2008-11-2

2008-11-1

2008-10-31

请问应该怎样设置呢?
我是每点一次按钮 出现一行日期

可能出现在文本字符串的连接方式上。

比如:
dim strTmp$
....
strTmp = strTmp & vbcrlf & Date

strTmp = Date & vbcrlf & strTmp

就与你据说的现象类似。。。

首先纠正一下 输入输出 input output 是相对于内存来说的 也就是input(输入)不是写入到磁盘而是从磁盘读取写入到内存。

以下是输出:

将open的模式设置成append(之前增加一个dir判断 否则出错),然后每次print一条即可

如:
第一次:print #1,"123"
文件内容为123

第二次:仅仅print #1,"345"
文件内容为
123
345。

(append:追加模式)

以下是输入:
全局:
dim p() as string

在窗口载入时候:
dim tmp as string
redim p(0)
open 文件地址 for input as #1
do until eof(1)
line input #1,tmp
redim preserve p(ubound(p)+1)
p(ubound(p)) = tmp
loop
close #1

在按钮单击时候:
on error resume next
static i as integer
i = i + 1
text1.text = text1.text & vbcrlf & p(i)

如果你输入的数据,每一行都需要后来输入!
那只有先把数据全部读取,放入数组,然后排序!再重新写入原来的文件!