VB获取ini文件中的地址，有多行，附件：  


谢谢！

“c:\windows\
d:123\a\
e:456\abc\a888\”
不是有效的地址，应该是：
“c:\windows\
d:\123\a\
e:\456\abc\a888\”
这个非常简单，先将文本框设置为数组，然后依次就数据赋值到文本框就可以了。只要一个按钮就可以实现：

Private Sub Command1_Click()
Dim DZ As String, XX As Integer: XX = 0
Open App.Path & "\path.ini" For Input As #1
Do While Not EOF(1)
Input #1, DZ
Text1(XX).Text = DZ
XX = XX + 1
Loop
Close #1
End Sub

版主，因需要，这个地址我一定要一个一个的获取。
麻烦帮忙修改下，谢谢！

哎，稍稍动动手就可以自己做好的，以后不要老是依靠别人，这样对自己提高是不利的。

Dim LUJ(1 To 10) As String

Private Sub Command1_Click()
Text1.Text = LUJ(1)
End Sub

Private Sub Command2_Click()
Text2.Text = LUJ(2)
End Sub

Private Sub Command3_Click()
Text3.Text = LUJ(3)
End Sub

Private Sub Form_Load()
Dim DZ As String, XX As Integer: XX = 0
Open App.Path & "\path.ini" For Input As #1
Do While Not EOF(1)
XX = XX + 1
Line Input #1, DZ
LUJ(XX) = DZ
Loop
Close #1
End Sub

这种我说实话懒得回。文本操作，又不难。 看你把他们惯的

我能理解 ZHRXJR ，练手。
但这种代码，我也不愿写了，最多写 算法。

回复 xiangyue0510
的确，同感，伸手党，没办法。
以后这样的问题也懒得回复了。

能解释原理和方法比写好