Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Lo0ny
2 / 2 / 0
Регистрация: 26.12.2013
Сообщений: 21
1

Как считать нужные данные из файла?

06.01.2014, 14:11. Просмотров 380. Ответов 1
Метки нет (Все метки)

Нужна программа, реализующая динамический стек статических очередей, которая должна иметь возможность записи в файл и считывание из файла, т.е возможность продолжить работу с переменными взятыми из файла. С последним проблема - как считать нужные данные из файла?
т.е. как мне считать оттуда, например, марку электровоза и присвоить переменной mark это значение?
В файле строка имеет вид:
депо:1 марка:sap номер:101; марка:maron номер:202;

Вот код программы на данный момент:
Pascal
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
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
Program Stacko4eredey;
const n=10;
type
   plist=^tlist;
   tList=record;
    number:integer;
    mark:string;
   end;
   pstack=^tstack;
   tstack=record;
      inf:integer;
      next:pstack;
      och:array[0..n] of plist;
   end;
var
   f:text;
   j,i,b,c,k,inf,number:integer;
   mark:string;
   phead,cur,temp,prev:pstack;
   
 
procedure stackfind;
begin
cur:=phead^.next;
while cur^.inf<>inf do
  begin
    if cur=phead then
      begin
        writeln('не найдено');
        break;
      end
    else
    cur:=cur^.next;
  end;
end;
   
   
procedure stackadd;
begin
writeln('номер депо'); read(inf);
New(temp);
temp^.inf:=inf;
for j:=0 to n do
  begin
    New(temp^.och[j]);
    temp^.och[j]^.number:=-1;
  end;
temp^.next:=phead^.next;
phead^.next:=temp;
end;
 
 
procedure stackdel;
begin
temp:=phead^.next;
phead^.next:=temp^.next;
dispose(temp);
end;
 
 
procedure ochadd;
begin
writeln('номер депо '); read(inf);
stackfind;
j:=1;
 while cur^.och[j]^.number<>-1 do
   j:=j+1;
writeln('номер электровоза'); read(number);
writeln('марка электровоза'); read(mark);
cur^.och[j]^.mark:=mark;
cur^.och[j]^.number:=number;
end;
 
 
procedure ochdel;
begin
writeln('номер депо'); read(inf);
stackfind;
  for j:=2 to n do
  begin
    cur^.och[j-1]^.number:=cur^.och[j]^.number;
    cur^.och[j-1]^.mark:=cur^.och[j]^.mark;
  end;
cur^.och[n]^.number:=-1;
end;
 
 
procedure showoch;
begin
j:=1;
if cur^.och[j]^.number=-1 then
write(' в депо пусто')
else
while (cur^.och[j]^.number<>-1) and (j<=n) do
  begin
    write(' марка:',cur^.och[j]^.mark,' номер:',cur^.och[j]^.number,';');
    j:=j+1;
  end;
end;
 
 
procedure showall;
begin
cur:=phead^.next;
while cur<>phead do
  begin
    write('депо:',cur^.inf);
    showoch;
    writeln;
    cur:=cur^.next;
  end;
end;
 
 
procedure find;
begin
writeln('номер электровоза'); read(number);
  cur:=phead^.next;
    while cur<>phead do
      begin
        for j:=1 to n do
         if cur^.och[j]^.number=number then
           begin
             writeln('депо:',cur^.inf,' марка:',cur^.och[j]^.mark,' номер:',cur^.och[j]^.number);
             break;
           end;
      end;
end;
 
 
procedure resetfile;
begin
  rewrite(f);
  cur:=phead^.next;
while cur<>phead do
  begin
    write(f,'депо:',cur^.inf);
    j:=1;
    while (cur^.och[j]^.number<>-1) and (j<=n) do
      begin
        write(f,' марка:',cur^.och[j]^.mark,' номер:',cur^.och[j]^.number,';');
        j:=j+1;
      end;
    writeln;
    cur:=cur^.next;
  end;
close(f);
writeln('файл "железная дорога.txt" обновлен');
end;
 
 
 
begin
assign(f,'железная дорога.txt');
New(phead);
phead^.next:=phead;
phead^.inf:=-1;
repeat
hi;
if b=1 then stackadd;
if b=2 then stackdel;
if b=3 then ochadd;
if b=4 then ochdel;
if b=5 then find;
if b=6 then showall;
if b=7 then resetfile;
if b=8 then readfile;
until b=0;
end.
Добавлено через 55 минут
Точнее сформулирую так, у меня есть строка в файле
депо:1 марка:sap номер:101; марка:maron номер:202;
отсюда нужно вытащить 1- присвоить переменной значение 1;
потом вытащить sap- присвоить переменной значение sap и т.д.
как это можно сделать?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.01.2014, 14:11
Ответы с готовыми решениями:

Как считать данные с файла организовав их в записи
в файле есть некоторые данные. Как можно их считать с файла организовов в...

Считать данные из текстового файла
Всё не так просто. Дан текстовый файл, в нём строка типа lo8vd76gjo6asd, нужно...

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

Считать данные с файла и сложить
Здравствуйте уважаемые форумчане! Есть одна задачка которую я не понял как...

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

1
Lo0ny
2 / 2 / 0
Регистрация: 26.12.2013
Сообщений: 21
08.01.2014, 16:26  [ТС] 2
Тема офф, сам разобрался
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.01.2014, 16:26

Считать табличные данные из текстового файла в многомерный массив
Есть таблица данных вида: назвБолезнь1|симптомБолез1|назвЛекар1|250...

Считать данные из текстового файла и скинуть в массив записей
например в текстовом файле ФИО,группа,оценки

Как лучше считать данные?
Необходимо написать программу подсчитывающую количество количество неубывающих...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru