Question

vb 读取txt文本内的 xx-xx-xx日期

在跟目录下有一个data。txt的文件，里面记录着日期，内容为： 2013-08-06
读取代码如下，
Open App.Path + "\data.txt" For Input As #8
Input #8, RiQi
Close #8
可是每次出去后只能获取2013，有什么办法读取完整的2013-08-06 。
我用来判断data。txt 文件里的日期和今天的日期是否一致！
感谢szqaly、和xyc5932的帮助！谢谢！

Answer 1

你不妨把 RiQi定义为日期类型试试看，如果不行用Line Input #8, RiQi 读取一行。
Input 这个语句是用来读取用逗号分字段的的记录文件的。

追问

可以了，不过我想问一下 Line Input 是读取第一行的意思吗？

追答

文件打开时，文件指针指向第一行第一字符位置，Line Input 每读取一行就自动把文件指针移到下一行开头，所以下一次line input 读取的是下一行了。如果读到文件尾再读取就会发生错误。所以要用EOF(文件号) 来判断文件是否已读到尾了。
典型读取所有行的方法：
dim strline as string
do until EOF(文件号）
line input 文件号， strline
loop

Answer 2

加定义
Dim RiQi As String

追问

这个肯定不会漏的

追答

Private Sub Command5_Click()
Dim RiQi As String
Open App.Path + "\data.txt" For Input As #8
Input #8, RiQi
Text1 = RiQi
Close #8
End Sub
我测试通过

追问

我的是这样，
Open App.Path + "\data.txt" For Input As #8
Line Input #8, RiQi
Close #8
msgbox RiQi

data.txt 也是用output写入的，不是手动写入

追答

ok.....................