关于文件读写的问题，请高手指教下~~~~~~~~~~~~~~~~~~~~~~

[wyp2120]

str1 = "嘿嘿"
str2 = "小心哈"
str3 = "哦豁"
Open App.Path & "\" & "wyp.txt" For Output As #1
Print #1, str1, str2, str3
Close #1

Open App.Path & "\" & "wyp.txt" For Input As #1
While Not EOF(1)
Input #1, str1, str2, str3
Wend
Close #1
为什么读出来不是我要的意思哦？
高手指教下~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`

[Alzzl]

Input 的语法错了

[Alzzl]

Input #1, str1
Input #1, str2
Input #1, str2
不用while 。。。wend

[wyp2120]

我想多列读出啊~~~~~~~~~~~~~~~~

[wyp2120]

一行读出多简单的

[Alzzl]

要多列读的话你的变量要改
比如用字符串数组
dim strarr(3) as long,i as integer
Open App.Path & "\" & "wyp.txt" For Input As #1
While Not EOF(1)
Input #1, strarr(i)
i=i+1
Wend
Close #1

[wyp2120]

寒~~~~~~``没一个懂我意思了~~~~~~~~~~~~~~`
我说的是想C++那样已空格作为分隔符的一串字符串当做一个成员读取出来~~~~~~~~~~~~~~~~~~