怎样打开一个文本文挡？？？？100分！！！急！！！
怎样打开一个文本文挡？？？？100分！！！急！！！ 问题点数：0、回复次数：7Top
1 楼holytiger（泰格博士）回复于 2003-06-01 11:50:09 得分 0
Open "c:\aaa.txt" For Input As #1
把文件送给＃1
可以操作了
或者操作另外动态链接库Top
2 楼AechoJohn（江江）回复于 2003-06-01 12:06:19 得分 0
dim lngH as long
lngH = freefile()
open filenameandpath for input as lngH
或者想输出时用
open filenameandpath for output as lngH
...
close lngHTop
3 楼carl__yao（Carl）回复于 2003-06-01 12:10:01 得分 0
用FileSystemObject,在MSDN里查一下用法，很方便的.Top
4 楼largefish2003（）回复于 2003-06-01 12:12:45 得分 0
我是要把它打开然后显示里面的内容的Top
5 楼footballboy（郑创斌）回复于 2003-06-01 12:17:43 得分 0
方法1 像楼上那样用Open
方法2 利用用FileSystemObject对象
Dim objFSO As FileSystemObject
Dim objStream As TextStream
Set objFSO = New FileSystemObject
Set objStream = objFSO.OpenTextFile(txtPath)
Do While Not objStream.AtEndOfLine
'在这里可以对每行进行处理
...
arr(i) = objStream.ReadLine
'上面只是演示，还有其他许多有用的方法如ReadAll,SkipLine等
...
Loop
方法3:利用RichTextBox控件的功能
Private Sub Command1_Click()
'设计时可设置RichTextBox1.ScrollBars = rtfBoth
RichTextBox1.LoadFile "c:\bootlog.txt"
'处理代码
RichTextBox1.SaveFile "c:\temp\abc.txt", rtfText
End Sub
Top
6 楼bluedodo（笑三少）回复于 2003-06-01 14:15:20 得分 0
推荐你用FileSystemObject对象。那种文件号＃1这种方法应该不要再用了。Top
7 楼dyx（天火）回复于 2003-06-01 14:59:22 得分 0
'打开readme文件
Dim Handle As Integer '打开文件的编号
Dim NameOfOpen As String '文件名
NameOfOpen = App.Path & "\readme.txt"
Handle = FreeFile '系统空闲的文件号
Open NameOfOpen For Binary As #Handle
TextReadme.Text = Input$(LOF(Handle), Handle)
Close #Handle
Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
