眼息肉手术大约多少钱:求用VB怎么能够调用txt文件里边的内容!!

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/29 05:52:49
希望知道的能帮帮忙!!
谢谢!!!
我试过用
dim a as String
'读取.TXT文件中的内容,注意先在E:\下新建一个.TXT文档
'在窗体上放置两个按钮和一个text控件,在两个按钮上写事件如:
Private Sub Command1_Click()
Open "e:\新建 文本文档.txt" For Input As #1 '打开文件用OPEN 语句
While Not EOF(1) '判断是否到文件尾
Line Input #1, a '从文件读取一行内容到变量 a
Text1.Text = Text1.Text & a & vbCrLf '向text1中追加从文件中读取的内容
Wend
Close #1 '关闭文件
End Sub

Private Sub Command2_Click()
Open "e:\新建 文本文档.txt" For Output As #2
Print #2, Text1.Text '将text1中的内容写入文件
Close #2
End Sub
能不能把读出来的内容分行,不知道还用什么代码!!

dim a as String
'读取.TXT文件中的内容,注意先在E:\下新建一个.TXT文档
'在窗体上放置两个按钮和一个text控件,在两个按钮上写事件如:
Private Sub Command1_Click()
Open "e:\新建 文本文档.txt" For Input As #1 '打开文件用OPEN 语句
While Not EOF(1) '判断是否到文件尾
Line Input #1, a '从文件读取一行内容到变量 a
Text1.Text = Text1.Text & a & vbCrLf '向text1中追加从文件中读取的内容
Wend
Close #1 '关闭文件
End Sub

Private Sub Command2_Click()
Open "e:\新建 文本文档.txt" For Output As #2
Print #2, Text1.Text '将text1中的内容写入文件
Close #2
End Sub

Open 语句把文件打开
Line Input 可以按行读入

Open App.Path & "\a.txt" For Input As #1 '打开文件
Input #1, a '读取文件值
Close #1