Bonsoir,
J’ai une application en Delphi qui utilise un fichier texte, celle-ci fait un petit calcul de degrés heure. Je voudrais transposer ce calcul en VBA, malheureusement je ne comprends pas le format du fichier texte. Quelqu’un saurait il lire ce fichier dans Excel ?
Par avance merci.
Je vous joins le fichier texte, que le code fonctionnant en Delphi.
J’ai une application en Delphi qui utilise un fichier texte, celle-ci fait un petit calcul de degrés heure. Je voudrais transposer ce calcul en VBA, malheureusement je ne comprends pas le format du fichier texte. Quelqu’un saurait il lire ce fichier dans Excel ?
Par avance merci.
Je vous joins le fichier texte, que le code fonctionnant en Delphi.
Code:
Type
TTemp = array[1..8760] of SmallInt;
Var
Temp : TTemp;
Fich : File of TTemp;
i,total, base,DegresHeures : Integer;
begin
if FileExists('C:\...\Text.txt') then
Begin
Base := 19*10;
Total := 0;
AssignFile(Fich,'C:\...\Text.txt');
Reset(Fich);
Read(Fich,Temp);
CloseFile(Fich);
For i := 1 to 8760 do
Begin
if Temp[i] < Base then
Total := Total + (Base-Temp[i]);
end;
DegresHeures := Round(Total div 10);
Edit1.Text := inttostr(DegresHeures);
edit2.Text := inttostr(Temp[12]);
edit3.Text := inttostr(Temp[1222]) ;
End;
end;