С Новым годом! Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
 Аватар для AlexKuchanskiy
1 / 1 / 1
Регистрация: 13.02.2013
Сообщений: 36

Работа с файлами

26.05.2013, 22:11. Показов 1054. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Есть два условия:
а) Создать файл, содержащий сведения о личной коллекции книголюба:
шифр книги, автор, название, год издания, местоположение(номер шкафа,
стеллажа и т. п.).
б) Написать программу, выдающую следующую информацию:
- место нахождения книги автора Х, название У(значение Х, У ввести с
терминала);
- список книг автора Z, находящихся в коллекции,
- число книг издания ХХ года, имеющихся в библиотеке.

С первым справился, а для выполнения второго не могу нормально извлечь данные из файла. Ошибка вылетает. Вот код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
Private Type typeBook
     Number As Integer
     Writer  As String
     Name As String
     Date As Date
     Position As Byte
End Type
 
Dim Book(1 To 5) As typeBook
 
 
 
Private Sub Form_Load()
 Dim st As String
 Dim i As Integer
  Book(1).Name = "Dyxless"
  Book(2).Name = "The Telki"
  Book(3).Name = "Videoты"
  Book(4).Name = "Война и мир"
  Book(5).Name = "Преступление и наказание"
    Book(1).Writer = "Сергей Минаев"
    Book(2).Writer = "Сергей Минаев"
    Book(3).Writer = "Сергей Минаев"
    Book(4).Writer = "Лев Толстой"
    Book(5).Writer = "Фёдор Достоевский"
       Book(1).Number = 4564
       Book(2).Number = 3564
       Book(3).Number = 4435
       Book(4).Number = 2862
       Book(5).Number = 3245
         Book(1).Date = #12/1/2001#
         Book(2).Date = #4/20/2010#
         Book(3).Date = #7/30/2007#
         Book(4).Date = #11/24/2012#
         Book(5).Date = #1/13/2002#
           Book(1).Position = 4
           Book(2).Position = 9
           Book(3).Position = 4
           Book(4).Position = 8
           Book(5).Position = 3
    
    For i = 1 To UBound(Book)
    st = st & vbCrLf & "Название книги : " & Book(i).Name & vbCrLf & "Автор : " & Book(i).Writer & vbCrLf & _
    "Шифр книги : " & Book(i).Number & vbCrLf & "Дата выхода" & Book(i).Date & vbCrLf & _
    "Местоположение : шкаф № " & Book(i).Position & vbCrLf
    Next i
    Label1.Caption = st
End Sub
 
Private Sub Command1_click()
   Dim i As Integer
  Book(1).Name = "Dyxless"
  Book(2).Name = "The Telki"
  Book(3).Name = "Videoты"
  Book(4).Name = "Война и мир"
  Book(5).Name = "Преступление и наказание"
    Book(1).Writer = "Сергей Минаев"
    Book(2).Writer = "Сергей Минаев"
    Book(3).Writer = "Сергей Минаев"
    Book(4).Writer = "Лев Толстой"
    Book(5).Writer = "Фёдор Достоевский"
       Book(1).Number = 4564
       Book(2).Number = 3564
       Book(3).Number = 4435
       Book(4).Number = 2862
       Book(5).Number = 3245
         Book(1).Date = #12/1/2001#
         Book(2).Date = #4/20/2010#
         Book(3).Date = #7/30/2007#
         Book(4).Date = #11/24/2012#
         Book(5).Date = #1/13/2002#
           Book(1).Position = 4
           Book(2).Position = 9
           Book(3).Position = 4
           Book(4).Position = 8
           Book(5).Position = 3
         
    F = FreeFile
Open App.Path & "\Текст лабы.txt" For Output As #F
 
For i = 1 To UBound(Book)
Write #F,
Write #F, Book(i).Name
Write #F, Book(i).Writer
Write #F, Book(i).Number
Write #F, Book(i).Date
Write #F, Book(i).Position
Write #F,
Next i
 
Close #F
    
   
End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim st1$, st2$, st3$, st4$, st5$
 
F = FreeFile
Open App.Path & "\Текст лабы.txt" For Input As #F
 
For i = 1 To UBound(Book)
Input #F, Book(i).Name
Input #F, Book(i).Writer
Input #F, Book(i).Number
Input #F, Book(i).Date
Input #F, Book(i).Position
 
Next i
 
 
Close #F
End Sub
Помогите пожалуйста
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
26.05.2013, 22:11
Ответы с готовыми решениями:

Работа с файлами , хотелось бы с windows system файлами
всем привет, нужна интересная идея по программированию, работа с файлами , хотелось бы с windows system файлами, у вас есть какая-то идея?...

Лабораторная работа №5. Работа с файлами и алгоритмы сортировки
1. Написать функцию Load для считывания из текстового файла (например, Workers.txt) информации о работниках и заработной плате. В первой...

Работа с файлами(Запись,чтение,работа с данными)
Здравствуйте, никак не могу осилить файлы... Для начала вот само задание: В справочной автовокзала хранится расписание движения автобусов....

7
 Аватар для morgann55
1365 / 207 / 37
Регистрация: 09.02.2012
Сообщений: 745
26.05.2013, 23:38
1) Зачем ты в Sub Command1_click заново заполняешь Book() ?? Ведь Book() уже заполнен (точно так) в Sub Form_Load...
2) Загружать из файла надо в том же порядке как отправлял в файл - нельзя сохранять с пустыми строками, а потом грузить всё подряд (у тебя при загрузке вместо названия 1-й книги пошла пустая строка...)
Убери в сохранении пустые строки (Write #F,)
0
 Аватар для AlexKuchanskiy
1 / 1 / 1
Регистрация: 13.02.2013
Сообщений: 36
27.05.2013, 01:01  [ТС]
Убрал пустые строки, всё равно ошибка... "Overflow"
0
 Аватар для morgann55
1365 / 207 / 37
Регистрация: 09.02.2012
Сообщений: 745
27.05.2013, 01:12
У меня всё работает в таком виде:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub Command1_click()
   Dim i As Integer
         
    F = FreeFile
Open App.Path & "\Òåêñò ëàáû.txt" For Output As #F
 
For i = 1 To UBound(Book)
Write #F, Book(i).Name
Write #F, Book(i).Writer
Write #F, Book(i).Number
Write #F, Book(i).Date
Write #F, Book(i).Position
Next i
 
Close #F
Cls
   
End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim st1$, st2$, st3$, st4$, st5$
 
F = FreeFile
Open App.Path & "\Òåêñò ëàáû.txt" For Input As #F
 
For i = 1 To UBound(Book)
Input #F, Book(i).Name
Input #F, Book(i).Writer
Input #F, Book(i).Number
Input #F, Book(i).Date
Input #F, Book(i).Position
 
Next i
 
Close #F
 
For i = 1 To UBound(Book)
    st = st & vbCrLf & "Íàçâàíèå êíèãè : " & Book(i).Name & vbCrLf & "Àâòîð : " & Book(i).Writer & vbCrLf & _
    "Øèôð êíèãè : " & Book(i).Number & vbCrLf & "Äàòà âûõîäà" & Book(i).Date & vbCrLf & _
    "Ìåñòîïîëîæåíèå : øêàô ¹ " & Book(i).Position & vbCrLf
    Next i
    'Label1.Caption = st
    Me.Print st:
End Sub
Я для проверки ПОКА добавил вывод на форму...
1
 Аватар для AlexKuchanskiy
1 / 1 / 1
Регистрация: 13.02.2013
Сообщений: 36
27.05.2013, 01:21  [ТС]
Хм.. Может, это из-за моей portable-версии Бейсика...
0
 Аватар для morgann55
1365 / 207 / 37
Регистрация: 09.02.2012
Сообщений: 745
27.05.2013, 01:23
Цитата Сообщение от AlexKuchanskiy Посмотреть сообщение
Хм.. Может, это из-за моей portable-версии Бейсика...
Такого не знаю ((( Ты сам файл-то смотрел на диске ?? Правильно записан хоть ??
0
 Аватар для morgann55
1365 / 207 / 37
Регистрация: 09.02.2012
Сообщений: 745
27.05.2013, 01:25
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Вот мой файл:
Вложения
Тип файла: rar Текст лабы.rar (308 байт, 14 просмотров)
0
 Аватар для AlexKuchanskiy
1 / 1 / 1
Регистрация: 13.02.2013
Сообщений: 36
27.05.2013, 20:50  [ТС]
Нашел ошибку свою. Вся проблема была в самом файле. Создал его первый раз с пустыми строками и не удалил. Всё заработало, всё сделал. Спасибо Вам за помощь. +
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
27.05.2013, 20:50
Помогаю со студенческими работами здесь

Работа с файлами, чтение/работа со строкой
Доброго времени суток. Начал работать с C++ Builder 6. Есть текстовый файл .txt с различными строками, как можно производить...

Работа с файлами
Дан файл f, содержащий сведения о веществах: указывается название вещества, его удельный вес и проводимость (проводника, полупроводник,...

работа с файлами
создать файл. внести в него прописные и строчные символы. Считать все символы по одному, заменить все прописные строчными. похожая...

Работа с файлами
Найти на заданном логическом диске заданный файл. Имена диска и файла задаются в командной строке. Результат программы – путь к файлу или...

Работа с файлами
Как нужно считывать и записывать данные из файла в файл? Например перенести данные из одного файла в другой. domains file =...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Programma_Boinc 01.01.2026
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru