Уважаемые программисты помогите мне в фортраном.
Имеются у меня файлы .тхт, в них таблицы. Я сделал так чтобы таблицы читались и записывались в новый рабочий файл. И теперь мне надо сделать поиск в таблице по имени(1-й столбец). Это должно выглядеть примерно так: на экране появляется надпись "Введите шифр опоры", мы вводим, далее происходит поиск в таблице этого имени и оно выводится на экран и в добавок по этому имени производятся некие расчеты и тоже выводятся.
Как это сделать?:spy: Помогите пожалуйста.

И как они у тебя читаются? так в чем проблема прочесть первый элемент?

Ну я делаю так: через open() открываю файл. Потом Read(тут формат ставлю и столбцы проставляю), Потом точно так же Write() и все это у меня записывается в файл nfrez.dat И как мне сделать поиск имени в Nfrez?

Душегуб странно, значит столбцы считать и записать в новый файл можешь, а сравнить содержимое этих столбцов нет? В чём проблема-то?

L.E.X.X. Ну я Фротран еще толком не знаю)) вы бы мне пример привели какойнибудь с коментариями.

Душегуб давно это было... Если б хоть конкретно рассказал в чём проблема, тода может и помог бы. Почитай здесь, может поможет.

так в каком месте ты проставляешь столбец, по которому искать надо, ты туда что вставляешь из первого файла?

Душегуб по идее, у тебя "шифр опоры" - целое n-значное число, я так понимаю - первое в строке. Тогда, на вскидку:

где m - количество строк,
i6 - формат при считывании, т.е. считается 6 (к примеру) первых цифер в строке,
x - считываемое число,
y - значение "шифра".
Главное: не забывать правильно указывать параметры форматирования.

L.E.X.X.
У меня все описывается как Character*15 shifr_op(30)
Первый столбец с шифром у меня занимает 8-12 символов, но самого шифра там на 5-10 символов, а остальные как я понял заполняются пробелами и эти пробелы надо как-то отрезать.

Шифр у меня естественно первым идет, а вставляется туда что-то типа УБ220-9+5.

так в чем проблема кроме как найти или написать функцию trim?

armadillo
А это что за функция?

Короче вот текст моей проги, чето у меня не работает поиск((
program test
character*30 a
character*15 b(21)
character*15 c
integer samp1,samp2,Ierr,mat,k,i
character*15 sample(5), Name
Character*15 shifr_op(21)
Character*15 shifrop(21)
character*1 mat_ru(21)
Character*80 Mes_Ier
COMMON /BLPASP/
* T2(21), T3(21),T4(21),T5(21),T6(21),
* T7(21),T8(21),T9(21),T10(21),T11(21),
* T12(21),T13(21),shifrop
data sample/20H/1gf,2fo,3kf,4fr,5ee/

nfrez=3

open(nfrez,file='frez.dat')
nfdat=2
open(nfdat,file='test.txt')
read(nfdat,'(a94)') a
write(nfrez,'(a94)') a
read(nfdat,*) Nrow,Ncol
write(nfrez,*) 'îïîðû ÂË 35 êâ '
write(nfrez,*) 'Nrow, Ncol', Nrow ,Ncol
do i=1,Nrow-1

read(nfdat,'(a8,2e8.0,10e7.0)') Shifr_op(i),
* T2(i), T3(i),T4(i),T5(i),T6(i),
* T7(i),T8(i),T9(i),T10(i),T11(i),T12(i),T13(i)
write(nfrez,'(a8,12(1x,g10.4))') Shifr_op(i),
* T2(i), T3(i),T4(i),T5(i),T6(i),
* T7(i),T8(i),T9(i),T10(i),T11(i),T12(i),T13(i)
enddo

print '(a20)','vvedite marku opori'
read(*,'(a15)') a
* samp1=index(a,' ')
* write(*,*) samp1
open(nfdat,file='test.txt')
do i=1,21
read(c8) shifr_op(i)
b(i)=Trim(shifr_op(i))
b(i)=shifr_op(i)
if(a==b(i)) write(*,*) b(i)

enddo


А ВОТ текст файла TEST.TXT
шифр H h1 h2 h3 h4 a1 a2 a3 b1 b2 b3 d
19 13
П35-1 19000 15000 0 3000 0 2000 0 0 3300 2000 0 1800
П35-1т 20900 14000 0 3000 2900 2000 0 0 3300 2000 0 1800
П35-1пг 23000 0 0 3000 5000 2000 0 0 3300 2000 0 1800
П35-2 21000 14000 3000 3000 0 2000 3300 2000 2000 3300 2000 1800
П35-2т 22900 12000 3000 3000 2900 2000 3300 2000 2000 3300 2000 1800
П35-2пг 25000 11000 3000 3000 5000 2000 3300 2000 2000 3300 2000 1800
ПС35-2 18000 9000 3000 3000 0 2000 3300 2000 2000 3300 2000 1800
У351 14000 10000 0 3000 1000 2800 0 0 3500 2800 0 1500
У35-1+5 19000 15000 0 3000 1000 2800 0 0 3500 2800 0 4200
У35-1т 17950 10000 0 3000 4950 2800 0 0 3500 2800 0 5700
У35-1т+5 22950 15000 0 3000 4950 2800 0 0 3500 2800 0 4200
У35-2 17500 9500 3000 3000 1000 2800 3500 2800 2800 3500 2800 5700
У35-2+5 22500 14500 3000 3000 1000 2800 3500 2800 2800 3500 2800 4200
У35-2т 21450 10500 3000 3000 4950 2800 3500 2800 2800 3500 2800 5700
У35-2т+5 26450 15500 3000 3000 4950 2800 3500 2800 2800 3500 2800 3900
У35-4 17500 9500 3000 3000 1000 2100 2800 2100 2100 2800 2100 5416
У35-4+5 22500 15500 3000 3000 1000 2100 2800 2100 2100 2800 2100 6616
У35-4+9 26500 19500 3000 3000 1000 2100 2800 2100 2100 2800 2100 1111

поподробней про эти места:



Сильно в алгаритм не всматривался, но заинтересовало это:

Это бред)) я его закоментировал. Я хотел шифр в константу внести, но не получилось))

Ну а это у меня формат такой с8- 8 символов в столбце.

А тут я хотел отрезать пробелы справо. По идеи должно работать, но почемуто не пашет((
П.С. я кажется понял как мне решить эту проблему. Надо посимвольно сравнивать шифры, только вот как это сделать - ума не приложу))
Добавлено спустя 1 минуту, 22 секунды
После некоторых раздумий родил вот такую штуку:
do 100 i=1,18
read(nfrez,'(a8)') shifr_op(i)
e=len(shifr_op(i))
n=8-e
10 format(Tl4)
if(a.eq.shifr_op(i)) then
write(*,fmt=11) shifr_op(i)
11 format(Tl4)
endif
100 continue

Но это тоже не пашет(((((

в 1-й строке шифр считывается в количистве 8-ми знаков
2-я, соответственно, присвоит е=8
3-я, сам понимаешь, равна 0
Добавлено спустя 10 минут, 35 секунд
Проблема вот в чём. Если не ты создаёшь файл с исх. данными, тогда ты точно не знаешь сколько символов у тебя отведено под шифр. Я бы сделал так.
1. Поиск пробела по очереди по одному символу:
сначала - присвоил значение из файла переменной А слово, длинной = мин. значению шифра.
затем проверил следующей символ на предмет равенства " ", если нет, то сложил символ с переменной А. И т.д. до нахождения " "
2. Элементарно сравнил полученное слово А с заданным.
Ну и далее по заданию.

А как по символам сравнивать? Я че то не видел таких операторов.
Я знаю что символы можно только складывать, а вот как слово на буквы разбить???

с каким еще заданным? пишите нормальную универсальную функцию трим. И никаких сусликов!

Душегуб задание: написать функции:
1) ltrim() отрезающие все пробелы у строки слева.
2) rtrim отрезающие все пробелы у строки справа.
3) trim отрезающая все пробелы и справа и слева.

Душегуб почитай, какими параметрами задаётся формат файла через OPEN. Точно не помню, но там вроде как-то указывается последовательное чтение информации в строке. Т.е., не указывая номер символа в строке, программа обращается к следующему символу (символам, это уже как в формате числа укажешь) относительно предыдущего обращения.

а, так она таки в фортране есть. теперь надо только осознать что она делает.

armadillo А вот Ltrim и RTrim у меня не работают! они даже синим не выделяются.
L.E.X.X. Это чо, придестя прямо в операторе READ цикл делать?