Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Вниз

Можно ли работать с файлом *.doc как с *.txt или как с типизированным? 


saviola   (2002-02-06 17:51) [0]

Еще есть такой вопросик в subj



Dimka Maslov   (2002-02-06 18:13) [1]

Ни как с текстовым, ни как с типизированным. Вордовские файлы имеют ужасающий внутренний формат, что сам Билл Гейтс в нём не разберётся.
А тебе нужно прочитать информацию из *.doc файла или что-то другое?



saviola   (2002-02-06 18:17) [2]

Да мне нужно читать от туда по словам(как в типизированом - запись) или по символам(как в текстовом). Может можно как-то по другому?



Dimka Maslov   (2002-02-06 18:25) [3]

Передаёшь этой функции имя файла *.doc или *.rtf и получаешь на выходе текст файла. Есть ограничения. Во первых Word должен быть установлен, во вторых тебе придётся перейти на Delphi 5, и в третьих подключить к проекту модули OleServer и Word97.


function ImportWordFile(const FileName: AnsiString): AnsiString;

function RepairText(Ws: WideString): AnsiString;
var
i: Integer;
Ch1, Ch2: Char;
S: AnsiString;
begin
S:=Ws;
Result:="";
Ch2:=#13;
for i:=1 to Length(S)-1 do begin
Ch1:=S[i];
Ch2:=S[i+1];
Result:=Result+Ch1;
if (Ch1 = chEnter) and (Ch2 <> #10) then Result:=Result+#10;
end;
Result:=Result+Ch2;
if Ch2 = chEnter then Result:=Result+#10;
AnsiToOEM(PChar(Result), PChar(Result));
OEMToAnsi(PChar(Result), PChar(Result));
end;

var
WordApp: TWordApplication;
Doc: Variant;
begin
WordApp:=TWordApplication.Create(nil);
try
WordApp.ConnectKind:=ckNewInstance;
WordApp.Connect;
try
Doc:=WordApp.Documents;
Doc.Open(FileName);
Doc:=Unassigned;
WordApp.Selection.SetRange(0, $7FFFFFFF);
Result:=RepairText(WordApp.Selection.Text);
finally
WordApp.WindowState:=1;
WordApp.Quit;
WordApp.Disconnect;
end;
finally
WordApp.Free;
end;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.017 c
1-66533           Паша                  2002-02-05 12:27  2002.02.21  
Изменение размеров шрифта экрана искажает содержимое формы


3-66483           masik                 2002-01-29 12:21  2002.02.21  
MS SQL Types


1-66581           MystiX                2002-02-05 18:35  2002.02.21  
TXT


4-66710           Delphimun             2001-12-22 17:37  2002.02.21  
Как сделать, чтобы моё приложение нельзя было свернуть или перейти на другую прогу?


7-66691           Grey                  2001-11-11 14:57  2002.02.21  
Как отобразить ярлык программы рядом с часами?