![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы
![]() |
Поиск в этой теме
![]() |
![]() |
#1 |
Регистрация: 08.10.2007
Сообщений: 4
|
![]()
Здравствуйте.
Проблема у меня такая. Когда я сохраняю текствоый файл (изначально doc) в формат txt, получаю что то наподобие: РПаЎ±б > юя ) + юяяя ( яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя яяяяяяяяяяяямҐБ q` рї д bjbjqPqP * и тд нужен именно txt формат. Как быть?? Заранее спасибо |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 22.05.2007
Сообщений: 9,091
|
![]()
дык надо не просто у файла имя с расширением поменять, а надо сохранить в нужном формате. Для этого смотришь как с вордом работать и его средствами сохраняешь файл как текст
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 08.10.2007
Сообщений: 4
|
![]()
ну блин, мне надо из делфей чтобы был в txt. это возможно?
|
![]() |
![]() |
![]() |
#4 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
![]()
Ну дык у дельфей целый набор офисовских компонент... Изучаем, как с ними работать и... офис в наших руках.
![]() |
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 04.02.2007
Сообщений: 213
|
![]()
С чего ты сохраняешь? А лучше всего скинь код...
Per Aspera Ad Astra
www.salviaclub.com.ua |
![]() |
![]() |
![]() |
#6 |
Регистрация: 08.10.2007
Сообщений: 4
|
![]()
Мне надо слить несколько файлов в один txt (файлы предварительно закачаны по http).
procedure getfile ; var w,wdoc,wdoc1 ![]() 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. |
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 04.02.2007
Сообщений: 213
|
![]()
Почитай тут http://delphi-faq.zoxt.net/102.htm!!! Это начальные страницы поисковика, на вопрос "открытие документа Delphi"!
Per Aspera Ad Astra
www.salviaclub.com.ua |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вывод в 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 |