如何打开文本文件?

Question

API打开对话框怎么才能打开文本文件?打开其他文件我会......只是不会打开文本文件.

Answer 1

CreateFile API ， windows sdk 有范例

Answer 2

读写代码如下: 
Private Sub Command1_Click() 
'写文件示例 
Dim strFileName As String '文件名 
Dim lngHandle As Long '句柄 
Dim strWrite As String '要写入的文本内容 strFileName = "c:\w.txt" 
lngHandle = FreeFile() '取得句柄 
'准备要写入的内容 
strWrite = "这些文字将被写入文件。" 
'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入 
Open strFileName For Output As lngHandle '打开文件 
Print #lngHandle, strWrite '写入文本 
Close lngHandle '关闭文件 
End Sub Private Sub Command2_Click() 
'读文件示例 
Dim strFileName As String '文件名 
Dim lngHandle As Long '文件句柄 
Dim strAll As String '所读取的文本文件的所有内容 
Dim strLine As String '在循环中存放每行的内容 
strFileName = "c:\b.txt" 
'获得文件的句柄 
lngHandle = FreeFile() 
'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入 
Open strFileName For Input As lngHandle 
'循环直到文件尾 
Do While Not EOF(lngHandle) 
'每次读取一行存放在strLine变量中 
Line Input #lngHandle, strLine 
'每次读取都把所读到的内容连接到strAll变量，由于Line Input去掉了换行符，所以这里补上 
strAll = strAll & strLine & vbCrLf 
Loop 
'显示得到的全部分内容 
MsgBox strAll 
End Sub

Answer 3

打开文件时，要
open (filename) for input as #(filenum)
input #(filenum),(var)
...
close #(filenum)保存时则是
open (filename) for output as #(filename)
print #(filenum),(var)
...
close #(filenum)