中科新闻网嘉定新城 别墅:问一个菜鸟级VB问题
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 13:46:12
是这样的，请问在VB中如何用代码将记事本文件里的内容放入到TEXT框中，注意这里的记事本文件是存放在VB工程所在文件夹下的。
例如将A1.txt文件里的内容放到text1文本中
对了，是用代码方法，并不是text的初始内容
还有.txt文件的盘符不是固定的，只是在工程所在文件夹下，不是固定的C盘或D盘之类的，会变的
其实我找到一个
Open "A:\\a2.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, lstr
Text1.Text = Text1.Text & lstr & vbCrLf
Loop
Close #1
但是它只能打开固定位置上A盘下的A1文档，要怎么改，才能随工程位置的改变而改变打开路径？
谢了！
例如将A1.txt文件里的内容放到text1文本中
对了，是用代码方法，并不是text的初始内容
还有.txt文件的盘符不是固定的，只是在工程所在文件夹下，不是固定的C盘或D盘之类的，会变的
其实我找到一个
Open "A:\\a2.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, lstr
Text1.Text = Text1.Text & lstr & vbCrLf
Loop
Close #1
但是它只能打开固定位置上A盘下的A1文档，要怎么改，才能随工程位置的改变而改变打开路径？
谢了！
dim s as string
s=app.apth
if right(s,1)<>"\" then s=s & "\";
s=s & "a2.txt"
Open s For Input As #1
Do While Not EOF(1)
Line Input #1, lstr
Text1.Text = Text1.Text & lstr & vbCrLf
Loop
Close #1
dim a as string
open app.path & "\xxx.txt" for output as #1
Line Input #1, a
text1.text=a
不行的，哥们。
这句出错了。
Line Input #1, a
怎么改啊。。
复制过去不就可以了吗？