vb如何读取一个文本让它显示在text1上?

Question

我要编写一个获取外网ip的vb程序
原理是 用shell将本地ipconfig 保存到d:\ip.txt
然后让vb读取 这个文本文件 并显示在 text控件里
要如何 实现？
1楼 用你的 调试出错
在倒数 第4行 怎么回事阿？拜托

Answer 1

function LoadText(byval FileName as string) as string
dim i as integer , txt as string,cl as string
open filename for input as i
do while not eof(i)
if not txt="" then txt=txt & vbcrlf
line input i,cl
txt=txt & cl
loop
loadtext=txt
end function

假如你想点 Command1时在 Text1 中显示 D:\text.txt 中的文本,请像这样做
private sub Command_Click()
text1=loadtext("D:\text.txt")
end sub

Answer 2

Private Sub cmdOpen_Click()
Dim NextLine As String
Open "D:\ip.txt" For Input As #1
Text1.Text = ""
Do Until EOF(1)
Line Input #1, NextLine
Text1.Text = txtEdit.Text & NextLine & Chr(13) & Chr(10)
Loop
Close
End Sub

请注意文本框最大装载文本长度64KB。

Answer 3

你可以使用richtextbox
这个控件没有64K大小的限制
而且在入文件速度快，代码短
打开文件：
richtextbox1.openfile("C:\d.txt")
z这个样子就可以打开d.txt文件了