Показать сообщение отдельно
Старый 09.04.2013, 10:32    | »»» |  #60
Лаочкин
Пользователь
 
Аватар для Лаочкин
 
Ульяновск
Регистрация: 03.04.2013
Сообщений: 54
Лаочкин is on a distinguished road
По умолчанию

Уважаемый Plex, Вы со всеми клиентами строите диалог подобным образом? Я не буду выкладывать ваши "информативные" ответы на мой вопрос. Отмечу лишь, что просто потерял 2 дня зря, видимо данная функция плохо документирована. Спасибо SK - предложил самый лучший способ - использовать OLE, но этот вариант для меня не подошел, а вот установить Poratable Perl и написать скрипт для разбора одного текстового файла и формирования *.chp файла по образцу оказалось по факту быстрее.

Скрипт приведу ниже, может кому-то пригодится. Колонки в исходном файле разделены табуляцией. FF - исходный CSV файл, FT - файл контрольных точек Автограф. При формировании исходного файла координаты были получены с запятыми. Нужно заменить их на точки, споткнулся и на этом.
Код:
#! /bin/usr/perl
open(FF,"<pts2.txt") or die "Ошибка открытия файла: $!"; 
open(FT,">pts.chp") or die "Ошибка открытия файла: $!"; 
 while(<FF>)
 {
	chomp;
	@str = split (/\t/, $_);
	print(FT "Name=скв.№ @str[2] @str[3] \nPExt=(@str[0] @str[1] R25)\nAtrc=32768\nPrms=0,-1,0,0\n");
 }
close(FT) or die $!;
close(FF) or die $!;
Лаочкин вне форума