- 注册时间
- 2011-3-6
- 最后登录
- 1970-1-1
该用户从未签到
|
发表于 2014-7-10 08:38:20
|
显示全部楼层
光一句不够的,您得有一个容器,用于存放读入的文本
Dim TextLine
Open app.path & "\aa.txt" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
a=a & TextLine ' 把读入的文本存入A中
Loop
Close #1 ' 关闭文件。
print A
或 text1=a
还有,检查一下"\aa.txt"是否会出现"c:\jjj\\aa.txt"两个斜杠的问题
APP.path就是您当前的工作目录,就是您的程序存放的文件夹,或您工程所存放的目录 |
|