VB获取ini文件中的地址 - 编程论坛

#2

ZHRXJR2017-08-12 08:28

“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

#3

opelwang2017-08-12 13:08

回复 2楼 ZHRXJR

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

#4

ZHRXJR2017-08-13 15:33

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

程序代码：

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

#5

xiangyue05102017-08-14 17:03

回复 4楼 ZHRXJR

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

#6

风吹过b2017-08-14 18:11

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

#7

ZHRXJR2017-08-14 19:33

回复 6楼风吹过b

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

#8

bccnzhou2022-02-11 22:40

能解释原理和方法比写好