memo vers txt problemeRésolu

Question

voila 
j'ai recupere lle contenue d'un fichier texte vers 2 memo en changenant une ligne pressise du memo1 pas une autre voila comment : 

AssignFile(F,'C:\ProgDVB\SoftCam.Key');
Reset(F);
while  ( eof(F)= false )do
 begin
        Readln(F,txt);
        index:=index+1;
        memo.Lines.Insert(index,txt);
        if MidStr(txt,1,11)='V 007C00 01' then memo1.Lines.Insert(index,'V 007C00 01 '+cd)
                                                              else memo1.Lines.Insert(index,txt);                         end;
et apres ca je vais enrgistrer le contenue du memo1 dans le memme fichier texte voila comment:

AssignFile(F,'C:\ProgDVB\SoftCam.Key');
Reset(F);
Rewrite(F);
for i:=1 to index do begin
                               Writeln(F,(memo1.Lines.ValueFromIndex[i] ));
                              end;
CloseFile(F);
le problemme c que dans le fichier texte chaque ligne manque d'un caractere au debut voici un exemple :
au lieu d'avoir ca normalement :
N 7001   00 54C1FAB66C9D6808 ;Polsat 13&#176;E
N 7001   01 79F56042FCEFE0E0 ;Polsat 13&#176;E
N 7101   00 54C1FAB66C9D6808 ;Polsat 13&#176;E
N 7101   01 79F56042FCEFE0E0 ;Polsat 13&#176;E
N 4E01   00 BA3E87A2B6DA658E ;Dream TV 146&#176;E
N 4E01   01 3D3D7E84E027BC27 ;Dream TV 146&#176;E
N 4F01   00 BA3E87A2B6DA658E ;Dream TV 146&#176;E
N 4F01   01 3D3D7E84E027BC27 ;Dream TV 146&#176;E
g ca a la place :
 7001   00 54C1FAB66C9D6808 ;Polsat 13&#176;E
 7001   01 79F56042FCEFE0E0 ;Polsat 13&#176;E
 7101   00 54C1FAB66C9D6808 ;Polsat 13&#176;E
 7101   01 79F56042FCEFE0E0 ;Polsat 13&#176;E
 4E01   00 BA3E87A2B6DA658E ;Dream TV 146&#176;E
 4E01   01 3D3D7E84E027BC27 ;Dream TV 146&#176;E
 4F01   00 BA3E87A2B6DA658E ;Dream TV 146&#176;E
 4F01   01 3D3D7E84E027BC27 ;Dream TV 146&#176;E

comme vous le remarquer il manque le 'N' au debut de chaque ligne !!! comment corriger ca merci
 http://1tik.free.fr

jlen100 · Accepted Answer

salut,

charge plutot le memo avec le la methode loadfromfile()

memo1.lines.loadfromfile('C:\ProgDVB\SoftCam.Key');

puis rechecher la ligne contenant 'V 007C00 01'

et sauvegarder avec savetofile()

memo1.lines.savetofile('C:\ProgDVB\SoftCam.Key');

@+

jlen

toubal_99 · Answer

merci beacoup c tres eficasse 

 http://1tik.free.fr

dxh_master · Answer

et de lire un fichier text a un memo c'est possible??

jlen100 · Answer

pour charger un fichier text dans un memo

Memo1.lines.loadfromfile('nomdu fichier.txt);

@+

jlen

medouboudda · Answer

mais s'il y a un tableau dans le document Word , le Memo n'accepte pas! comment je peux ouvrire un document Word contien des tabl dans un Memo
developpez

Memo vers txt probleme

5 réponses

Votre réponse

Discussions similaires