AutoIt Français

Code : Tout sélectionner

#include <file.au3>
#include <String.au3>
#include <Array.au3>

; declaration des variable
Global $Source = "C:\Autodev\tmp.txt"
Global $Dest = "C:\Autodev\tmp.new"
Global $Cpt, $Cvar, $NumVar

; calcule le nombre de ligne contenu dans le fichier
Global $CountLines = _FileCountLines($Source)

; ouverture des fichier 0 = lecture, 1 = ecriture
$FileSource = FileOpen($Source, 0)
; si le fichier n'existe pas il est crée automatiquement
$FileNew = FileOpen($Dest, 1)

; verrification de securité
If ($FileSource = -1) OR ($FileNew = -1) Then
    MsgBox(0, "Erreur", "Probleme ouverture fichier")
    Exit ; si erreur le script est arreter fin du programme
EndIf

; ecriture de la 1er ligne dans le Nouveau fichier
$line = FileReadLine($Source,1)
FileWriteLine($FileNew, $line)

; ici j'ai mis 2 pour commencer a la 2eme ligne du fichier
For $Cpt = 2 To $CountLines

    $line = FileReadLine($Source,$Cpt)
    If @error = -1 Then ExitLoop

    ; si il n'y a pas de C dans la ligne on la copie tel quel
    If StringInStr($line, "C") = 0 Then

        FileWriteLine($FileNew, $line) ; ecriture de la ligne dans le fichier

    ; si il y a un C dans la ligne alors un fait quelque modif
    ElseIf StringInStr($line, "C") > 0 Then

        ; recherche de la valeur numerique contenu entre C et B
        $Cvar =_StringBetween($line, "C-","B") ; cette fonction retourn un tableau
        $NumVar = $Cvar[0] ; simple transfert de variable
        ; ecriture des lignes modifier
        FileWriteLine($FileNew,"L101=-" & $NumVar & "+L100")
        FileWriteLine($FileNew,StringReplace($line,"-"&$NumVar, "L101"))

    EndIf

Next

MsgBox(0,"Convert", "Fini")
; fermeture des fichier ouvert
FileClose($FileSource)
FileClose($FileNew)




 

Code : Tout sélectionner

$Line = 'N37 G0C-27.519B-65.'

$C = StringInStr($Line, 'C')
If $C > 0 Then
    $aNb = StringRegExp($Line, '(\d{1,3}.\d{1,3})', 1)
    If StringMid($Line, $C + 1, 1) = '-' Then $aNb[0] = '-' & $aNb[0]

    $Line = 'L101=' & $aNb[0] & '+L100' & @CRLF & _
    StringReplace($Line, $aNb[0], 'L101')
EndIf

MsgBox(0, '', $line)

Code : Tout sélectionner

#include <file.au3>
#include <String.au3>
#include <Array.au3>

; declaration des variable
; ouverture d'une boite de dialogue pour recherche le fichier text
Global $Source = FileOpenDialog("Machine", @WindowsDir & "\", "Text (*.txt)", 1 )
Global $Dest ; = "C:\Autodev\tmp.new"
Global $Cpt, $Cvar, $NumVar, $C, $Cposition
Global $DecomposeChemin, $DecomposeNom

; calcule le nombre de ligne contenu dans le fichier
Global $CountLines = _FileCountLines($Source)

; decomposition du chemin d'acces puis du nom
$DecomposeChemin = StringSplit($Source, '\', 1)
$DecomposeNom = StringSplit($DecomposeChemin[$DecomposeChemin[0]], '.', 1)
$DecomposeNom[2] = "new" ; ici choix de l'extention
;recomposition du chemin d'acces avec la nouvelle extention
$DecomposeChemin[$DecomposeChemin[0]] = _ArrayToString($DecomposeNom,".",1)
$Dest = _ArrayToString($DecomposeChemin,"\",1)

; ouverture des fichier 0 = lecture, 1 = ecriture
$FileSource = FileOpen($Source, 0)
; si le fichier n'existe pas il est crée automatiquement
$FileNew = FileOpen($Dest, 1)

; verrification de securité
If ($FileSource = -1) OR ($FileNew = -1) Then
    MsgBox(0, "Erreur", "Probleme ouverture fichier")
    Exit ; si erreur le script est arreter fin du programme
EndIf

; ecriture de la 1er ligne dans le Nouveau fichier
$line = FileReadLine($Source,1)
FileWriteLine($FileNew, $line)

; ici j'ai mis 2 pour commencer a la 2eme ligne du fichier
For $Cpt = 2 To $CountLines

    $line = FileReadLine($Source,$Cpt)
    If @error = -1 Then ExitLoop

    $Cposition = StringInStr($line, "C")
    ; si il n'y a pas de C dans la ligne on la copie tel quel
    If $Cposition = 0 Then

        FileWriteLine($FileNew, $line) ; ecriture de la ligne dans le fichier

    ; si il y a un C dans la ligne alors un fait quelque modif
    ElseIf $Cposition > 0 Then

        ;************* methode Tlem **********************
        ; La variable $Cposition correspond a l'offset
        $aNb = StringRegExp($Line, '(\d{1,3}.\d{1,3})', 1, $Cposition)
        If StringMid($Line, $C + 1, 1) = '-' Then $aNb[0] = '-' & $aNb[0]

        $Line = 'L101=' & $aNb[0] & '+L100' & @CRLF & _
        StringReplace($Line, $aNb[0], 'L101')

        $line = StringMid($line, 1, StringInStr($line, "C")) &  StringMid($line,StringInStr($line, "C")+2,StringLen($line) )


        FileWriteLine($FileNew,$Line)

    EndIf

Next

MsgBox(0,"Convert", "Fini")
; fermeture des fichier ouvert
FileClose($FileSource)
FileClose($FileNew)

Code : Tout sélectionner

$line = StringMid($line, 1, StringInStr($line, "C")) &  StringMid($line,StringInStr($line, "C")+2,StringLen($line) )

Code : Tout sélectionner

$Line = 'N37 G0 C-27.519B-65.'
;$Line = 'N56 C1'
;$Line = 'N 5 C1.1B6'
;$Line = 'N56 C-1'
;$Line = 'N 5 C-1.1B6'
;$Line = 'N56 C0.333A66'
;$Line = 'N 5 C1.1B6'
;$Line = 'N56 C-1'
;$Line = 'N 5 C-1.1B6'

If (StringRegExp($Line, '(\d C-\d{1,3})', 0) Or StringRegExp($Line, '(\d C\d{1,3})', 0)) Then
    Local $Res
    $aNb = StringSplit($Line, " C", 1)
    $Res = $aNb[2]

    If StringRegExp($Res, '([a-zA-Z])', 0) Then
        $aNb = StringRegExp($Res, '([a-zA-Z])', 1)
        $aNb = StringSplit($Res, $aNb[0], 1)
        $Res = $aNb[1]
    EndIf

    $Line = 'L101=' & $Res & '+L100' & @CRLF & _
    StringReplace($Line, $Res, 'L101')
EndIf

MsgBox(0, 'End', $line)