как можно узнать число символов в DOC файле в Delphi?

[kharhan]

привет
как можно  узнать число символов в DOC  файле в Delphi?

[x77]

могу ошибаться в деталях, но логика следующая:

Код:

var 
  f: file of byte;
begin
  AssignFile (f, 'c:\file.txt');
  Reset (f);
  ShowMessage (IntToStr (FileSize (f));
  CloseFile (f);
end;

но с точки зрения субботнего Дао лучше сделать тоже самое через TFileStream.

[RXL]

x77, это число байт, а не символов...

kharhan, используй TWordApplication и его свойство Characters.

[x77]

ааа, я протупил. не в DOS файле, а в DOC файле, в смысле, в вордовом...

[x77]

Ром, нету у його свойства characters. там всё немножко веселее:

Код:

uses
  ActiveX, ComObj;

function GetCharStats (AFileName: string; AWithSpaces, AInFootnotes: boolean): integer;
var
  w: TWordApplication;
  FileName,
  varIncludeFootnotes,
  varSaveChanges: OleVariant;
  Stats: TOleEnum;
begin
  FileName := AFileName;
  varIncludeFootnotes := AInFootnotes;
  varSaveChanges := FALSE;
  if AWithSpaces then
    Stats := $00000003
  else
    Stats := $00000005;

  w := TWordApplication.Create(nil);
  try
    w.Documents.Open(FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                     EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                     EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
    Result := w.ActiveDocument.ComputeStatistics(Stats, varIncludeFootNotes);
    w.ActiveDocument.Close(varSaveChanges,EmptyParam,EmptyParam);
  finally
    w.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    ShowMessage (IntToStr (GetCharStats (OpenDialog1.FileName, TRUE, TRUE)));
end;

[RXL]

Кошмар...

А так?

WordApplication1.ActiveDocument.Characters.count

[x77]

RXL, неа

[x77]

там всё делается через ComputeStatistics, говоришь ей, какая именно статистика тебя интересует (слова, строки, символы, символы с пробелами, параграфы и т.д.), а она тебе возвращает результат. в принципе, удобно, но поскольку это COM-объект, все параметры приходится по ссылке передавать. поэтому лучше такие вещи заворачивать в собственные функции и дёргать уже их.

[kharhan]

спасибо большое .