Question

在VB2010中，怎样可以随机读取文本文件中的一行？

例如：在D:\123.txt中，有如下几行：
dsfionkl
ioshfao
ogafoahf
dsknjafiuh
之后，用一段代码随机读取一行，例如ogafoahf，将他显示在Label1中。每次运行这段代码，Label1中显示的字符都不一样。

Answer 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str() As String = My.Computer.FileSystem.ReadAllText("D:\123.txt").Split(vbCrLf) '文件读到数组中----自己改成对应的文件
Randomize()
Dim i_rdz As Integer = Int((str.Length - 0 + 1) * Rnd() + 0) '产生0到数组长度减1的随机数
Label1.Text = str(i_rdz) '显示出来
End Sub

追问

不行啊。Label1.Text = str(i_rdz)提示索引超出了数组界限。

追答

Dim i_rdz As Integer = Int(str.Length*Rnd())

Answer 2

添加一个listbox控件，可以设置为隐藏
Private Sub Command1_Click()
On Error Resume Next '出错处理
List1.Clear
Open "c:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
If Len(s) > 0 Then List1.AddItem s '防止添加空白行
Loop
Close #1
Randomize
Label1.Caption = List1.List(Int((List1.ListCount) * Rnd))
End Sub