Построчное считывание txt-файла. Help

[Skywalker]

Есть код для передачи данных типа логин/пароль на сервер. Он проскакивал где-то на старом форуме.

Код: Выделить всё

Private Sub Winsock1_Connect()
Parametrs = "user=pass&user1=pass"
Winsock1.SendData "POST /pop.mail.ru HTTP/1.1" & vbCrLf
Winsock1.SendData "Content-Type: application/x-www-form-urlencoded" & vbCrLf
Winsock1.SendData "Host: pop.mail.ru" & vbCrLf
Winsock1.SendData "Content-Length: " & Len(Parametrs) & vbCrLf & vbCrLf
Winsock1.SendData Parametrs & vbCrLf
End Sub

Может кто сможет подсказать как из txt-файла подставлять в переменную Parametrs одну строчку, соответственно передать ее на сервер, потом следующую строчку и так до конца файла. Help please

[RayShade]

Line Input тебе поможет.

[Amed]

Пример по теме:

Код: Выделить всё

Private Sub GetParametersFromFile(FileName As String)
On Error GoTo ErrHandler
'Предполагается, что первая строка в файле - логин, а вторая - пароль
Dim n As Integer
n = FreeFile

Open App.Path & "\" & FileName For Input As #n
Line Input #n, Login
Line Input #n, Password
Close #n
Exit Sub

ErrHandler:
'Очевидно, что самые растространённые ошибки - отсутствие файла и некорректность его содержимого (например, внутри только одна строка)
'Обрабатывайте их сами, а я приведу только сообщение о "какой-то" ошибке:
Call MsgBox ("Ошибка чтения из файла!", vbOkOnly + vbCritical)
End Sub