Lecture fichier texte Delphi

[Loïg]

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.

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;

 

[Loïg]

Re : Lecture fichier texte Delphi

Voici, le code répondant à mon problème :

Sub Test()
    Dim i As Long, total As Long, base As Long
    Dim iFile As Integer
    Dim Temp()
    base = 19 * 10
    iFile = FreeFile()
    Open "C:\test.txt" For Binary As iFile
    ReDim Temp(1 To 8760)
    
    For i = 1 To 8760
        Temp(i) = Asc(StrConv(InputB(2, #iFile), vbUnicode))
        If IsNumeric(Temp(i)) Then
            If Temp(i) < base Then
                total = total + Temp(i)
            End If
        End If
    Next i
    Close #iFile
    MsgBox total
End Sub

Merci à tous pour votre aide.
Bonne continuation.

 

[Staple1600]

Re : Lecture fichier texte Delphi

Bonsoir Loïg, Hasco, le fil, le forum

Loïg
Il faut lire
Voici, le code solutionnant mon problème .

Ou c'est le code qui me pose problème.

J'ai un doute. 😕

 

[MJ13]

Re : Lecture fichier texte Delphi

Bonjour à tous

Voici, le code répondant à mon problème :
Merci à tous pour votre aide.
Bonne continuation.

JM: Moi, quand je lis ça, cela me paraît clair 😀.

 

[Loïg]

Re : Lecture fichier texte Delphi

Voici, le code solutionnant mon problème
dsl

 

[Staple1600]

Re : Lecture fichier texte Delphi

Bonsoir MJ13, re Loïg

Ce qui est clair pour toi peut ne pas l'être pour moi
Un tiens vaut mieux que deux tu l'auras.

Forewarned is forearmed

Mes neurones ne sont plus très alertes et contaminés au PCB.
Ça ralentit la comprenette.

Désolé.

 

[Loïg]

Re : Lecture fichier texte Delphi

Petite question subsidiaire, messieurs
Ce code marche si la valeur est négative ?
Bonne soirée

 

[Staple1600]

Re : Lecture fichier texte Delphi

Re


Essaies pour voir avec : une valeur négative
C'est la façon la plus simple et évidente de le savoir non ????

 

[Loïg]

Re : Lecture fichier texte Delphi

re
J’ai fait le test et cela ne marche pas au lieu d’avoir -1 j’ai 255.

A+

 

[Loïg]

Re : Lecture fichier texte Delphi

Bonjour tout le monde,
Après plus de vérification, ce code fonctionne très bien pour des valeurs comprises entre 0 et 255, par contre pour les valeurs négatives et les valeurs supérieures à 255 je n’obtiens pas de bons résultats.
Quelqu’un aurai une solution ?
A+
Loïg