(Resolvido) Carregar string para ListView de um arquivo .rtf

[fxsoftware]

Gostaria de pedir ajuda de vocês aqui do forum pois estou tentando resolver esse meu problema e já fazem 2 dias e nada.

 

 

Tenho uma pasta chamada EMAIL com varios arquivos .rtf dentro de cada arquivo na parte do topo, nas 2 primeira linhas

tenho:

 

Ex: edu@mail.com

Trabalho

 

obs: sendo que cada arquivo tem a string diferente.

 

Preciso pegar de cada arquivo essas 2 string e carregar todos para o listview, ele ta assim:

 

config:

listview.viewstyle := vsReport;

 

_________________________

email | Assunto

edu@mail.com | Trabalho

carlos@mail.com | Trabalho

 

Gostaria de fica-se assim como esse exemplo de cima que demostrei.

Obs: tem como fazer isso? e se não tiver teria como me dar alguma ideia de como contorna essa situação, desde já agradeço!

[Jhonas]

Exemplo

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListView1: TListView;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ListItem: TListItem; // Criamos uma variável para guarda os itens do Listview
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  l: integer; line : string;
  Arquivo : TextFile;
begin
  // CRIAR A COLUNA [0] COLOCAR O CAPTION E DEFINIR O TAMANHO
  ListView1.Columns.Add;
  ListView1.Columns[0].Caption := 'EMAIL';
  ListView1.Columns[0].Width := 100;

  // CRIAR A COLUNA [1] COLOCAR O CAPTION E DEFINIR O TAMANHO
  ListView1.Columns.Add;
  ListView1.Columns[1].Caption := 'ASSUNTO';
  ListView1.Columns[1].Width := 100;

  // Limpa o Conteudo Existente no ListView
  ListView1.Clear;

  // Adicionamos um Item ao ListView
  ListItem := ListView1.Items.Add;

  //Seleciona a primeira linha do ListView
  Listview1.ItemIndex := 0;

  // ABRIR O ARQUIVO RTF E LER AS 2 PRIMEIRAS LINHAS DO ARQUIVO
  l := 0;
  AssignFile(Arquivo, 'C:\MeuArquivo.rtf');
  Reset(Arquivo);
  while not EOF(Arquivo) do
  begin
    l := l + 1;
    ReadLn(Arquivo, Line);
    if l = 1 then
       ListItem.Caption := Line;
    if l = 2 then
       ListItem.SubItems.Add(Line);

  end;
  CloseFile(Arquivo);

end;

end.

OBS: faça as modificações para o seu uso

abraço

[fxsoftware]

Obrigado pelo resposta rapida jhonas, vou testar aqui e volto pra dizer se deu tudo certo, mas de inicio o que eu percebo no seu codigo é que ele pega a string de 1 unico arquivo e não de varios arquivos, mesmo assim te agradeço muito.

[Jhonas]

te dei um exemplo para um arquivo... para fazer a leitura de mais de um arquivo, é simples, e deixo com voce essa parte

abraço

[fxsoftware]

Estou tentando fazer isso agora mas surgiu um problema, esta sendo add na listview a codificação do rtf e não a string do email e assunto, sabe dizer o porque?

[Jhonas]

mostre o conteudo do rtf

[fxsoftware]

eduardo@mail.com

Trabalho

Texto simples sem condificação.

aqui fica o corpo do email (obs: as vezes vai ter imagens mas sempre abaixo do corpo do email)

esta aparecendo isso no listview ({\rtf1\adeflang1025\ansi\ansicpg1252\uc1\adeff31507\deff0\stshfdbch31505\stshfloch31506\stshfhich31506\stshfbi31507\deflang1046\deflangfe1046\themelang1046\themelangfe0\themelangcs0{\fonttbl{\f0\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Tim)

Editado Maio 22, 2015 por fxsoftware

[Jhonas]

não é assim ... abra o arquivo rtf com o boco de notas e coloque o conteudo aqui

mas coloque até a parte onde aparece o email

\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0;
\red128\green128\blue128;\red192\green192\blue192;}{\stylesheet{\ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 \snext0 Normal;}{\*\cs10 \additive \ssemihidden
Default Paragraph Font;}{\*\ts11\tsrowd\trftsWidthB3\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3\trcbpat1\trcfpat1\tscellwidthfts0\tsvertalt\tsbrdrt\tsbrdrl\tsbrdrb\tsbrdrr\tsbrdrdgl\tsbrdrdgr\tsbrdrh\tsbrdrv
\ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs20\lang1024\langfe1024\cgrid\langnp1024\langfenp1024 \snext11 \ssemihidden Normal Table;}{
\s15\ql \li0\ri0\sb100\sa100\sbauto1\saauto1\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 \sbasedon0 \snext15 \styrsid13449930 Normal (Web);}}{\*\pgptbl {\pgp\ipgp0\itap0\li0\ri0\sb0
\sa0}}{\*\rsidtbl \rsid74781\rsid145996\rsid409880\rsid491302\rsid555530\rsid590022\rsid662976\rsid738278\rsid753531\rsid817812\rsid855788\rsid860712\rsid883345\rsid918343\rsid1064756\rsid1129951\rsid1204038\rsid1207731\rsid1245295\rsid1256126\rsid1256420
\rsid1264792\rsid1314820\rsid1341409\rsid1404870\rsid1443197\rsid1455883\rsid1711590\rsid1713441\rsid1906023\rsid1911888\rsid1918732\rsid1924313\rsid1982237\rsid1995392\rsid2241344\rsid2373130\rsid2446099\rsid2456991\rsid2585705\rsid2586596\rsid2692739
\rsid2715696\rsid2841023\rsid3080899\rsid3161267\rsid3220625\rsid3231771\rsid3234900\rsid3238263\rsid3285654\rsid3479696\rsid3674595\rsid3812015\rsid3828222\rsid3831146\rsid3871329\rsid3886649\rsid4021754\rsid4206531\rsid4271735\rsid4272892\rsid4274347
\rsid4417645\rsid4419539\rsid4469708\rsid4469813\rsid4523505\rsid4527571\rsid4533332\rsid4617205\rsid4662860\rsid4793795\rsid4872977\rsid5249337\rsid5254112\rsid5317179\rsid5381045\rsid5393762\rsid5449565\rsid5506161\rsid5666723\rsid5849897\rsid6096588
\rsid6109479\rsid6167245\rsid6375589\rsid6378074\rsid6383991\rsid6450729\rsid6517769\rsid6556586\rsid6624970\rsid6696882\rsid6754294\rsid6756700\rsid6759719\rsid6832683\rsid6846112\rsid6961554\rsid7038864\rsid7099167\rsid7106380\rsid7164665\rsid7287218
\rsid7295228\rsid7355718\rsid7410346\rsid7682361\rsid7816134\rsid7896207\rsid7949849\rsid8021248\rsid8208731\rsid8259971\rsid8397922\rsid8540924\rsid8612711\rsid8656024\rsid8717022\rsid8855448\rsid8875563\rsid8985162\rsid9069532\rsid9141523\rsid9187354
\rsid9371828\rsid9377986\rsid9533652\rsid9643157\rsid9644950\rsid9656162\rsid9659369\rsid9702790\rsid9731244\rsid9780583\rsid9788753\rsid9858944\rsid9914902\rsid10098285\rsid10449712\rsid10562055\rsid10625848\rsid10639410\rsid10684838\rsid10764753
\rsid10836918\rsid11080514\rsid11209997\rsid11222778\rsid11278423\rsid11356088\rsid11413741\rsid11415623\rsid11429139\rsid11480377\rsid11537774\rsid11548532\rsid11558204\rsid11565499\rsid11671300\rsid11875149\rsid12018766\rsid12197678\rsid12283879
\rsid12413364\rsid12461850\rsid12529468\rsid12539021\rsid12649775\rsid12652768\rsid12744350\rsid12803282\rsid12848762\rsid12992181\rsid13184761\rsid13304151\rsid13443824\rsid13449930\rsid13507440\rsid13508262\rsid13581510\rsid13767223\rsid13773143
\rsid13778673\rsid13847269\rsid13913489\rsid13914331\rsid13965519\rsid13969092\rsid14047255\rsid14102109\rsid14106316\rsid14113283\rsid14178284\rsid14240413\rsid14382611\rsid14450137\rsid14559588\rsid14579916\rsid14625113\rsid14630522\rsid14632532
\rsid14642785\rsid14745858\rsid14767115\rsid14877898\rsid14885380\rsid14966402\rsid15018582\rsid15024226\rsid15025979\rsid15039288\rsid15151763\rsid15165481\rsid15205443\rsid15226619\rsid15283355\rsid15401243\rsid15494507\rsid15549672\rsid15694808
\rsid15695116\rsid15734858\rsid15756239\rsid15892170\rsid15953425\rsid16059256\rsid16278655\rsid16280356\rsid16347792\rsid16348859\rsid16467795\rsid16474749\rsid16524253\rsid16535995\rsid16591938\rsid16592240\rsid16660898\rsid16739689}
{\*\generator Microsoft Word 10.0.2627;}{\info{\title eduardo@mail}{\author CYBER}{\operator CYBER}{\creatim\yr2015\mo5\dy22\hr16\min35}{\revtim\yr2015\mo5\dy22\hr16\min36}{\version1}{\edmins1}{\nofpages1}{\nofwords4}{\nofchars23}{\*\company PARTICULAR}
{\nofcharsws26}{\vern16437}}\margl1701\margr1701\margt1417\margb1417 \deftab708\widowctrl\ftnbj\aenddoc\hyphhotz425\noxlattoyen\expshrtn\noultrlspc\dntblnsbdb\nospaceforul\formshade\horzdoc\dgmargin\dghspace180\dgvspace180\dghorigin1701\dgvorigin1417
\dghshow1\dgvshow1\jexpand\viewkind1\viewscale75\pgbrdrhead\pgbrdrfoot\splytwnine\ftnlytwnine\htmautsp\nolnhtadjtbl\useltbaln\alntblind\lytcalctblwd\lyttblrtgr\lnbrkrule\nobrkwrptbl\snaptogridincell\allowfieldendsel\wrppunct\asianbrkrule\rsidroot8855448
\fet0\sectd \linex0\headery708\footery708\colsx708\endnhere\sectlinegrid360\sectdefaultcl\sftnbj {\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl2\pnucltr\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl3
\pndec\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang {\pntxta )}}{\*\pnseclvl5\pndec\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl6\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}
{\*\pnseclvl7\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}\pard\plain
\s15\ql \li0\ri0\sb100\sa100\sbauto1\saauto1\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid13449930 \fs24\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 {\insrsid13449930 eduardo@mail.com
\par Trabalho
\par }\pard\plain \ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 {\insrsid11413741
\par }}

[fxsoftware]

Olha ae!

{\rtf1\adeflang1025\ansi\ansicpg1252\uc1\adeff0\deff0\stshfdbch0\stshfloch37\stshfhich37\stshfbi37\deflang1046\deflangfe1046\themelang1046\themelangfe0\themelangcs0{\fonttbl{\f0\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f34\fbidi \froman\fcharset0\fprq2{\*\panose 02040503050406030204}Cambria Math;}
{\f37\fbidi \fswiss\fcharset0\fprq2{\*\panose 020f0502020204030204}Calibri;}{\f39\fbidi \fswiss\fcharset0\fprq2{\*\panose 020b0604030504040204}Verdana;}{\flomajor\f31500\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}
{\fdbmajor\f31501\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\fhimajor\f31502\fbidi \froman\fcharset0\fprq2{\*\panose 02040503050406030204}Cambria;}
{\fbimajor\f31503\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\flominor\f31504\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}
{\fdbminor\f31505\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\fhiminor\f31506\fbidi \fswiss\fcharset0\fprq2{\*\panose 020f0502020204030204}Calibri;}
{\fbiminor\f31507\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f40\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}{\f41\fbidi \froman\fcharset204\fprq2 Times New Roman Cyr;}
{\f43\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}{\f44\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}{\f45\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\f46\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}
{\f47\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}{\f48\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\f380\fbidi \froman\fcharset238\fprq2 Cambria Math CE;}{\f381\fbidi \froman\fcharset204\fprq2 Cambria Math Cyr;}
{\f383\fbidi \froman\fcharset161\fprq2 Cambria Math Greek;}{\f384\fbidi \froman\fcharset162\fprq2 Cambria Math Tur;}{\f387\fbidi \froman\fcharset186\fprq2 Cambria Math Baltic;}{\f388\fbidi \froman\fcharset163\fprq2 Cambria Math (Vietnamese);}
{\f410\fbidi \fswiss\fcharset238\fprq2 Calibri CE;}{\f411\fbidi \fswiss\fcharset204\fprq2 Calibri Cyr;}{\f413\fbidi \fswiss\fcharset161\fprq2 Calibri Greek;}{\f414\fbidi \fswiss\fcharset162\fprq2 Calibri Tur;}
{\f417\fbidi \fswiss\fcharset186\fprq2 Calibri Baltic;}{\f418\fbidi \fswiss\fcharset163\fprq2 Calibri (Vietnamese);}{\f430\fbidi \fswiss\fcharset238\fprq2 Verdana CE;}{\f431\fbidi \fswiss\fcharset204\fprq2 Verdana Cyr;}
{\f433\fbidi \fswiss\fcharset161\fprq2 Verdana Greek;}{\f434\fbidi \fswiss\fcharset162\fprq2 Verdana Tur;}{\f437\fbidi \fswiss\fcharset186\fprq2 Verdana Baltic;}{\f438\fbidi \fswiss\fcharset163\fprq2 Verdana (Vietnamese);}
{\flomajor\f31508\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}{\flomajor\f31509\fbidi \froman\fcharset204\fprq2 Times New Roman Cyr;}{\flomajor\f31511\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}
{\flomajor\f31512\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}{\flomajor\f31513\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\flomajor\f31514\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}
{\flomajor\f31515\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}{\flomajor\f31516\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\fdbmajor\f31518\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}
{\fdbmajor\f31519\fbidi \froman\fcharset204\fprq2 Times New Roman Cyr;}{\fdbmajor\f31521\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}{\fdbmajor\f31522\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}
{\fdbmajor\f31523\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\fdbmajor\f31524\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}{\fdbmajor\f31525\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}
{\fdbmajor\f31526\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\fhimajor\f31528\fbidi \froman\fcharset238\fprq2 Cambria CE;}{\fhimajor\f31529\fbidi \froman\fcharset204\fprq2 Cambria Cyr;}
{\fhimajor\f31531\fbidi \froman\fcharset161\fprq2 Cambria Greek;}{\fhimajor\f31532\fbidi \froman\fcharset162\fprq2 Cambria Tur;}{\fhimajor\f31535\fbidi \froman\fcharset186\fprq2 Cambria Baltic;}
{\fhimajor\f31536\fbidi \froman\fcharset163\fprq2 Cambria (Vietnamese);}{\fbimajor\f31538\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}{\fbimajor\f31539\fbidi \froman\fcharset204\fprq2 Times New Roman Cyr;}
{\fbimajor\f31541\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}{\fbimajor\f31542\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}{\fbimajor\f31543\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}
{\fbimajor\f31544\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}{\fbimajor\f31545\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}{\fbimajor\f31546\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}
{\flominor\f31548\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}{\flominor\f31549\fbidi \froman\fcharset204\fprq2 Times New Roman Cyr;}{\flominor\f31551\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}
{\flominor\f31552\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}{\flominor\f31553\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\flominor\f31554\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}
{\flominor\f31555\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}{\flominor\f31556\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\fdbminor\f31558\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}
{\fdbminor\f31559\fbidi \froman\fcharset204\fprq2 Times New Roman Cyr;}{\fdbminor\f31561\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}{\fdbminor\f31562\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}
{\fdbminor\f31563\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\fdbminor\f31564\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}{\fdbminor\f31565\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}
{\fdbminor\f31566\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\fhiminor\f31568\fbidi \fswiss\fcharset238\fprq2 Calibri CE;}{\fhiminor\f31569\fbidi \fswiss\fcharset204\fprq2 Calibri Cyr;}
{\fhiminor\f31571\fbidi \fswiss\fcharset161\fprq2 Calibri Greek;}{\fhiminor\f31572\fbidi \fswiss\fcharset162\fprq2 Calibri Tur;}{\fhiminor\f31575\fbidi \fswiss\fcharset186\fprq2 Calibri Baltic;}
{\fhiminor\f31576\fbidi \fswiss\fcharset163\fprq2 Calibri (Vietnamese);}{\fbiminor\f31578\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}{\fbiminor\f31579\fbidi \froman\fcharset204\fprq2 Times New Roman Cyr;}
{\fbiminor\f31581\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}{\fbiminor\f31582\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}{\fbiminor\f31583\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}
{\fbiminor\f31584\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}{\fbiminor\f31585\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}{\fbiminor\f31586\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}}
{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;
\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0;\red128\green128\blue128;\red192\green192\blue192;\chyperlink\ctint255\cshade255\red0\green0\blue255;\red153\green153\blue153;}{\*\defchp \f37 }{\*\defpap
\ql \li0\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 }\noqfpromote {\stylesheet{\ql \li0\ri0\sa200\sl276\slmult1\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \rtlch\fcs1 \af0\afs22\alang1025
\ltrch\fcs0 \f37\fs22\lang1046\langfe1033\cgrid\langnp1046\langfenp1033 \snext0 \sqformat \spriority0 Normal;}{\*\cs10 \additive \ssemihidden \sunhideused \spriority1 Default Paragraph Font;}{\*
\ts11\tsrowd\trftsWidthB3\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3\trcbpat1\trcfpat1\tblind0\tblindtype3\tsvertalt\tsbrdrt\tsbrdrl\tsbrdrb\tsbrdrr\tsbrdrdgl\tsbrdrdgr\tsbrdrh\tsbrdrv
\ql \li0\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \rtlch\fcs1 \af37\afs20\alang1025 \ltrch\fcs0 \f37\fs20\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 \snext11 \ssemihidden \sunhideused Normal Table;}{\*\cs15
\additive \rtlch\fcs1 \af0 \ltrch\fcs0 \ul\cf17 \sbasedon10 \sunhideused \styrsid15618729 Hyperlink;}}{\*\rsidtbl \rsid213475\rsid4223619\rsid7276757\rsid15618729\rsid16325331}{\mmathPr\mmathFont34\mbrkBin0\mbrkBinSub0\msmallFrac0\mdispDef1\mlMargin0
\mrMargin0\mdefJc1\mwrapIndent1440\mintLim0\mnaryLim1}{\info{\author Edu FX}{\operator Edu FX}{\creatim\yr2015\mo5\dy21\hr15\min16}{\revtim\yr2015\mo5\dy22\hr16\min47}{\version4}{\edmins2}{\nofpages1}{\nofwords99}{\nofchars540}{\nofcharsws638}
{\vern49247}}{\*\xmlnstbl {\xmlns1 http://schemas.microsoft.com/office/word/2003/wordml}}\paperw11906\paperh16838\margl1701\margr1701\margt1417\margb1417\gutter0\ltrsect
\deftab708\widowctrl\ftnbj\aenddoc\hyphhotz425\trackmoves0\trackformatting1\donotembedsysfont1\relyonvml0\donotembedlingdata0\grfdocevents0\validatexml1\showplaceholdtext0\ignoremixedcontent0\saveinvalidxml0
\showxmlerrors1\noxlattoyen\expshrtn\noultrlspc\dntblnsbdb\nospaceforul\formshade\horzdoc\dgmargin\dghspace180\dgvspace180\dghorigin1701\dgvorigin1417\dghshow1\dgvshow1
\jexpand\viewkind1\viewscale100\pgbrdrhead\pgbrdrfoot\splytwnine\ftnlytwnine\htmautsp\nolnhtadjtbl\useltbaln\alntblind\lytcalctblwd\lyttblrtgr\lnbrkrule\nobrkwrptbl\snaptogridincell\allowfieldendsel\wrppunct
\asianbrkrule\rsidroot213475\newtblstyruls\nogrowautofit\utinl \fet0{\*\wgrffmtfilter 2450}\ilfomacatclnup0\ltrpar \sectd \ltrsect\linex0\headery708\footery708\colsx708\endnhere\sectlinegrid360\sectdefaultcl\sftnbj {\*\pnseclvl1
\pnucrm\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl2\pnucltr\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl3\pndec\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang {\pntxta )}}{\*\pnseclvl5
\pndec\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl6\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl7\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang
{\pntxtb (}{\pntxta )}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}\pard\plain \ltrpar\ql \li0\ri0\sa200\sl276\slmult1\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \rtlch\fcs1 \af0\afs22\alang1025
\ltrch\fcs0 \f37\fs22\lang1046\langfe1033\cgrid\langnp1046\langfenp1033 {\field{\*\fldinst {\rtlch\fcs1 \af0\afs15 \ltrch\fcs0 \f39\fs15\cf18\insrsid15618729 HYPERLINK "mailto:residial@gmail.com"

[Jhonas]

agora verifique em cada um dos arquivos rtf, se em todos eles aparece isso ( em vermelho )

"mailto:residial@gmail.com"

se for isso em todos, basta voce usar o comando POS do delphi para procurar essa string dentro do arquivo e extrair o restante

residial@gmail.com

verifique tambem o que vem antes de Trabalho ou outra coisa referente ao assunto

[fxsoftware]

Poxa jhonas não tinha pensado nisso realmente e uma otima ideia vou ver aqui.

Eu tava pensando tambem em colocar esses dados que eu quero pegar no nome do arquivo, tipo: eduardo@mail.com_Trabalho_16-51-00.rtf e extrair os dados, mas não sei se e conveniente fazer isso. o que você me diz.

obs: pois quem vai gerar esse arquivo e um outro programinha que fiz. o que você me diz.

Editado Maio 22, 2015 por fxsoftware

[Jhonas]

veja o post anterior

[fxsoftware]

Obrigado mais uma vez jhonas pela sua ajuda, to fazendo alguns teste como você sugerio, vou tentar limitar tambem a quantidade de email na caixa de entrada pois so assim o programa não leva muito tempo para pecorrer todos os arquivos. abraço e bom final de semana cara.