如何解决在文本框中打开文本文件

maq2000 2000-06-21 08:57:00
高手您好!!!
我编程时想在文本框中打开文本文件,请问该如何解决,最好请给我原代码
谢谢!!!
...全文
176 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
dongdong 2000-07-04
  • 打赏
  • 举报
回复
还有一个方法,使用RICHTEXT控件,打开文件时非常方便,使用控件自带的OPENFILE方法就可以了。该控件是个扩展控件,在“部件”中添加。
zigzag 2000-07-04
  • 打赏
  • 举报
回复
使用FILESYSTEMOBJECT对象。在引用中引用Microsoft Script Runtime,动态库文件名为Scrrun.dll,在系统目录下,可能不一定有,这是在IIS4以上系统中所带的,没有就先安装。使用方法如下:
Dim stream1 As Scripting.TextStream
Dim stream2 As Scripting.TextStream
Dim strAll As String
Dim strLine As String

Set file = CreateObject("scripting.filesystemobject")
Set stream1 = file.OpenTextFile("c:\1.txt", ForReading)
Set stream2 = file.OpenTextFile("c:\2.txt", ForReading)
'全部读取
strAll = stream1.ReadAll
'一行一行读取
Do Until stream2.AtEndOfLine
strLine = strLine & stream.ReadLine
Loop
set file=nothing
bamboo 2000-06-26
  • 打赏
  • 举报
回复
到MSDN中去查找:OpenTextFile 方法和TextStream 对象两个主题。
bokei 2000-06-21
  • 打赏
  • 举报
回复
注意文件的大小。
文本框可是限定内容不能超过64K的。超过64K要用RichTextBox
ml_zhang 2000-06-21
  • 打赏
  • 举报
回复
原程序如下:
Private Sub Command1_Click()
Dim FileData

Open "C:\MyTxt.txt" For Binary As #1
FileData=Space$(LOF(1))
Get #1,,FileData
Close #1
Text1.Text=FileData '若对文本内容进行编辑,最好用RichTextBox控件

End Sub

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧