Файлы произвольного доступа - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
