读书人

请教用VB6如何读取某个文件中的内容并

发布时间: 2012-04-01 17:23:46 作者: rapoo

请问用VB6怎么读取某个文件中的内容并用文本框显示出来?
一个窗体中有一个文本框
有一个文件 c:\abc\file.txt
file.txt 中写着一段话(如“感谢朋友的帮助”)

现在要实现的效果就是
窗体运行时 文本框中即显示出 file.txt 中的内容来

请问这样的代码怎么写?谢谢

[解决办法]
提供思路你自己完善
Dim strBuff As String
Dim i As Long
Open "f:\file.txt " For Output As #1
Do While (Not EOF(1))
Line Input #1, strBuff
Print #1, strBuff
Loop
Close (1)

[解决办法]
'Set Property MultiLine of Text1 to True

Private Sub Form_Load()
Dim Buffer() As Byte
Open "F:\Backup\ghm_working_data\SKILL\文件系统\SetFileTime.txt " For Binary As #1
ReDim Buffer(LOF(1) - 1)
Get #1, , Buffer
Close #1
Text1 = StrConv(Buffer, vbUnicode)
End Sub

读书人网 >VB

热点推荐