|
Вопрос # 4 243/ вопрос открыт / |
|
Здравствуйте!
необходимо следующее
Из текстового файла на Object Pascal найти все поля классов и поместить их в файл, состоящий из записей следующей структуры: атрибут доступа – поле класса. Файл должен быть отсортирован по атрибутам.
разобрался с ринципом, не разобрался как реализовать программно.
Ниже, то что набросал...
Благодарю зараннее)
Приложение: Переключить в обычный режим- var p, field: string; i: integer;
- begin
- for i:=0 to Listbox1.Items.Count-1 do
- begin
- p:=trim(Listbox1.Items[i]);
- if pos('implementation',p)>0 then break;
- if (pos('public',p)>0) and (p[length(p)]<>';') then
- field:=copy ((Listbox1.Items[i]),1, pos('-',p));
- if p='end;' then
- begin
- Listbox2.Items.Add(field);
Примечание #1 (30 мая 2010, 22:30): вопрос исчерпан
 |
Вопрос задал: delphin (статус: Посетитель)
Вопрос отправлен: 30 мая 2010, 02:11
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 10; последнее сообщение — 31 мая 2010, 08:18; участников в обсуждении: 1.
|
min@y™ (статус: Доктор наук), 30 мая 2010, 10:37 [#1]:
Тут не всё так просто, как кажется.
Думаю, за несколько часов смогу написать такой парсер.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 30 мая 2010, 12:35 [#2]:
Давать практические советы я, конечно, могу, однако это будет долго, муторно и не факт, что приведёт к желаемому результату. Просматривать содержимое модуля нужно будет посимвольно, а не построчно, чтобы разделять текст на лексемы, комментарии и строки.
Мне было бы гораздо проще написать парсер с нуля. Я такое уже делал, могу прислать программу с исходниками. Эта програ преобразует исходники Pascal/С++/SQL в HTML с подстветкой.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 30 мая 2010, 12:44 [#3]:
Цитата (delphin):
я думаю в исходнике такой сложной программы я всё равно не разберусь
Мдя, об этом я не подумал.
Ну таки чем я могу помочь?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 30 мая 2010, 12:55 [#4]:
Для начала правильно сформулируй задание: входные и выходные данные (пример), а также количество пива в качестве топлива для моих мозгов.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 30 мая 2010, 13:09 [#5]:
Цитата (delphin):
аттрибут доступа по умолчанию паблик (насколько известно непросвященному мне).
А по-моему, published.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 30 мая 2010, 13:33 [#6]:
Ну и? Начинать писать? Пиво будет?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 30 мая 2010, 13:40 [#7]:
Посмотри-ка пока вот это.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 30 мая 2010, 13:43 [#8]:
И ещё вот это.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 30 мая 2010, 19:21 [#9]:
Ну что? Написать программу за тебя? Сколько ты готов за неё отслюнявить? Что это за задание? Лаба, курсач, диплом?
Задача непростая, но я могу решить её. Вопрос в цене. Забесплатно я лучше на диване поваляюсь и зомбоящик посмотрю.
Но если ты решил всё сделать сам, и что-то не получается, - спрашивай. Только не вываливай стопицот строк кода: 1хрен читать не буду.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 31 мая 2010, 08:18 [#10]:
За -1 спасибо. Особенно порадовала причина "нет дельных советов". И это несмотря на то, что только я один влез в этот вопрос и больше никто. С такой формулировкой можно понаставить по минусу всем зарегистрированным участникам, они тоже не дали дельных советов.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
