[R] Traitement d'un tableau vers un fichier texte

[pierrotm777]

Bonjour,

J'ai un tableau de 4 colonnes comme point de départ (pas un fichier) .
Grace à la commande ci-dessous,

Code : Tout sélectionner

_ArrayDisplay($instruction);visualisation du tableau avec les indications de route

et une fois copié dans le clip board, puis dans un fichier, le tableau est du genre:

► Afficher le texte

Code : Tout sélectionner

[0]|Prendre la direction <b>sud-ouest</b> sur <b>Broadway</b> vers <b>Chambers St</b>|34|2
[1]|Prendre la 1re à <b>gauche</b> et rester sur <b>Chambers St</b>|222|47
[2]|Tourner à <b>droite</b> sur <b>Centre St</b>|109|38
[3]|Tourner à <b>gauche</b> pour rejoindre <b>Brooklyn Bridge</b>|2137|114
[4]|Prendre la sortie en direction de <b>Adams St</b>|10|13
[5]|Tourner à <b>gauche</b> sur <b>Adams St</b>|219|30
[6]|Tourner à <b>gauche</b> sur <b>Tillary St</b>|572|67
[7]|Prendre <b>I-278 E/Bklyn-QNS Expy</b> à <b>gauche</b> vers <b>Triboro BR</b>|233|35
[8]|Prendre <b>I-278 E</b>|6688|233
[9]|Prendre la sortie <b>35</b> vers <b>I-495 E/48 St</b>|373|29
[10]|Prendre la sortie <b>35E</b> vers <b>I-495 E/Eastern Long Is/Riverhead</b>|186|12
[11]|Prendre <b>Queens Midtown Expressway Lwr Deck En</b>|763|50
[12]|Rejoindre <b>I-495 E</b> par la bretelle vers <b>Eastern Long Is</b>|5467|218
[13]|Prendre la sortie <b>22A-E</b> vers <b>Van Wyck Expy</b>|912|48
[14]|Continuer en direction de <b>I-678 N/Van Wyck Expy</b>|64|3
[15]|Rester sur la file de <b>droite</b> et suivre <b>I-678 N/Van Wyck Expy/Whitestone Bridge</b> pour rejoindre <b>I-678 N/Van Wyck Expy</b> <div style="font-size:0.9em">Continuer de suivre I-678 N</div><div style="font-size:0.9em">Route avec sections à péage</div>|10286|508
[16]|Continuer sur <b>Hutchinson River Pkwy N</b>|7113|354
[17]|Prendre la sortie <b>6</b> pour rejoindre <b>I-95 N</b> en direction de <b>New Haven</b> <div style="font-size:0.9em">Route avec sections à péage</div><div style="font-size:0.9em">Entrée sur le territoire&nbsp;: Connecticut</div>|96142|4386
[18]|Prendre la sortie <b>48</b> à <b>gauche</b> pour rejoindre <b>I-91 N</b> en direction de <b>Hartford</b>|59264|2283
[19]|Prendre la sortie <b>29</b> pour rejoindre <b>CT-15 N/US-5 N</b> en direction de <b>I-84 E/E Hartford/Boston</b>|805|41
[20]|Continuer sur <b>CT-15 N</b>|2469|111
[21]|Prendre <b>I-84 E</b> <div style="font-size:0.9em">Route avec sections à péage</div><div style="font-size:0.9em">Entrée sur le territoire&nbsp;: Massachusetts</div>|65667|2546
[22]|Prendre la sortie <b>I-90 E</b> en direction de <b>N.H. - Maine/Boston</b> <div style="font-size:0.9em">Route avec sections à péage</div>|90032|3524
[23]|Prendre la sortie <b>24A-24B-24C</b> à <b>gauche</b> pour <b>I-93 N/I-93 S</b> en direction de <b>S Station/Concord NH/Quincy</b> <div style="font-size:0.9em">Route à péage</div>|190|10
[24]|Prendre la sortie <b>24A</b> vers <b>S Station</b> <div style="font-size:0.9em">Route à péage</div>|221|15
[25]|Rester sur la file de <b>gauche</b> pour continuer vers <b>Atlantic Ave</b> et rejoindre <b>Atlantic Ave</b> <div style="font-size:0.9em">Route avec sections à péage</div>|1034|123
[26]|Rester sur la file de <b>droite</b> pour continuer vers <b>State St</b>|585|65
[27]|Tourner à <b>gauche</b> sur <b>State St</b>|634|123
[28]|Tourner légèrement à <b>gauche</b> sur <b>Tremont St</b> <div style="font-size:0.9em">Votre destination se trouvera sur la gauche</div>|113|30

Je souhaite ne récupérer que les colonnes 1 et 2.

J'ai bien essayé cela mais j'obtiens une erreur sur la dimension du tableau:

► Afficher le texte

Code : Tout sélectionner

        if IsArray($instruction) Then
            _ArrayDisplay($instruction);visualisation du tableau avec les indications de route

            For $i = 1 To $instruction[0] ; permet de lire le tableau de l'élément 1 au dernier.
                $Var = StringSplit($instruction[$i], "|") ; Ceci permet de lire chaque élément du tableau.
                $InstructionLue = $Var[2] ; On attribue la valeur de la longitude
                ; Attribution à la cellule du tableau de la chaine mise en forme.
                $instruction[$i] = $InstructionLue
            Next

            _ArrayDelete($instruction, 0) ; On supprime le nombre d'élément du tableau
            If Not _FileWriteFromArray(@ScriptDir&"\essai.txt",$instruction) Then ; Si problème à l'écriture du fichier
                MsgBox(4096, "Erreur", "Erreur d'écriture du fichier ") ; Erreur
                Exit
            EndIf
EndIf

J'aurais besoin d'un fichier final .txt avec les colonnes 1 et 2 seulement .

[sylvanie]

je ferai un gros ménage en expression régulière :

Code : Tout sélectionner

$file="tableau.html"

$hnd=FileOpen($file,0)


$contenu=FileRead($file)
$contenu=StringRegExpReplace($contenu,"([^\|]+)\|([^\|]+)\|[^|]+\|[^\|]+\x0D\x0A","$1|$2"&@CRLF)
ConsoleWrite($contenu)
 

avec tableau.html étant votre fichier input

[Tlem]

Super rapide l'expression régulière, mais après il faut quand même faire une boucle de lecture du résultat pour créer le tableau.

Deux solutions sans le RegEx :

Code : Tout sélectionner

#Include <array.au3>
#Include <File.au3>
Global $aTableauTmp

_FileReadToArray("tableau.html", $aTableauTmp)
Global $aTableau[$aTableauTmp[0]][2]
For $i = 1 to $aTableauTmp[0]
    $LineSplit = StringSplit($aTableauTmp[$i], "|")
    $aTableau[$i - 1][0] = $LineSplit[1]
    $aTableau[$i - 1][1] = $LineSplit[2]
Next
_ArrayDisplay($aTableau)

Mais dans ce cas, on ce retrouve avec une colonne inutile (la N°1).
Donc dans ce cas je préfère la solution N°2 :

Code : Tout sélectionner

#Include <array.au3>
#Include <File.au3>
Global $aTableauTmp

_FileReadToArray("tableau.html", $aTableauTmp)
Global $aTableau = $aTableauTmp

For $i = 1 to UBound($aTableauTmp) - 1
    $LineSplit = StringSplit($aTableauTmp[$i], "|")
    $aTableau[$i] = $LineSplit[2]
Next
_ArrayDisplay($aTableau)

On peut aussi remplacer les deux lignes entre le For/Next par l'utilisation direct du StringRegExpReplace afin d'obtenir seulement la partie deux du tableau que l'on attribue directement au tableau initial, sans passer par un tableau intermédiaire.
Mais bon, pour cet exemple, il faut trouver le bon Pattern.

Code : Tout sélectionner

#Include <array.au3>
#Include <File.au3>
Global $aTableau

_FileReadToArray("tableau.html", $aTableau)

For $i = 1 to UBound($aTableau) - 1
    $aTableau[$i] = StringRegExpReplace($aTableau[$i], "Le bon Pattern")
Next
_ArrayDisplay($aTableau)

[sylvanie]

Deux solutions sans le RegEx

C'est marrant, j'ai toujours l'impression que la joie que dégage l'utilisation des regexp semble proche de la saveur des épinards cuits à l'eau sans sel de la cantoche du Mercredi

[pierrotm777]

Deux solutions sans le RegEx

C'est marrant, j'ai toujours l'impression que la joie que dégage l'utilisation des regexp semble proche de la saveur des épinards cuits à l'eau sans sel de la cantoche du Mercredi

Petit, je détestai ça , mais maintenant , et à la crème , alors là !

[pierrotm777]

Mon point de départ est le tableau issu d'une copie clip board de la commande:

Code : Tout sélectionner

_ArrayDisplay($instruction);visualisation du tableau avec les indications de route

Je l'ai juste placé dans un fichier pour que vous puissiez voire sa forme!

Mon tableau est donc déjà dans la variable $instruction !

J'ai oublié de mentionner que mon fichier final doit être un fichier texte.txt (post#1 mis à jour, désolé).

[sylvanie]

ça ne change pas vraiment la donne finalement, car dans ce cas, repassez par la transformation en fichier text intermédaire (grosse méthode de faignant que je suis )

sinon, il faut reconstruire un tableau de dimension 2 et parcourrir l'initial, un peu comme dans les exemples de Tlem.

[pierrotm777]

J'ai bien essayé mais sans succé.

[Tlem]

En ce qui me concerne, le RegExp est plutôt semblable au caviar.
Il ouvre des tas de portes, il est excellent lorsqu'il est bien préparé, mais il reste toujours hors de ma portée.

@pierrotm777
Votre tableau d'origine contient-il dans l'élément zéro la dimension du tableau ?
La première colonne que vous devez récupérer, correspond bien à la numérotation des lignes par ordre croissant ?

[pierrotm777]

@Tlem
Pour le nombre d'élément , je ne sais pas.

Pour le première colonne , oui .

[pierrotm777]

En fait je réalise que mon besoin est juste d'écrire le tableau dans un fichier texte .

J'ai donc essayé cette fonction mais elle me génère une erreur de dimension:

Code : Tout sélectionner

Func _CreateTextList ( );creation d'une liste simple
    Dim $ArrayToText[UBound ( $instruction )]
    $TxtFilePath = @ScriptDir & "\Texte.txt"
    For $_i = 1 To UBound ( $instruction ) -1
        $ArrayToText[$_I] = $instruction[$_i]
    Next
    _FileWriteFromArray ( $TxtFilePath,$ArrayToText, 1 )
EndFunc;fin ajout creation fichier liste

[Tlem]

Hé bien, dans ce cas, lisez avec une boucle la première colonne de votre tableau $instruction et générez votre fichier.

Code : Tout sélectionner

; $instruction = Tableau d'origine à quatre colonne et X lignes

Local $FileTmp
For $i = 1 To UBound($instruction) - 1
    $FileTmp &= $FileTmp & $i & "|" & $instruction[$i][1] & @CRLF ; Format du fichier : Index | Instruction
Next

FileWrite("FichierDeSortie.txt", $FileTmp)

Si le format de sortie ne vous convient pas, vous n'avez qu'à adapter.

[pierrotm777]

Merci de votre aide, mais jobtiens une erreur , error allocating memory'.

Une idée ?

[Tlem]

Cela fait suffisamment longtemps que vous utilisez ce forum, pour savoir qu'en cas de problème sur un script, le résultat d'une erreur ne suffit généralement pas à aider.

[pierrotm777]

He bien, voici le programme presque complet:

► Afficher le texte

Code : Tout sélectionner

#Include <GuiListView.au3>
#Include <GuiListBox.au3>
#include <Google Maps.au3>
#Include <File.au3>
#Include <array.au3>
Global Const $EN_SETFOCUS = 0x100
Dim $msg, $gmap, $distance, $duration
Global $main_gui, $set_view_button, $set_view_input, $zoom_view_button, $zoom_view_input, $add_marker_button, $add_marker_input

; Setup Main GUI
$main_gui = GUICreate("Google Maps Example", 800, 600, -1, -1, BitOR($WS_SIZEBOX, $WS_MAXIMIZEBOX))
$gmap_ctrl = _GUICtrlGoogleMap_Create($gmap, 0, 10, 800, 430, "Newyork", 12, True, 0, 2, 1, 1);avec #include <Google Maps.au3>
;$gmap_ctrl = _GUICtrlGoogleMap_Create($gmap, 0, 10, 800, 430, "Newyork", 12, True);avec #include <Google MapsV2.au3>
GUICtrlSetResizing($gmap_ctrl, $GUI_DOCKTOP)

$add_route_button = GUICtrlCreateButton("Add Route", 10, 485, 80, 20)
GUICtrlSetResizing(-1, $GUI_DOCKHCENTER)
$get_route_button = GUICtrlCreateButton("Route Info", 10, 505, 80, 20)
GUICtrlSetResizing(-1, $GUI_DOCKHCENTER)
$close_button = GUICtrlCreateButton("Close (Esc)", 705, 550, 80, 20)
GUICtrlSetResizing(-1, $GUI_DOCKHCENTER)
$LatLonLabels = GUICtrlCreateLabel(" *** ",320,447,530,20)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
$start_route_input = GUICtrlCreateInput("Newyork", 130, 485, 180, 20)
GUICtrlSetResizing(-1, $GUI_DOCKHCENTER)
GUICtrlCreateLabel("to", 100, 505, 20, 20)
$end_route_input = GUICtrlCreateInput("Boston", 130, 505, 180, 20)
GUICtrlSetResizing(-1, $GUI_DOCKHCENTER)
GUICtrlCreateLabel("via", 100, 525, 30, 20)
$travel_mode_list = GUICtrlCreateList("", 130, 525, 100, 50, BitOR($WS_BORDER, $WS_VSCROLL))
GUICtrlSetData(-1, "Driving|Walking|Bicyling", "Driving")
GUICtrlCreateLabel("Distance (m)", 320, 485, 80, 20)
$distance_input = GUICtrlCreateInput("", 390, 485, 50, 20)
GUICtrlCreateLabel("Duration (sec)", 320, 505, 80, 20)
$duration_input = GUICtrlCreateInput("", 390, 505, 50, 20)


; Show Main GUI
GUISetState(@SW_SHOW)

GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE or $msg = $close_button Then
        ExitLoop
    EndIf

    if $msg = $get_route_button Then
        $instruction = _GUICtrlGoogleMap_GetRoute($gmap, GUICtrlRead($start_route_input), GUICtrlRead($end_route_input), $distance, $duration, _GUICtrlListBox_GetCurSel($travel_mode_list))
        GUICtrlSetData($distance_input, $distance)
        GUICtrlSetData($duration_input, $duration)

        _CreateTextList ( )
    EndIf

    if $msg = $add_route_button Then
        _GUICtrlGoogleMap_AddRoute($gmap, GUICtrlRead($start_route_input), GUICtrlRead($end_route_input),_GUICtrlListBox_GetCurSel($travel_mode_list))
        $StartLabel = _GUICtrlGoogleMap_GetLatLng(GUICtrlRead($start_route_input))
        $EndLabel = _GUICtrlGoogleMap_GetLatLng(GUICtrlRead($end_route_input))
        GuiCtrlSetData($LatLonLabels, "[ LatLon Star: "&$StartLabel[0]&","&$StartLabel[1] &" / LatLon End: "&$EndLabel[0]&","&$EndLabel[1]&" ]")
    EndIf

Wend

Func _CreateTextList ( );creation d'une liste simple
    Local $FileTmp
    For $i = 1 To UBound($instruction) - 1
        $FileTmp &= $FileTmp & $i & "|" & $instruction[$i][1] & @CRLF ; Format du fichier : Index | Instruction
    Next
    FileWrite(@ScriptDir&"\FichierDeSortie.txt", $FileTmp)
EndFunc;fin ajout creation fichier liste

Func MY_WM_COMMAND($hWnd, $msg, $wParam, $lParam)
    Local $nNotifyCode = BitShift($wParam, 16) ; high word
    Local $nID = BitAND($wParam, 0xFFFF) ; low word
    Local $hCtrl = $lParam

    Switch $nID
        Case $set_view_input
            Switch $nNotifyCode
                Case $EN_SETFOCUS
                    GUICtrlSetState($set_view_button, $GUI_DEFBUTTON)
            EndSwitch
        Case $zoom_view_input
            Switch $nNotifyCode
                Case $EN_SETFOCUS
                    GUICtrlSetState($zoom_view_button, $GUI_DEFBUTTON)
            EndSwitch
        Case $add_marker_input
            Switch $nNotifyCode
                Case $EN_SETFOCUS
                    GUICtrlSetState($add_marker_button, $GUI_DEFBUTTON)
            EndSwitch
    EndSwitch

    Return $GUI_RUNDEFMSG
EndFunc   ;==>MY_WM_COMMAND

Je joinds l'UDF Google Maps.au3

Appuyer une fois sur le bouton 'Add Route',
Puis,si vous appuyez sur le bouton 'Route Info' , j'obtiens cette même erreur.
(voir fonction _CreateTextList() )

[Tlem]

La prochaine fois, un zip avec tout le matos sera plus simple.

En ce qui concerne l'erreur, autant pour moi.
Corrigez cette ligne :

Code : Tout sélectionner

$FileTmp &= $FileTmp & $i & "|" & $instruction[$i][0] & @CRLF

par celle-ci

Code : Tout sélectionner

$FileTmp &= $i & "|" & $instruction[$i][0] & @CRLF

[pierrotm777]

Merci Tlem, cela fonctionne parfaitement.

Et si jous souhaite garder le tableau complet dans le fichier texte ?

[Tlem]

Et bien tout simplement, utilisez _FileWriteFromArray, ou alors adaptez mon code pour avoir toutes les valeurs de ligne du tableau.

Code : Tout sélectionner

$FileTmp &= $i & "|" & $instruction[$i][0] & "|" & $instruction[$i][1] &  "|" & $instruction[$i][2] &  "|" & $instruction[$i][3] & @CRLF

[pierrotm777]

Oui j'avais bien penser à adapter votre fonction de la sorte.

Mais j'aurais voulu comprendre pourquoi _FileWriteFromArray ne fonctionne pas comme je le pense.
J'ai essayé de remplacer la fonction _CreateTextList() par:

Code : Tout sélectionner

_FileWriteFromArray(@ScriptDir&"\FichierDeSortie.txt",$instruction)

Mais j'obtiens une erreur de dimension du tableau.

[Tlem]

Après avoir jeté un oeil sur le code de la fonction _FileWriteFromArray, il est normal que celle-ci ne fonctionne pas comme vous le pensez, car elle est conçue pour traiter uniquement les tableaux à une dimension.

Donc il ne vous reste que le code que je vous ai fait.