Hola
A ver:
Código Delphi
[-]
procedure GetDocAsTxt(FileName, SaveTxtFileTmp: string; var TxtDoc: string);
var
WordApp: Variant;
vTxtFile: TextFile;
TxtData: string;
begin
WordApp := CreateOleObject('Word.Application');
WordApp.Documents.Open(FileName);
WordApp.ActiveDocument.SaveAs(string(SaveTxtFileTmp), 2);
ShellExecute(Application.Handle, nil, 'tskill', 'WINWORD', nil, SW_HIDE);
Sleep(100);
AssignFile(vTxtFile, SaveTxtFileTmp);
Reset(vTxtFile);
TxtDoc := '';
while not Eof(vTxtFile) do
begin
Readln(vTxtFile, TxtData);
TxtDoc := TxtDoc + TxtData + #13#10;
end;
CloseFile(vTxtFile);
DeleteFile(SaveTxtFileTmp);
end;
Uso:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
Archivo, a: string;
i: Integer;
Ruta, N1, N2: String;
begin
Ruta:= Edit3.Text;
N1:= 'BD.Txt';
N2:= 'BD2.Txt';
GetDocAsTxt(Ruta+N1, Ruta+N2, Archivo);
for i := 1 to Length(Archivo) do
begin
Edit1.Text:= (Archivo[i]);
a:= a + Edit1.Text;
Memo1.Text:= a;
if edit1.Text = '|' then
begin
ShowMessage('encontre un | y guarde el dato');
end;
end;
end;
Saludos