[MrDaViTO]

Программа строит объёмные фигуры с рядом уникальных свойств и в конечном файле меняется объём исходных данных. Из-за чего строка с координатами перемещается вниз-вверх.
Собственно алгоритм понятен. Обнаружить строку-константу, вслед за которой следует строка с координатами.
Какой командой осуществить поиск строки ("ИМЯ СТРОКИ") и обработать следующую?

[Дима_]

А теперь все с начала - Вы про что пишите-то??

[MrDaViTO]

Имеется программа, которая уже строит чертежи объектов, но в одной плоскости во всех видах.
Если взять отдельный файл, то по нему я могу построить объемную модель *.dxf при помощи Fortran задаваясь координатами допустим с 100-й строки.
НО: создав другой объект, с другими/дополнительными характеристиками, координаты переходят к примеру на 150-ю строку.
Т.е. просто read(строка;столбец) не подходит...
Подскажите каким оператором или набором команд в Fortran'е найти заглавную строку (КОНСТАНТУ) и прочесть следующую

<begin plan>

татататата +- несколько строк

строка-КОНСТАНТА
0 0.6 0 0.6 0.6 0

<end plan>

[Дима_]

У меня только 1 вопрос - почему в 2012 году для "постройки чертежей объектов" ты используешь "адскую смесь" dxf и Fortran'а???
з.ы. с решением вопроса твоими инструментами тебе здесь вряд-ли помогут, быть может ты вобще 1 на планете остался который еще так делает - вопрос твой примерно какой резьбой к мушкету лазерный прицел прикрутить.

[gomer]

http://www.cyberforum.ru/fortran/ - вот хздесь жывая ветка по фортрану (нужна регистрация)

[hwd]

Offtop:

Сообщение от Дима_ У меня только 1 вопрос - почему в 2012 году для "постройки чертежей объектов" ты используешь "адскую смесь" dxf и Fortran'а???

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

[MrDaViTO]

Сообщение от Дима_ У меня только 1 вопрос - почему в 2012 году для "постройки чертежей объектов" ты используешь "адскую смесь" dxf и Fortran'а??? з.ы. с решением вопроса твоими инструментами тебе здесь вряд-ли помогут, быть может ты вобще 1 на планете остался который еще так делает - вопрос твой примерно какой резьбой к мушкету лазерный прицел прикрутить.

На работе поставлена именно такая задача

[hwd]

Сообщение от MrDaViTO На работе поставлена именно такая задача

Может имеет смысл провести ликбез с теми, кто такую задачу поставил? Применяя более "родные" для AutoCAD языки, нужный результат можно будет получить гораздо быстрее и со значительно меньшими трудозатратами.

[MrDaViTO]

Сообщение от hwd Может имеет смысл провести ликбез с теми, кто такую задачу поставил?

Программа, что дает результат и собирает исходники, написана на Fortran. Именно этот файл приходиться редактировать...

[hwd]

Сообщение от MrDaViTO Именно этот файл приходиться редактировать...

В таком случае всё печально - сложно вам будет найти ответы на свои вопросы на данном форуме, как мне кажется. Если бы речь шла о расширении функционала, а не правке уже существующего кода, то можно было бы на "родном" для AutoCAD языке инкапсулировать нужную вам логику, а результат её работы вывести во внешний файл нужного вам формата. Затем этот файл можно было бы обрабатывать на Fortran.

[Дима_]

Сообщение от MrDaViTO Программа, что дает результат и собирает исходники, написана на Fortran. Именно этот файл приходиться редактировать...

Не пора ли ее полностью периписать на чем-то более...
Offtop: To hwd - быть может ассемблер в данном случае даже меньшее зло..., круче был бы только алгол...

[zamtmn]

MrDaViTO
Если программа на фортране ваша - странно слышать вопрсы

Какой командой осуществить поиск строки ("ИМЯ СТРОКИ") и обработать следующую?

Вы же этот файл както читаете и както обрабатываете, вам видней))
Если нет, то проще написать на чемто более распространенном небольшой препроцессор, вырезающий из исходного файла все

Код:

[Выделить все]

татататата +- несколько строк

и оставляющий только

Код:

[Выделить все]

<begin plan>
 строка-КОНСТАНТА
 0 0.6 0 0.6 0.6 0
 <end plan>

[MrDaViTO]

Вопрос решен путем написания функции поиска. Закрывайте тему

[Boxa]

а можно пример кода фортран под автокад. так, для общего развития...

[Дима_]

Она, если я правильно понял, не под автокад - она в "рукопашную" *.dxf создает.

[hwd]

Сообщение от Boxa а можно пример кода фортран под автокад. так, для общего развития...

Сразу вспомнился старый армейский "анекдот":

- Товарищ прапорщик, а можно телевизор посмотреть? - Можно... Только не включайте.

И судя по тому, что автор топика сразу выложил исходники - это как раз тот случай