Page 1 sur 1
[R] Pb avec _StringToArray2D()
Posté : ven. 13 nov. 2015 11:31
par 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
Re: [..] Pb avec _StringToArray2D()
Posté : ven. 13 nov. 2015 14:12
par 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
Re: [..] Pb avec _StringToArray2D()
Posté : ven. 13 nov. 2015 14:42
par 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
Re: [..] Pb avec _StringToArray2D()
Posté : ven. 13 nov. 2015 22:13
par 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
Re: [..] Pb avec _StringToArray2D()
Posté : lun. 16 nov. 2015 12:52
par 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
Re: [..] Pb avec _StringToArray2D()
Posté : lun. 16 nov. 2015 22:58
par 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 ?
Re: [..] Pb avec _StringToArray2D()
Posté : mar. 17 nov. 2015 08:45
par 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?
Re: [..] Pb avec _StringToArray2D()
Posté : mar. 17 nov. 2015 14:06
par 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
Re: [..] Pb avec _StringToArray2D()
Posté : mar. 17 nov. 2015 15:41
par 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...
Re: [..] Pb avec _StringToArray2D()
Posté : mar. 17 nov. 2015 20:08
par mikell
Bin voilà...
Résolu alors ?
Re: [..] Pb avec _StringToArray2D()
Posté : mar. 17 nov. 2015 21:35
par Hugues
Oui, sujet résolu ^^