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°EN 7001 01 79F56042FCEFE0E0 ;Polsat 13°EN 7101 00 54C1FAB66C9D6808 ;Polsat 13°EN 7101 01 79F56042FCEFE0E0 ;Polsat 13°EN 4E01 00 BA3E87A2B6DA658E ;Dream TV 146°EN 4E01 01 3D3D7E84E027BC27 ;Dream TV 146°EN 4F01 00 BA3E87A2B6DA658E ;Dream TV 146°EN 4F01 01 3D3D7E84E027BC27 ;Dream TV 146°Eg ca a la place : 7001 00 54C1FAB66C9D6808 ;Polsat 13°E 7001 01 79F56042FCEFE0E0 ;Polsat 13°E 7101 00 54C1FAB66C9D6808 ;Polsat 13°E 7101 01 79F56042FCEFE0E0 ;Polsat 13°E 4E01 00 BA3E87A2B6DA658E ;Dream TV 146°E 4E01 01 3D3D7E84E027BC27 ;Dream TV 146°E 4F01 00 BA3E87A2B6DA658E ;Dream TV 146°E 4F01 01 3D3D7E84E027BC27 ;Dream TV 146°Ecomme vous le remarquer il manque le 'N' au debut de chaque ligne !!! comment corriger ca merci http://1tik.free.fr
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 598 809 membres 74 nouveaux aujourd'hui 15 441 membres club