AutoIt Français

Code : Tout sélectionner

#include <file.au3>
#include <string.au3>
;---------------------------


;Nom des fichiers à traiter
$fichierVDA     = 'test.txt'
$fichierMARCQ   = 'EXPMARCQ.txt'
;---------------------------

; Etape 1 traitement fichierVDA
$file = FileOpen($fichierVDA, 0)
$read = FileRead($file)
$line = StringSplit($read, @CR)

For $i = 1 To $line[0]

$var = FileReadLine($file, $i)
;MsgBox(1,"résultat Entree",$var)
$ctrl = StringIsXDigit($var)
if $var >= '40100001' And $var <= '40199999' And $ctrl == 1 Or $var >= "41100001" AND $var <= "41199999" And $ctrl == 1 Then
    $sortie=StringRegExpReplace($var,$var,$var & "V")
    Filewrite("IMPORT_VDA.txt", $sortie & @CRLF)
    ;MsgBox(1,"résultat sortie",$sortie)

Else
    Filewrite("IMPORT_VDA.txt", $var & @CRLF)
Endif


Next
FileClose($fichierVDA)

Exit

Code : Tout sélectionner

#include <file.au3>
#include <string.au3>
#include <Array.au3>
;---------------------------


;Nom des fichiers à traiter
$fichierVDA     = 'test.txt'
$fichierMARCQ   = 'EXPMARCQ.txt'
$dest           = 'SAUVE'
;---------------------------

FileCopy($fichierVDA,$dest,1)
$fin = _FileCountLines($fichierVDA)
MsgBox(1,"","Nombre de ligne : "&$fin)
Dim $array[1]=["LIGNE"]
Dim $colonearray[1]=["COLONNE"]
$x=1
for $i = 1 to $fin
    $var = FileReadLine($fichierVDA, $i)
    $ctrl = StringIsXDigit($var)

if $var >= '40100001' And $var <= '40199999' And $ctrl == 1 Or $var >= "41100001" And $var <= "41199999" And $ctrl == 1 Then
    ;MsgBox(1,"array","valeur $x : " & $x)
    ReDim $array[$x]
    ReDim $colonearray[$x]

    _ArrayInsert($array,$x,$i)   ;ajout dans tableau du N° ligne a modifier
    _ArrayInsert($colonearray,$x,$var) ;ajout dans tableau de la valeur a modifier
    ;MsgBox(1,"Traitement ","Traitement terminé à " &$array[0]&" seconde valeur "& $array[$x])
    ;MsgBox(1,"Traitement ","Traitement terminé à " &$colonearray[0]&" seconde valeur "& $colonearray[$x])
    $x=$x+1
    Msgbox(1,"ligne","Ligne traitée : "&$i,2)
EndIf
Next
MsgBox(1,"Fin recherche","le traitement de recherche des valeur a modifier est terminé"&@CRLF&"Lancement du traitement de modification")
For $modif = 1 to $array[0]

    _FileWriteToLine($fichierVDA,$array[$modif],$colonearray[$modif] & "V",1)
next
$H= FileGetTime($fichierVDA,0,1)
MsgBox(1,"Traitement ","Traitement est terminé à " &$H)
Exit

Code : Tout sélectionner

$file = FileOpen("IMPORT_VDA.txt", 0) ; ouverture du fichier d'origine en lecture
; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

$fileNew = FileOpen("IMPORT_VDA_new.txt", 2 + 8) ; création du fichier de destination
If $fileNew = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

While 1
    $var = FileReadLine($file) ; Read in lines of text until the EOF is reached
    If @error = -1 Then
        ExitLoop
    EndIf

    If ($var >= 41100001 And $var <= 41199999) Or ($var >= 40100001 And $var <= 40199999) Then ; si une ligne une valeur dans les plages définies...
        MsgBox(1, "résultat Entree", $var)
        $var=$var & "V" ; ....ajoute un V à la fin de la valeur
    EndIf
    FileWriteLine($fileNew, $var) ; écrit chaque ligne du fichier d'origine dans le fichier de destination
WEnd

FileClose($file)
FileClose($fileNew)

Code : Tout sélectionner

#include <File.au3>

Global $aFile

_FileReadToArray("IMPORT_VDA.txt", $aFile)
If Not IsArray($aFile) Then Exit -1

For $i = 1 To $aFile[0]
    If ($aFile[$i] >= 41100001 And $aFile[$i] <= 41199999) Or ($aFile[$i] >= 40100001 And $aFile[$i] <= 40199999) Then
        $aFile[$i] = $aFile[$i] & "V"
    EndIf
Next

_FileWriteFromArray("IMPORT_VDA_new.txt", $aFile, 1)