vb语句 读取txt

初学VB,莫怪。 如下: Private Sub Command2_Click() Dim n As Integer Open CommonDialog1.FileName For Input As #1 Input #1, n Text2.Text = n End Sub 我的txt文本时内容是“awedasd” 为什么text.text显示的是0 写成Text2.Text=val(n)还是一... 展开
我有更好的答案
邀请更新
2011-01-13 最佳答案
yes_no_ok的回答有潜在的缺陷。
如果文件的换行用的是vbCr或vbLf就全当vbCrLf处理
下面的代码我最常用:
Private Sub Command2_Click()
Dim n As Object
Set n = CreateObject("Scripting.FileSystemObject").OpenTextFile(CommonDialog1.FileName, 1) 'ForReading = 1, ForWriting = 2, ForAppending = 8
Text2.Text = n.ReadAll
n.Close
End Sub

其他回答

Dim n As string
挖侠盗 | 发布于2011-01-09
评论
正确方法如下:
Private Sub Command2_Click()
Dim S As String, S1 As String
Open CommonDialog1.Filename For Input As #1
Do While Not EOF(1)
Line Input #1, S
S1 = S1 & vbCrLf & S
Loop
Close #1
Text2.Text = S1
End Sub

注:用你的方法,即使对了,也只能读取文件中一行的文本,
用我的代码,可以读取整个文件中的所有文本!
yes_no_ok | 发布于2011-01-09
评论
Private Sub Command2_Click()
Dim n As Integer
Open CommonDialog1.FileName For Input As #1
Text2.Text =input(lof(1),1)
close #1
End Sub
loumou | 发布于2011-01-09
评论
收起 其他1条回答

为您推荐:

广告

您可能关注的内容

×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消