procedure Acquisition; var List,LCSV: TstringList; i,idx:integer; chaine,champ:string; devise,valeur:string; begin LIST := TStringList.create; LCSV := TStringList.create; LIST.loadfromfile('tonsource.dat'); // nom à adapter !! for i:=0 to LIST.count-1 do begin chaine := LIST[i]; repeat idx := pos(' ',chaine); champ := trim(copy(chaine,1,idx)); chaine := trim(copy,chaine,idx,999)): until length(champ>35); devise := copy(champ,3,3); valeur := copy(champ,lenght(champ)-6,5) + '.' + copy(champ,lenght(champ)-1,2); LCSV.add(devise + ';' + valeur); end; LCSV.savetofile('result.csv'); LCSV.free; List.free; end;
ligne := "French Polynesia 953XPF000011933170000009298132000000009288 0000000000000000000000001212 "; for i := length(ligne) downto 1 do begin ici, tu coupe de dernier caractère et tu le colles dans l' élement actuel (tu dois faire la gestion de l' élément actuel qui change lorsque tu as un espace) ... end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question