Файлы произвольного доступа - VB

Формулировка задачи:

При попытки записать данные в файл, получается вот такая вот ересь..Я так понимаю, что то с кодировкой?

Решение задачи: «Файлы произвольного доступа»

textual
                            Листинг программы 
                        

                            Public Sub view()
Dim alltext As String, putnomer As Byte
Open f For Random As #1
  With worker1
    alltext = ""
    Do While Not EOF(1)
        putnomer = putnomer + 1
        Get #1, putnomer, worker1
              alltext = alltext + .code + .author + .named + .year + .numberBookStand + .numberBookShelf + vbNewLine
    Loop
  End With
    frmView.TxtView = alltext
Close #1
End Sub
                        

Оцени полезность:

5 голосов , оценка 4.6 из 5

Похожие ответы