请各位大侠帮忙看看

youxi 2003-03-21 03:00:10

我想把一个文本文件（已经存在）能够在我写一个程序中显示出来。
如文本文件里有
1.要紧
2.药酒

然后在我程序有一文本框（其他也可以），该文本框就能显示文本文件中的内容
请问该怎么办

...全文

35 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

youxi 2003-03-21

打赏
举报

to Cooly(Lazy):
我就用你说的第一种方法就ok了
不给你分过意不去。
to xsp(半个程序员) ,lxcc(虫莲)
感谢两位帮助，望下次多多指点

Cooly 2003-03-21

打赏
举报

TO lxcc(虫莲):

呵呵，不好意思啊，我不再抢分了。 :)

TO 楼主:

不要给我分了，兄弟们看不过去了~~~ :)

lxcc 2003-03-21

打赏
举报

cooly兄！留点分！呵呵！

dim strExecPathName as string
Open "YourFilePathAndName" For Output As #1
Get #1, , strExecPathName
Close #1
text1=strExecPathName

xsp 2003-03-21

打赏
举报

open "c:\abc.txt" for input as #1
while not eof(1)
lineinput a,#1
text1.text=text1.text+a+vbcrlf
wend
close(1)

Cooly 2003-03-21

打赏
举报

还可以用File I/O 和FSO

'FSO
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("你的文件", 1)
Text1.Text = f.ReadAll
f.Close
Set f = Nothing
Set fso = Nothing

'File I/O
Dim TempString As String
Open "你的文件" For Input As #1
Do While Not EOF(1)
Input #1,TempString
Text1.Text = Text1.Text & TempString
Loop
Close #1

IwantFlay 2003-03-21