[R] Pb avec _StringToArray2D()

[Hugues]

Bonjour,

J'utilise la fonction _StringToArray2D() dans une boucle pour lire des fichiers. Cependant, la fonction ne met pas en forme un fichier alors que si je lis le fichier tout seul, la fonction le met bien en forme...

Si quelqu'un a une idée... Merci par avance.

► Afficher le texte

Code : Tout sélectionner

Func _CaulkingHistory()
    $ExcelRowStart = 3
    Redim $TableauSortie[Ubound($aDummyListView1, 1)][60]

    For $i = 0 To UBound($aDummyListView1) - 1
        Global $DummyFile = $aDummyListView1[$i][3]
       _ReadFile($DummyFile, $i)
       _GUICtrlStatusBar_SetText($hStatus, "Lecture du fichier " & $aDummyListView1[$i][3] & " - fichier #" & $i & "/" & UBound($aDummyListView1), 2)
    Next
    _GUICtrlStatusBar_SetText($hStatus, "Données importées.", 2)
    _ArrayDisplay($TableauSortie)
    ;_WriteIntoExcel()
EndFunc

Func _ReadFile($DummyFile, $i)
    Local $hFileToRead2 = FileRead($DummyFile)
    $aReturns2 = _StringToArray2D($hFileToRead2, @CRLF, ";", 1)

    Local $iIndexaReturns2 = _ArraySearch($aReturns2, "")
    $iIndexaReturns2 = Int($iIndexaReturns2)
    Local $sRange2 = $iIndexaReturns2 & "-" & UBound($aReturns2) - 1
    _ArrayDelete($aReturns2, $sRange2)
    ;_ArrayDisplay($aReturns2)

    If StringInStr($aReturns2[0][0], "FILE") Then
        $aReturns2[0][0] = StringReplace($aReturns2[1][0], " ", "")
        If @error Then MsgBox(16, "XPress-CurveViewer", "Pas de données pour tracer une courbe.", -1, $MainGUI)
        $aSplit = StringSplit($aReturns2[0][0], "'")
        $aSplitDateTime = StringSplit($aReturns2[2][0], " ")
        $aBis = 10
    Else
        $aReturns2[0][0] = StringReplace($aReturns2[0][0], " ", "")
        If @error Then MsgBox(16, "XPress-CurveViewer", "Pas de données pour tracer une courbe.", -1, $MainGUI)
        $aSplit = StringSplit($aReturns2[0][0], "'")
        $aSplitDateTime = StringSplit($aReturns2[1][0], " ")
        $aBis = 5
    EndIf

    $TableauSortie[$i][1] = UBound($aReturns2)
    $TableauSortie[$i][2] = StringReplace($aDummyListView1[$i][0], "'", "")
    $TableauSortie[$i][3] = $aSplit[1]
    $TableauSortie[$i][4] = $aSplit[2]
    $TableauSortie[$i][5] = StringReplace($aSplitDateTime[1], "'", "")
    $TableauSortie[$i][6] = StringReplace($aSplitDateTime[2], "'", "")

    For $a = $aBis To UBound($aReturns2) - 1
        $TableauSortie[$i][$a + 2] = StringReplace(StringReplace(StringReplace(StringReplace($aReturns2[$a][0], "'", ""), "=", ""), "nicht auswertbar", ""), " ", "")
        $TableauSortie[$i][0] &= StringReplace(StringReplace(StringReplace(StringReplace($aReturns2[$a][0], "'", ""), "=", ""), "nicht auswertbar", ""), " ", "")

        If StringInStr($aReturns2[$a][0], "nicht") Then
            $TableauSortie[$i][$a + (UBound($aReturns2) - 3)] = "n.a"
        Else
            $TableauSortie[$i][$a + (UBound($aReturns2) - 3)] = $aReturns2[$a][1]
        EndIf
    Next
    FileClose($hFileToRead2)
    $hFileToRead2 = ""
EndFunc


 

[mikell]

Code : Tout sélectionner

    Local $hFileToRead2 = FileRead($DummyFile)
    $aReturns2 = _StringToArray2D($hFileToRead2, @CRLF, ";", 1)

Pourquoi ne pas utiliser directement _FileReadToArray ?
[Remarque accessoire] tu devrais éviter les déclarations de variables en Global dans des fonctions

[Hugues]

Je n'utilise pas la fonction _FileReadToArray() car je veux créer un tableau en plusieurs dimensions pour récupérer les valeurs, or _FileReadToArray() ne me génère pas de tableau 2D (sûrement que je dois mal l'utiliser).

Exemple de fichier à lire:

http://autoitscript.fr/forum/viewtopic. ... a9dd2c5379

[mikell]

A vue de nez (parce qu'on ne peut pas tester ton code) je dirais que le problème ne vient pas de _StringToArray2D
Je commencerais par enlever le Global de "Global $DummyFile = ..." et j'essaierais de débugger pas à pas avec des _ArrayDisplay ou autres

[Hugues]

Je ne comprends pas... J'ai réécris mon code et j'ai toujours le même défaut... La fonction _StringToArray2D ne transforme pas mon fichier...

► Afficher le texte

Code : Tout sélectionner

#include <ArrayEx.au3>
#include <File.au3>
#include <IE.au3>

Global  $File = @ScriptDir
Global $aFileRead, $aTableau1, $aFileList, $aReturns
Global $TableauSortie[0][15]

_FONCTION_TEST()

Func _FONCTION_TEST()
    $aFileList = _FileListToArray($File, "*", 1)
    For $i = 1 To UBound($aFileList) - 1
        $hFileToRead = FileRead($File & $aFileList[$i])
        $hFileToRead = StringRegExpReplace($hFileToRead, "' '", " ")
        $hFileToRead = StringRegExpReplace($hFileToRead, "'", "")
        $hFileToRead = StringRegExpReplace($hFileToRead, "=", "")
        $aReturns = _StringToArray2D($hFileToRead, @CRLF, ";", 1)
        $iIndex = _ArraySearch($aReturns, "")
        $iIndex = Int($iIndex)
        $sRange = $iIndex & "-" & UBound($aReturns) - 1
        _ArrayDelete($aReturns, $sRange)
        $sFileName = $aFileList[$i]
        _FileToGlobalFile($sFileName, $i)
    Next
    _ArraySort($TableauSortie, 0)
    _ArrayDisplay($TableauSortie)
EndFunc

Func _ReWorkFile()
    _ArrayDelete($aReturns, "0;6-9")
EndFunc

Func _FileToGlobalFile($sFileName ,$i)
    ;$i = 1 au départ....
    If StringInStr($aReturns[0][0], "FILE") Then _ReWorkFile()
    ;_ArrayDisplay($aReturns)
    ;ConsoleWrite(UBound($aReturns) & @CRLF)
    Redim $TableauSortie[Ubound($aFileList, 1)][55]                                              ;-> On redimensionne $TableauSortie à chaque lecture de nouveau fichier

    If @error Then MsgBox(16, "", "Pas de données.")
    $aSplit = StringSplit($aReturns[0][0], " ")                                                  ;-> Ici on "Split" pour récupérer les données utiles.
    $aSplitDateTime = StringSplit($aReturns[1][0], " ")                                          ;...
    $TableauSortie[$i-1][1] = UBound($aReturns)                                                  ;-> Nombre d'items
    $TableauSortie[$i-1][2] = $sFileName                                                         ;-> Nom de fichier
    $TableauSortie[$i-1][3] = $aSplit[1] & " " & $aSplit[2]                                      ;-> Point de mesure

    If StringInStr($aSplit[1], "Kal") Then                                                       ;-> Référence (avec conditionnelle)
        $TableauSortie[$i-1][4] = $aSplit[2]                                                     ;...
    Else                                                                                                                                                                                                   ;...
        $TableauSortie[$i-1][4] = $aSplit[3]                                                     ;...
    EndIf                                                                                                                                                                                                                  ;...

    $TableauSortie[$i-1][5] = $aSplitDateTime[1]                                                 ;-> Date
    $TableauSortie[$i-1][6] = $aSplitDateTime[2]                                                 ;-> Heure

    For $a = 5 To UBound($aReturns) - 1
        $TableauSortie[$i-1][0] &= StringReplace(StringReplace($aReturns[$a][0], "nicht auswertbar", ""), " ", "")
        $TableauSortie[$i-1][$a + 2] = StringReplace(StringReplace($aReturns[$a][0], "nicht auswertbar", ""), " ", "")

        If StringInStr($aReturns[$a][0], "nicht") Then
            $TableauSortie[$i-1][$a + (UBound($aReturns) - 3)] = "n.a"
        Else
            $TableauSortie[$i-1][$a + (UBound($aReturns) - 3)] = $aReturns[$a][1]
        EndIf
    Next
EndFunc
 

[mikell]

J'ai testé ce code sur les 2 premiers textes mentionnés dans l'autre topic
Il marche bien après correction d'une petite c... de syntaxe

► Afficher le texte

Code : Tout sélectionner

#include <ArrayEx.au3>
#include <File.au3>
#include <IE.au3>

Global  $File = @ScriptDir
Global $aFileRead, $aTableau1, $aFileList, $aReturns
Global $TableauSortie[0][15]

_FONCTION_TEST()

Func _FONCTION_TEST()
    $aFileList = _FileListToArray($File, "*.txt", 1)
    _ArrayDisplay($aFileList)
    For $i = 1 To UBound($aFileList) - 1
        $hFileToRead = FileRead($File & "\" & $aFileList[$i])
        $hFileToRead = StringRegExpReplace($hFileToRead, "' '", " ")
        $hFileToRead = StringRegExpReplace($hFileToRead, "'", "")
        $hFileToRead = StringRegExpReplace($hFileToRead, "=", "")
        $aReturns = _StringToArray2D($hFileToRead, @CRLF, ";", 1)
    _ArrayDisplay($aReturns)
        $iIndex = _ArraySearch($aReturns, "")
        $iIndex = Int($iIndex)
        $sRange = $iIndex & "-" & UBound($aReturns) - 1
        _ArrayDelete($aReturns, $sRange)
        $sFileName = $aFileList[$i]
        _FileToGlobalFile($sFileName, $i)
    Next
    _ArraySort($TableauSortie, 0)
    _ArrayDisplay($TableauSortie)
EndFunc

Func _ReWorkFile()
    _ArrayDelete($aReturns, "0;6-9")
EndFunc

Func _FileToGlobalFile($sFileName ,$i)
    ;$i = 1 au départ....
    If StringInStr($aReturns[0][0], "FILE") Then _ReWorkFile()
    ;_ArrayDisplay($aReturns)
    ;ConsoleWrite(UBound($aReturns) & @CRLF)
    Redim $TableauSortie[Ubound($aFileList, 1)][55]                                              ;-> On redimensionne $TableauSortie à chaque lecture de nouveau fichier

    If @error Then MsgBox(16, "", "Pas de données.")
    $aSplit = StringSplit($aReturns[0][0], " ")                                                  ;-> Ici on "Split" pour récupérer les données utiles.
    $aSplitDateTime = StringSplit($aReturns[1][0], " ")                                          ;...
    $TableauSortie[$i-1][1] = UBound($aReturns)                                                  ;-> Nombre d'items
    $TableauSortie[$i-1][2] = $sFileName                                                         ;-> Nom de fichier
    $TableauSortie[$i-1][3] = $aSplit[1] & " " & $aSplit[2]                                      ;-> Point de mesure

    If StringInStr($aSplit[1], "Kal") Then                                                       ;-> Référence (avec conditionnelle)
        $TableauSortie[$i-1][4] = $aSplit[2]                                                     ;...
    Else                                                                                                                                                                                                   ;...
        $TableauSortie[$i-1][4] = $aSplit[3]                                                     ;...
    EndIf                                                                                                                                                                                                                  ;...

    $TableauSortie[$i-1][5] = $aSplitDateTime[1]                                                 ;-> Date
    $TableauSortie[$i-1][6] = $aSplitDateTime[2]                                                 ;-> Heure

    For $a = 5 To UBound($aReturns) - 1
        $TableauSortie[$i-1][0] &= StringReplace(StringReplace($aReturns[$a][0], "nicht auswertbar", ""), " ", "")
        $TableauSortie[$i-1][$a + 2] = StringReplace(StringReplace($aReturns[$a][0], "nicht auswertbar", ""), " ", "")

        If StringInStr($aReturns[$a][0], "nicht") Then
            $TableauSortie[$i-1][$a + (UBound($aReturns) - 3)] = "n.a"
        Else
            $TableauSortie[$i-1][$a + (UBound($aReturns) - 3)] = $aReturns[$a][1]
        EndIf
    Next
EndFunc
 

Donc le problème c'est certainement un petit truc, une bête histoire de chemin ou autre
T'as pas fait la débugation par étapes conseillée, eh ?

[Hugues]

Arfff je crois que je viens de trouver...

Dans mon fichier qui "plante", je n'ai pas les ";"...

Fichier OK: 'Sant ='; 1.49 ;'mm NIO'
Fichier NOK: 'Sant =' 1,00 'mm IO'

Ma question est comment je peux gérer l'erreur sans que cela me fasse planter l'application?

[mikell]

Fais une bonne gestion d'erreur à l'endroit précis du code où le résultat retourné peut provoquer un plantage
Par exemple si sur le fichier merdique StringToArray2D retourne une array 1D tu peux tester le UBound(...,2) - ou autre chose dans le genre

[Hugues]

Yes, j'étais entrain de faire cette méthode ^^,

Code : Tout sélectionner

If UBound($aReturns, 2) < 2 Then
        $ScrapFile &= $aDummyListView1[$i][0]
        Return
 EndIf

Je sors de ma boucle dès que j'ai un fichier "corrompu", je stocke son nom et je le ou les affiche dans un label...

[mikell]

Bin voilà... Résolu alors ?

[Hugues]

Oui, sujet résolu ^^