Visual Basic FAQ

Как вытащить из файла нужную строку?
Если файл не будет создан вами, то он автоматически создастся обработчиком ошибок, но будет пустой, необходимо будет заполнить несколько строк и запустить пример заново.
В данном случае, в текстовое поле помещается 6 строка.

Option Explicit

Private Sub Form_Load()
On Error GoTo ErrLabel
Dim FileNum As Byte
Dim intCount As Integer
Dim strText As String
FileNum = FreeFile
Open App.Path & "\File.txt" For Input As FileNum
intCount = 1
Do While Not EOF(FileNum)
    Line Input #FileNum, strText
    If intCount = 6 Then Text1.Text = strText: Exit Sub
    intCount = intCount + 1
Loop
Close FileNum
Exit Sub

ErrLabel:
Dim errsabj As String
If Err.Number = 53 Then
errsabj = MsgBox("Указанный файл не найден!", _
        vbCritical + vbRetryCancel)
    Select Case errsabj
    Case vbCancel
        End
    Case vbRetry
        FileNum = FreeFile
        Open App.Path & "\File.txt" For Append As FileNum
        Close FileNum
        MsgBox "Файл создан!" & vbCrLf & _
        "Внесите строки в файл и запустите пример заново."
    End Select
End If
End Sub

Запись опубликована on 21.12.2008 at 9:40 и размещена в рубрике: Файл. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.