1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
| Public Function CSV_mise_en_forme(url As String, url_sauv As String)
' Ne met a jour que la date .
Dim i As Integer
Dim strenrLu As String
Open url For Input As #1
Open url_sauv For Output As #2
Do While Not (EOF(1))
Line Input #1, strenrLu
Print #2, modif_time(strenrLu)
Loop
Close #1
Close #2
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Fonction Modif time modifie automatiquement une chaine de caractère en ,JJ/MM/AAAA ou ,J/M/AA en ,MM/JJ/AAAA
'
'ATTENTION NE FONCTIONNE QUE AVEC UNE VIRGULE AVANT LA CHAINE DE CHAR
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function modif_time(entree As String) As String
Dim reg As VBScript_RegExp_55.RegExp
Dim Match As VBScript_RegExp_55.Match
Dim Matches As VBScript_RegExp_55.MatchCollection
' instanciation
Set reg = New VBScript_RegExp_55.RegExp
reg.Global = True 'Toutes les ocurences
reg.MultiLine = True
reg.Pattern = "(\d?\d)/(\d?\d)/(\d?\d?\d\d)"
modif_time = reg.Replace(entree, "$2/$1/$3")
End Function |
Partager