这样将文本文件的内容显示在text里?

liuyi3000 2003-09-24 04:03:35
??
...全文
9 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过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)
回复
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
回复
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
回复
射天狼 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

回复
发帖
VB基础类
创建于2007-09-28

7476

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-09-24 04:03
社区公告
暂无公告