Jump to content
Fórum Script Brasil
  • 0

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


fxsoftware
 Share

Question

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: [email protected]

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

[email protected] | Trabalho

[email protected] | 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!

Link to comment
Share on other sites

12 answers to this question

Recommended Posts

  • 0

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

Link to comment
Share on other sites

  • 0

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.

Link to comment
Share on other sites

  • 0

[email protected]

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)

Edited by fxsoftware
Link to comment
Share on other sites

  • 0

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 [email protected]}{\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 [email protected]
\par Trabalho
\par }\pard\plain \ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 {\insrsid11413741
\par }}

Link to comment
Share on other sites

  • 0

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:[email protected]"

Link to comment
Share on other sites

  • 0

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

"mailto:[email protected]"

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

[email protected]

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

Link to comment
Share on other sites

  • 0

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: [email protected]_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.

Edited by fxsoftware
Link to comment
Share on other sites

  • 0

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.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.1k
    • Total Posts
      647.1k
×
×
  • Create New...