7476
社区成员
- 全部
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
yoki 2003-09-24
Open "C:\aa.txt" For Input As #1
Text1.Text = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
viena 2003-09-24
最后要加上Close #1关闭文件
line input去掉了文本文件的原有的回车换行符，如果需要可以在每一行读取的内容后面加上& Chr(13) & Chr(10)
line input去掉了文本文件的原有的回车换行符，如果需要可以在每一行读取的内容后面加上& Chr(13) & Chr(10)
viena 2003-09-24
line input去掉了文本文件的原有的回车换行符，如果需要可以在每一行读取的内容后面加上& Chr(13) & Chr(10)
viena 2003-09-24
Open "C:\a.txt" For Input As #1
dim strx as string
do until eof(1)
line input #1,strx
Text1.Text = Text1.Text & strx
loop
dim strx as string
do until eof(1)
line input #1,strx
Text1.Text = Text1.Text & strx
loop
jary12581 2003-09-24
打开任何数据类型的文件，用二进制都可以办到，打开文本文件，代码如下：
dim filepath
dim st as adodb.stream
set st=new adodb.stream
st.type=text
st.open
Me.CommonDialog1.Filter = "txt文件(*.txt)|*.txt"
Me.CommonDialog1.ShowOpen
filepath = Me.CommonDialog1.FileName
If filepath <> "" Then
stream1.LoadFromFile filepath
me.text1 = stream1.Read
If Err.Number <> 0 Then
MsgBox "successful to save image!"
Else
MsgBox Err.Number & ":" & Err.Description
End If
dim filepath
dim st as adodb.stream
set st=new adodb.stream
st.type=text
st.open
Me.CommonDialog1.Filter = "txt文件(*.txt)|*.txt"
Me.CommonDialog1.ShowOpen
filepath = Me.CommonDialog1.FileName
If filepath <> "" Then
stream1.LoadFromFile filepath
me.text1 = stream1.Read
If Err.Number <> 0 Then
MsgBox "successful to save image!"
Else
MsgBox Err.Number & ":" & Err.Description
End If
射天狼 2003-09-24
Option Explicit
Private Sub Command1_Click()
Dim strTmp As String
Open "C:\aa.txt" For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
Text1.Text = strTmp
End Sub
Private Sub Command1_Click()
Dim strTmp As String
Open "C:\aa.txt" For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
Text1.Text = strTmp
End Sub
