[...] Copie: écraser le plus lourd; modifier *.txt

[Aquhydro]

Bonjour, j'aurais besoin de deux petits script qui ne doivent pas être aussi complexe que ceux que j'ai demandé jusqu'a présent, le premier permettrait de, lors d'une copie avec écrasement de fichier, choisir automatiquement le fichier le plus lourds pour écraser l'autre.
Du style si je copie dans Mes Documents 1.txt et qu'il y avait déjà 1.txt, et bien si ils font tout deux 1ko, s'en fout on copie pas, si y'en a un qui fait 1 et l'autre qui fait 2ko, et bien on concerve celui qui en fait 2.


Le second script qu'il me faudrait servirais à changer un fichier de ce type :

1.txt

(698 Octets) Téléchargé 83 fois

En fichier (avec le même nom, ici je l'ai modifié pour la lisibilité) comme cela :

2.txt

(129 Octets) Téléchargé 70 fois

Les données y ont juste étés déplacées. Si il est possible accessoirement de supprimer l'écriture scientifique (type 1.980E+03 par une écriture classique type : 0.00198 ça serait parfait, mais sinon, ça serait déjà très bien. ) La première ligne de chiffre sera systématiquement 0 ainsi que le premier chiffre de la seconde.


Merci
Aquhydro

[mikell]

Code : Tout sélectionner

$source = @scriptdir & "\1.txt"
$dest = @MyDocumentsDir & "\1.txt"
If FileGetSize($source) > FileGetSize($dest) Then FileCopy ( $source, $dest, 1)

Heu tu sais, si tu dois te mettre à utiliser autoit, faudrait potasser un peu le fichier d'aide et les tutoriels parce que ce code-là est *hyper* basique

[Aquhydro]

Non, tu dois avoir mal compris, là j'ai deux codes, oui, certes, le premier est basique, mais le second est une remise en forme complète, c'est à dire que j'ai 700 fichier *.txt nommés 1.txt, 2.txt, 3.txt, et que je veux qu'ils aient après le même noms, mais je veux qu'ils ne soient plus comme ça :

► Afficher le texte

Code : Tout sélectionner

 Grid size is  510 by  510
 The max aperture is  1.980E+03
 The min aperture is  1.150E+01
 The AVG aperture is  [i]8.053E+02[/i] The  is  0.000E+00 The degradation index is    0.0E+00
 Max cell perm=  1.000E+07 md
 i=   2000 f= 1.900 kx= 1.192E-01 md k-err= Infinity big= 3.62E-08 bigr= 6.49E-01
 i=   4000 f= 1.900 kx= 1.192E-01 md k-err= 5.85E-07 big= 3.08E-08 bigr= 6.49E-01
 i=   2000 f= 1.900 ky= 9.665E-02 md k-err= Infinity big= 9.47E-08 bigr= 1.74E+00
 i=   4000 f= 1.900 ky= 9.665E-02 md k-err= 1.04E-06 big= 9.47E-08 bigr= 1.74E+00
 emergent threshold= 0.00E+00
    0 patches closed out of 1769
 kx= 1.1923E-01 md ( 1.1686E-01)
 ky= 9.6646E-02 md ( 1.0015E-01)
 

mais comme ceci :

► Afficher le texte

Code : Tout sélectionner

[u]Years      Avg app     Fais planter   Moyenne  
     1       1       1       1      
years    m                  
0   0   0   0   
1[/u]   [i]805.3[/i]    0   4.00

Sachant que ce qui est souligné doit etre fixe dans les nouveau fichiers, ce qui est en italique est vient du fichier originel, et le 0 et le 4 je les rajouterais après.
Alors j'ai trouvé une moitié de solution : Je crée d'avance 700 fichier txt identiques numérotés de 1 à 700, qui s'appellerais 1 (1).txt jusqu'a 1 (700).txt, avec déjà la partie fixe, il faut juste que j'aprenne à copier automatiquement pour le 1.txt le 8.053E+2, si je pouvais le passer en écriture classique ça sera passer, et le coller au bon endroit dans le fichier 1 (1).txt. Ensuite, que ça me fasse la même opération avec le 2.txt et le 1 (2).txt, etc...

[PandiPanda]

Pour la "Notation scientifique" j'ai bricoler quelque chose comme ceci;

► Afficher le textela fonction

Code : Tout sélectionner

#cs ScientifiqueExpression($text)
    @Param :
        $text : mon texte contenant les différentes expressions scientifiques
    @Return:
        $array[$n][2] : un tableau 2 dimension de n expression
            ~~~> $array[$n][0] => expressions
            ~~~> $array[$n][1] => resultats
    @Error:
        à voir ...
#ce
Func ScientifiqueExpression($text)
    Local $expressions = StringRegExp($text,"(?s)(?i)\d*\.\d*E.\d*",3)
    Local $responses[UBound($expressions)][2]
    For $i = 0 To UBound($expressions)-1
        $responses[$i][0] = $expressions[$i]
        $responses[$i][1] = Number($expressions[$i])
        If StringRegExp($responses[$i][1],"(?i)e",0) Then
            Local $cpt = 0
            Local $exp = StringRegExpReplace($responses[$i][1],"(?i).*e-(\d*)","$1")
            Local $nmbr = StringRegExpReplace($responses[$i][1],"(?i)(\d*\.\d*)e.*","$1")
            While ( ($cpt < $exp) And Not StringRegExp($nmbr,"0\.",0) )
                $nmbr = Number($nmbr)/10
                $cpt += 1
            WEnd
            If StringRegExp($nmbr,"0\.",0) Then
                $cpt = $exp - $cpt
                Local $str = ""
                For $j = 1 To $cpt
                    $str &= "0"
                Next
                $responses[$i][1] = StringRegExpReplace($nmbr,"0\.","0."&$str)
            EndIf
        EndIf
    Next
    Return $responses
EndFunc

► Afficher le texteexemple de code

Code : Tout sélectionner

#Include <Array.au3>

Local $str = "The max aperture is  1.980E+03"&@CRLF&"Infinity big= 3.62E-08"&@CRLF&'k-err= 1.04E-06'
;~ Local $str = FileRead(@ScriptDir&"\1.txt")
Local $array = ScientifiqueExpression($str)
_ArrayDisplay($array)

[mikell]

@Panda
Tu pourrais faire beaucoup plus court en utilisant StringFormat

Code : Tout sélectionner

$n = "9.6646E-02"
msgbox(0,"", StringFormat ('%f', $n) )

Sinon avec l'exemple du début :

► Afficher le texte

Code : Tout sélectionner

$1 = "Temps" &@TAB& "Max" &@TAB& "Min" &@TAB& "avg"&@TAB& "mcp" &@TAB& "kx" &@TAB& "ky"
$2 = "Ma" &@TAB& "m" &@TAB& "m" &@TAB& "m" &@TAB& "da" &@TAB& "md" &@TAB& "md"
$3 = "0" &@TAB& "0" &@TAB& "0" &@TAB& "0" &@TAB& "0" &@TAB& "0" &@TAB& "0"
$4 = "0" &@TAB

$file = FileOpen("1.txt", 0)
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    If StringInStr($line, "aperture") OR _ 
        StringInStr($line, "cell perm") OR _ 
        StringLeft($line, 3)=" kx" OR _ 
        StringLeft($line, 3)=" ky" Then $4 &= _zeregexp($line)
Wend
FileClose($file)
FileWrite(@scriptdir & "\test.txt", $1 &@crlf& $2 &@crlf& $3 &@crlf& $4)

Func _zeregexp($txt)
  Local $pattern = '(\d\.\d{3,4}E[\+\-]\d{2})'
  Return StringRegExpReplace($txt, '.+?'&$pattern& '.*', "$1") &@TAB
EndFunc
 

[PandiPanda]

Le probleme avec StringFormat() est que ca fait un arrondissement "implicite"
par exemple ceci;

Code : Tout sélectionner

MsgBox(0,"",StringFormat("%f","5.85E-07"))
; reponse attendue : 5.85E-07|0.000000585

[mikell]

OK mais c'est juste des paramètres à ajuster ça

Code : Tout sélectionner

MsgBox(0,"",StringFormat("%.09f","5.85E-07"))
; reponse attendue : 5.85E-07|0.000000585

Pour le faire bien propre, l'idéal serait de paramétrer en utilisant le nombre de décimales et l'exposant

Code : Tout sélectionner

$n = "5.85E-07"
$ecart = StringLen(StringRegExpReplace($n, '.*\.(.*?)E.*', "$1") )
If StringInStr($n, "-") Then 
    $dec = StringRight($n, 2)+$ecart
Else
    $dec = 2
EndIf
MsgBox(0,"",StringFormat("%." & $dec & "f", $n))

[Aquhydro]

Alors pour l'arrondissement implicite, ça me gêne pas vraiment à vrai dire, par contre, le code que tu as fait va t'il fonctionner aussi pour 2.txt => 2.txt,
3.txt=> etc...
Ou seulement pour 1?

[mikell]

Si tous les fichiers ont la même structure, ça doit marcher pour tous
Mon script est juste un test mais tu peux faire une boucle For sur le n° des fichiers en lecture et en écriture : 1.txt, 2.txt, 3.txt, etc et test1.txt, test2.txt, etc (par exemple)
Il faut juste faire attention aux possibilités de forme des nombres à récupérer (nombre de chiffres en décimal, etc) et si nécessaire ajuster le regexp en conséquence, là il relève les nombres de la forme x.xxxE+xx ou x.xxxE-xx , avec 3 ou 4 décimales

Pour l'arrondissement le Panda a raison, StringFormat sans paramètres ça arrondit sévère, vaut mieux utiliser mon script corrigé

[Aquhydro]

Si j'ai bien compris mon code doit être le suivant :

Code : Tout sélectionner

[spoiler=]$n = 1

While 1
$1 = "Temps" &@TAB& "Avg" &@TAB& "Moy" &@TAB& "kx" &@TAB& "ky" &@TAB& "Plante"
$2 = "Years" &@TAB& "m" &@TAB& &@SPACE& &@TAB& "md" &@TAB& "md" &@TAB&  &@SPACE&
$3 = "0" &@TAB& "0" &@TAB& "0" &@TAB& "0" &@TAB& "0" &@TAB& "0" 
$4= "0" &@TAB& 
Sleep(500)

$file = FileOpen($n & ".txt", 0)
Sleep(500)

While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    If StringInStr($line, "aperture") OR _    ; Tout ça je comprend pas, ce que je voudrais c'est juste que après mon dernier" &@TAB& " sur la ligne 4 il aille copier ce qui était après : " The AVG aperture is " donc : un chiffre au format x.xxxE+ou-xx, qu'après ça rajoute un tab et un espace, un second tab, puis ce qui est écris après :  "kx=" soit un chiffre au format x.xxxE+ou-xx, et ce qu'il y a après "ky=" soit un chiffre au même format. en passant de la forme scientifique à normale, et là non plus je n'en ai pas compris le fonctionnement. Serait il possible de me montrer comment l'intégrer à mon script final? 
        StringInStr($line, "cell perm") OR _ 
        StringLeft($line, 3)=" kx" OR _ 
        StringLeft($line, 3)=" ky" Then $4 &= _zeregexp($line)
Wend
FileClose($file)
FileWrite(@scriptdir & "\test.txt", $1 &@crlf& $2 &@crlf& $3 &@crlf& $4) ; Qu'est ce que fait cette ligne? Enregistre t'elle sous le nom test.txt? Si je veux l'entregistrer sous "*.txt" faut il seulement que je remplace "\test.txt" par "\$n.txt"? Et si je veux que ça l'enregistre dans le dossier nommé 1 à l'interieur du dossier ou est le script faut il mettre "\1\$n.txt"? 


Func _zeregexp($txt)
  Local $pattern = '(\d\.\d{3,4}E[\+\-]\d{2})'
  Return StringRegExpReplace($txt, '.+?'&$pattern& '.*', "$1") &@TAB ; Je ne comprend pas toutes ces dernières lignes
Sleep(500)
$n += 1 
Wend
EndFunc[/spoiler]

Merci de votre aide.

[mikell]

Pour passer de la forme scientifique à normale, on peut mettre ça dans une fonction
Admettons pour l'exemple que
- il y a 700 fichiers à traiter
- les fichiers sources s'appellent 1.txt, 2.txt, etc, et ont tous la même structure que le fichier "1.txt" de ton 1er post
- les fichiers destinations s'appelleront 1.txt, 2.txt, etc, et on les met dans un dossier nommé "test"
Le tri des différentes lignes à traiter se fait dans la condition "If String... etc"
Voilà ce que ça donnerait

► Afficher le texte

Code : Tout sélectionner

For $i = 1 to 700

$1 = "Temps" &@TAB& "Max" &@TAB& "Min" &@TAB& "avg"&@TAB& "mcp" &@TAB& "kx" &@TAB& "ky"
$2 = "Ma" &@TAB& "m" &@TAB& "m" &@TAB& "m" &@TAB& "da" &@TAB& "md" &@TAB& "md"
$3 = "0" &@TAB& "0" &@TAB& "0" &@TAB& "0" &@TAB& "0" &@TAB& "0" &@TAB& "0"
$4 = "0" &@TAB

; source : type "1.txt"
$file = FileOpen($i &".txt", 0)
While 1
    $line = FileReadLine($file)       ; lit chaque ligne du fichier source
    If @error = -1 Then ExitLoop
    If StringInStr($line, "aperture") OR _
        StringInStr($line, "cell perm") OR _
        StringLeft($line, 3)=" kx" OR _
        StringLeft($line, 3)=" ky" Then    ; si l'une des conditions précédentes est remplie, alors
        $number = _zeregexp($line)     ; récupère le nombre dans la ligne
        $4 &= _convertZeScientificNumber($number) &@TAB    ; le convertit et le rajoute à $4 avec 1 tab
    EndIf
Wend
FileClose($file)

; destination : type "dossier_actuel\test\1.txt", on le construit en écrivant  
; dedans les lignes $1 à $4 séparées par des renvois à la ligne

If not FileExists(@scriptdir & "\test\") Then DirCreate(@scriptdir & "\test\") 
FileWrite(@scriptdir & "\test\" & $i & ".txt", $1 &@crlf& $2 &@crlf& $3 &@crlf& $4)

Next


;=================================

Func _zeregexp($txt)              ; récupère dans la ligne le nombre au format x.xxxE+ou-xx
  Local $pattern = '(\d\.\d*E[\+\-]\d{2})'
  Return StringRegExpReplace($txt, '.+?'&$pattern& '.*', "$1")
EndFunc


; retourne le nombre avec 2 décimales (x.00 ) si l'exposant est positif, sinon avec le nombre voulu de décimales
Func _convertZeScientificNumber($n)    
  Local $dec, $ecart = StringLen(StringRegExpReplace($n, '.*\.(.*?)E.*', "$1") )
  If StringInStr($n, "-") Then
    $dec = StringRight($n, 2)+$ecart
  Else
    $dec = 2
  EndIf
  Return StringFormat("%." & $dec & "f", $n)
EndFunc
 

[Aquhydro]

Code : Tout sélectionner

$2 = "Years" &@TAB& "m" &@TAB& &@SPACE& &@TAB& "md" &@TAB& "md" &@TAB&  &@SPACE&
$2^ 

Error in the expression.

Je rappelle que ce qui m'interessé était plus cette ligne de caractères que celle que tu a donné :
For $i = 1 to 700

Code : Tout sélectionner

$1 = "Temps" &@TAB& "Avg" &@TAB& "Moy" &@TAB& "kx" &@TAB& "ky" &@TAB& "Plante"
$2 = "Years" &@TAB& "m" &@TAB& &@SPACE& &@TAB& "md" &@TAB& "md" &@TAB&  &@SPACE&
$3 = "0" &@TAB& "0" &@TAB& "0" &@TAB& "0" &@TAB& "0" &@TAB& "0" 
$4= "0" &@TAB&

ça ne marche pas mieu avec {"SPACE"} ni avec {SPACE} Ou ça met
Unable To parse Line.

[mikell]

Tu prends de diaboliques libertés avec la syntaxe alors autoit n'est pas content
Surtout avec les "&" et une macro @SPACE qui n'existe pas
La macro @TAB existe parce que sa traduction en écriture peut varier d'un pc à l'autre
Mais un espace ça reste tout bêtement " "

Code : Tout sélectionner

$2 = "Years" & @TAB & "m" & @TAB & " " & @TAB & "md" & @TAB & "md" & @TAB & " "
msgbox(0,"", $2)

"Glouglou." ça veut dire "je coule" ou alors "je bois une bière" ?

[Aquhydro]

Je dois avouer qu'actuellement je coule complètement...