[R] Lecture de fichier texte incomplète

[yop73]

Bonjour à tous,

Je cherche à tester les fonctions de lecture de fichier d'Autoit et je coince sur le fait que le fichier n'est jamais lu entièrement.
C'est rageant, j'ai regardé, testé, retesté et re et re mais ça ne veut pas.

N'étant pas au jus avec les techniques de présentation dans les forums, j'ai uploadé mes fichiers par free pour plus de facilité.
il s'agit du fichier test qui est le code Autoit ainsi que le fichier tarif où chaque nombre représente une cellule de ma listview

Le fichier n'est pas lu entièrement sans que je puisse comprendre pourquoi.
Merci à ceux qui auront le courage de m'aider.

Voici donc le lien : http://dl.free.fr/cpiPL5pwp

[PandiPanda]

Bonsoir,
j'ai pas encore regarder pour votre problème, cependant pour une meilleur lisibilité j'aurai mit ceci;

► Afficher le texte

Code : Tout sélectionner

Func LectureFichierTarif()   ; Lecture du contenu du fichier des tarifs de location
    Dim $Item[21]

    $file = FileOpen("Tarif.txt", 0)  ; J'ouvre le fichier

    Dim $categorie[17]=["Ski très bon niveau |","Ski bon niveau |","Ski niveau moyen, Surf Miniski |","Ski Initiation |","Chaussure Ski adulte |", _
    "Ski compétition et Surf Junior |","Ski junior de 140 à 160cm |","Ski enfant < 140cm |","Chaussure Ski > 38 |", _
    "Chaussure Ski Junior du 34 au 38 |","Chaussure Ski < 34 |","Ski de fond |","Chaussure fond seule |","Casque |", _
    "Bâtons (paire) |","Raquettes |","Luge |"]

    If $file = -1 Then  ; On vérifie si le fichier est présent
        MsgBox(0, "Error", "Unable to open file.")
        Exit
    Else
        For $i = 1 to UBound($categorie)  ;Pour chacune des lignes du tarif on transfère les données dans Item[$I]
            $ligne = FileReadLine($file)
            For $A = 1 to 14       ; lecture des lignes du fichier une par une
                If @error = -1 Then ExitLoop  ; A la fin du fichier on sort de la boucle
                $ligne = $ligne & " | " & FileReadLine($file)
            Next
            $ligne=$categorie[$i-1]&$ligne    ; Ecriture de la première colonne du listview
            $item[$i] = GUICtrlCreateListViewItem($ligne, $listTabTarifs)
            $ligne  = ""
        Next
    EndIf
    FileClose($file)
EndFunc

à la place de votre fonction actuelle.
C'est juste un détail, votre code était bon, c'est juste que je prefere avoir une meilleur lisibilité

[mikell]

165 lignes dans "Tarif.txt", 165 valeurs => 165 cellules remplies dans la listview, pour moi ça marche

[PandiPanda]

A vrai dire pour moi aussi ca marche ... pour remplir tout le tableau, il faudrait 255 valeurs [17*15]

[mikell]

heu... donc 255 lignes dans le tarif, non ?

[yop73]

Merci de vos réponses,

Une mention spéciale pour PandiPanda qui a rapidement compris que je programme à l'instinct et non d'une manière rigoureuse.

Alors, je n'ai volontairement pas rempli le tarif en entier, mais chez moi il s'arrête environ 4 lignes (de tarif) avant la fin.

Vous dites que chez vous ça fonctionne...
Ca me fait peur.
Ma config est un PC avec un mac os qui héberge un os windows sous Vmware.
Est ce que ça peut expliquer une mauvaise lecture de mon fichier ?
Ca buguerait tout le temps quelle que soit l'appli ?
C'est pas le sujet, merci à tous

[ZDS]

Bonjour !

Ah... VMWare ! (Je bosse sur une appli qui pilote une infra VmWare via des workflows/action dans vCO, si tu connais ^^)
Sinon par rapport à ton script, je n'ai aucun souci de mon coté moi non plus (modifications mineures pour le debug mises à part ^^). Et pour la limite de 255 items dans un tableau, je ne sais pas où les gens l'ont vu, mais j'ai souvent des matrices de beaucoup plus grande taille que ça, et aucun problème (dans les 1.000 lignes/50 colonnes voir plus).

Combien de lignes contient le fichier original? Combien de caractères? et ta ligne la plus longue, combien de caractères aussi? Dans un autre registre, ça peut aussi venir de l'encodage du fichier ANSI UTF 8 16 avec ou sans BOM etc... Un caractère zarbi qui ferait planter le script? Bref, beaucoup de pistes fumeuses, mais rien de bien concluant, désolé :s

A bientôt !

[PandiPanda]

Désoler si je me suis mal fait comprendre, mais je voulais dire qu'il fallais minimum 255[15*17] valeurs pour remplir le tableau "completement".

[yop73]

Il semble que j'ai trouvé une solution à ce problème en rapatriant le fichier tarif.text dans le même répertoire que l'exe.
Je n'ai pas le début d'une raison logique, mais...... le fait est que ça fonctionne.

Merci à vous tous.