txt dosyasında istenilen satırdan veri çekme

[fmt1976]

Merhabalar;

Benim yapmak istediğim veri.txt dosyasından ikinci satırdaki veriyi textbox1 yazdırmak istiyorum bunu hangi kodlar ile yapabilirim; Teşekkür ederim

Aşağıdaki kodlara ek te olabilir bir butona basarakta olabilir.

------------------------------------
Private Sub UserForm_Activate()
Dim contentfile As String
Open "\\192.168.11.53\admin\RXR\Bilgi_ISLEM\ISO_LISTE\ayar.ini" For Input As #1
Input #1, contentfile
TextBox2.Text = contentfile
Close #1
ListBox1.Height = 476
Sheets("KANAL A").Select
Call liste
End Sub
----------------------------------

 

[halit3]

Böyle denermisiniz.

Private Sub UserForm_Activate()
Dim i As Long
yer = "\\192.168.11.53\admin\RXR\Bilgi_ISLEM\ISO_LISTE\a yar.ini"
Open yer For Input As #1
Do While Not EOF(1)
Line Input #1, deg
i = i + 1
If i = 2 Then
TextBox2.Text = deg
End If
Loop
Close #1
ListBox1.Height = 476
Sheets("KANAL A").Select
Call liste
End Sub