[funny_alex]

файл txt, в котором массив в 4 столбца.
пытаюсь прочитать его в массив и не получается...

NK=1505
*DIM,KOORD,ARRAY,NK,4
*VREAD,KOORD(1,1),UZLI,TXT
(11(F14.7,5X))

Создаете вспомогательный массив
типа
*DIM,AUX,TABLE,1,1,1,
Ваш массив
*DIM,KOORD,ARRAY,NK,4
Читаете в цикле. что то типа этого

Код:

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

*DO,i,1,NK,1 
*TREAD,AUX,'UZLI','txt',' ',i, 
KOORD(i,1,1)=AUX(1)
*ENDDO

*VREAD связан с фортрановским Format-ом, т.е. предъявляет определенные требования к данным. *TREAD считывает любое число.

[funny_alex]

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

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

[funny_alex]

все таки закончил, но выдал *TREAD error in data read и то, что получилось в массиве совсем не то, что должно быть

[Vadique]

Разделите данные в строках запятыми чтобы не подбирать формат и попробуйте так:
*VREAD,KOORD(1,1),UZLI,TXT,,J,I,K,4,NK,,
(4F100.0)
Прочитайте в хелпе про команду *VREAD. Там разобран синтаксис и есть примеры.

[funny_alex]

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

Вы можете прочитать текстовый файл Exceleм или Calcом, там расставить запятые и вообще привести к нужному виду. Можете все таки разобраться с импортом (хотя это и непросто). Я один раз это делал командой *TREAD (в задаче нужно было прочитывать параметры, задаваемые в текстовом файле)- раза со второго или с третьего получилось. Вы напишите что за конкретно стоит задача, что за файлы, которые ансис сам создает и прочитать не может. Все что ему полагается считывать для расчетов (файлы коррдинат узлов, элементов, параметров) - он считывает отдельными функциями. Просто уметь считать абсолютно любой файл - это непросто. Да это и нормальных языках программирования не всегда просто.

[Александр Бауск]

>в 1500 строчках запятые ставить?
Find&Replace не поможет?

[funny_alex]

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

*TREAD тоже пробовала, но почему то заполняются еще и нулевые строчки...

Не отчаивайтесь. Кто сказал, что все просто...
У вас есть некий файл и вы хотите забить его в массивы ансиса? Командами ансиса надо еще уметь конечно, но всегда есть запасное решение.
1) научитесь импортировать текстовые файлы в Экселе. Раза с третьего получится расставить числы по ячейкам.
2) В экселе можете вставлять между столбцами новые столбцы, генерировать произвольно запятые и т.д.
Пусть у вас есть столбцы
3.2 1.1
5.5 2.4
2.8 9.5
Сделайте из него (добавлением и размножением, в независимости от размеров файла - одно и то же время)
array(1,1,1)=3.2 $ array(1,2,1)=1.1
array(2,1,1)=5.5 $ array(2,2,1)=2.4
array(3,1,1)=2.8 $ array(3,2,1)=9.5

Потом выделяете этот фрагмент книги и тупо вставляете ансису в коммандную строку или в Session Editor.
А если в Экселе еще и скрипт на VBA написать, то можно вообще что угодно сделать.

[funny_alex]

хотелось бы все таки, чтобы это все автоматически считывалось...

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

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

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

[cyberkolbasa]

Вот есть пара примеров на эту тему
Расчет многопролетной балки
Как перегнать сортамент из SCAD/Lira в ANSYS? Последний пример несколько устаревший. Он был сделан мной "на заре коммунизма". Но все же может быть полезен. Я же сейчайс делаю по 1му примеру с некоторыми вариациями. В APDL достаточно простора для фантазии.

PS. Исходные данные как правило готовлю в экселе и сохраняю как текстовый файл с разделителями табуляции.

[funny_alex]

Сообщение от The_Mercy_Seat Если запись в файл не строго форматная (т.е. числа занимают строго определенную позицию в строчке), то я не знаю, можно ли это сделать средствами ансиса вообще.

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

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

[novinkov]

Требуется прочитать файл с произвольными разделителями в массив вектор? Может так?
1. Создать массив-таблицу D1 и массив-вектор D2
2. Прочитать файл *TREAD (безформатное чтение) в массив-таблицу D1
3. Конвертировать массив-таблицу в массив-вектор (команда *MFUN,D2(1,1),COPY,D1(0,0)

Сообщение от funny_alex Я перевожу в экселе все числа в экспоненциальный формат. И насколько я понимаю, то если бы все числа были положительные или все отрицательные, то не было бы проблем? .

Честно говоря не помню. Давно не использую. Вся эта фигня растет из фортрановского дурацкого FORMAT-а

Сообщение от funny_alex На данный момент, все что я хочу сделать с этим массивом - это посторить по нему кейпойнты, а взяв данные из другого массива, соединить их линиями, так что проблем по операциям с массивами пока нет.

Если у вас это единичная задача (или раз в неделю вы планируете ее решать), то проще вообще сделать безо всяких массивов и ридов - от и до в Экселе.
Переносите текст в Excel
дорабатываете данные там автоматизированным копированием и вставками.
Координаты разделяете запятой, впереди присобачиваете K,
Перед линиями LSTR, (или L, ).
И все.
Несколько механических операций как в тумане и перед вами - код айпидээль.
Просто выделяете нужный фрагмент, нажимаете Ctrl+C
потом открываете текстовый файл и нажимаете Сtrl +v

[novinkov]

Опробовал пост 16 на файле:
0 0 0
1, -6 4e6
-2.22222 5, 3-03
0 0 0

Вроде работает

Код:

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

d1=
d2=
*dim,d1,table,3,2,
*dim,d2,array,4,3
*tread,d1,uzli,txt
*mfun,d2(1,1),copy,d1(0,0)

[funny_alex]

Сообщение от The_Mercy_Seat Если у вас это единичная задача (или раз в неделю вы планируете ее решать), то проще вообще сделать безо всяких массивов и ридов - от и до в Экселе. Переносите текст в Excel

ну вот сейчас то массив используется один раз, но в дальнейшем стоит аналогичная задача по считыванию массива и пока еще конкретно неизвестно, что придется с ним делать...Хотелось бы все таки понять как это делается

[Vadique]

Чтобы вам помочь конкретнее надо знать что содержит данный файл и предполагаемые в дальнейшем . Выложите его или приведите хотя бы часть массива.
Если форматы чисел в строках не совпадают, например так:

0 0 0 0
10.001 10.001 10.001 10.001

то считать массив командой *VREAD можно только так как я вам написал. Это более или менее универсальный способ. Или пользуйтесь командой *TREAD как уже советовали.