Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.10.2007, 18:36   #1
Индийское диско
 
Регистрация: 08.10.2007
Сообщений: 4
Печаль вывод текста в файл

Здравствуйте.
Проблема у меня такая.

Когда я сохраняю текствоый файл (изначально doc) в формат txt, получаю что то наподобие:
РПаЎ±б >  юя   )  +  юяяя ( яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяямҐБ q` рї   д  bjbjqPqP  *
и тд
нужен именно txt формат.

Как быть??

Заранее спасибо
Индийское диско вне форума Ответить с цитированием
Старый 08.10.2007, 18:49   #2
pu4koff
Старожил
 
Аватар для pu4koff
 
Регистрация: 22.05.2007
Сообщений: 9,091
По умолчанию

дык надо не просто у файла имя с расширением поменять, а надо сохранить в нужном формате. Для этого смотришь как с вордом работать и его средствами сохраняешь файл как текст
pu4koff вне форума Ответить с цитированием
Старый 08.10.2007, 22:08   #3
Индийское диско
 
Регистрация: 08.10.2007
Сообщений: 4
Печаль нееее

ну блин, мне надо из делфей чтобы был в txt. это возможно?
Индийское диско вне форума Ответить с цитированием
Старый 08.10.2007, 22:19   #4
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Ну дык у дельфей целый набор офисовских компонент... Изучаем, как с ними работать и... офис в наших руках.
mihali4 вне форума Ответить с цитированием
Старый 09.10.2007, 00:02   #5
Nemesisking
Форумчанин
 
Аватар для Nemesisking
 
Регистрация: 04.02.2007
Сообщений: 213
По умолчанию

С чего ты сохраняешь? А лучше всего скинь код...
Per Aspera Ad Astra
www.salviaclub.com.ua
Nemesisking вне форума Ответить с цитированием
Старый 09.10.2007, 11:35   #6
Индийское диско
 
Регистрация: 08.10.2007
Сообщений: 4
По умолчанию

Мне надо слить несколько файлов в один txt (файлы предварительно закачаны по http).

procedure getfile ;
var w,wdoc,wdoc1levariant;
i:integer;
text:string;
begin
w:=createOleobject('word.applicatio n');
w.visible:=false;
wdoc:=w.documents.open('C:\Ruslan\t emp.txt',false,false,false,emptypar am,emptyparam,false,emptyparam,empt yparam,emptyparam,emptyparam,false) ;
wdoc.range.select;
wdoc.range.cut;
for i:=1 to n do
begin
wdoc1:=w.documents.open('c:\Ruslan\ '+goa[i]+'.doc');
text:=wdoc1.range.text;
if copy(text,1,9)<>'Not Found' then
begin
wdoc.range.insertafter(goa[i]);
wdoc.paragraphs.add;
wdoc.range.insertafter(text);
wdoc1.close;
deletefile('c:\Ruslan\'+goa[i]+'.doc');
end
else
begin
wdoc1.close;
deletefile('c:\Ruslan\'+goa[i]+'.doc');
end;
end;
wdoc.saveas('c:\Ruslan\temp.txt');
w.quit;
end;

Последний раз редактировалось Индийское диско; 09.10.2007 в 11:37.
Индийское диско вне форума Ответить с цитированием
Старый 09.10.2007, 12:43   #7
Nemesisking
Форумчанин
 
Аватар для Nemesisking
 
Регистрация: 04.02.2007
Сообщений: 213
По умолчанию

Почитай тут http://delphi-faq.zoxt.net/102.htm!!! Это начальные страницы поисковика, на вопрос "открытие документа Delphi"!
Per Aspera Ad Astra
www.salviaclub.com.ua
Nemesisking вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывод в edit текста с переменной NecroSlider Общие вопросы C/C++ 4 29.07.2008 14:42
Вывод текста(pascal) Dmtr Помощь студентам 1 29.05.2008 00:25
Вывод части текста из файла CoDeR Общие вопросы Delphi 10 16.08.2007 14:30