Visual Basic FAQ

Как вытаскивать из файла по 1 символу?

Option Explicit

Private Sub Text2_Change()
On Error GoTo ErrLabel
Dim Message As String
Dim NumberM As Integer
Dim FileNum As Byte
Message = String$(1, " ")
FileNum = FreeFile
Open App.Path & "\1.txt" For Binary As FileNum
NumberM = Val(Text2.Text)
Get #FileNum, NumberM, Message
Text1.Text = Message
Close FileNum
Exit Sub

ErrLabel:
    Dim errsabj As String
    If Err.Number = 63 Then
    errsabj = MsgBox("Не правильный номер записи, введите цифру!", _
            vbCritical + vbRetryCancel)
        Select Case errsabj
        Case vbCancel
            End
        Case vbRetry
            Text2.Text = ""
            Resume Next
        End Select
    End If
End Sub

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