Le portail francophone de la géomatique

proc entrp_ {} {
puts "-------------nvel objet---------------"
foreach a  [FME_AttributeNames] {
    regsub -all {\n} [FME_GetAttribute $a] "; " b
    FME_SetAttribute $a $b
    }

#récupération des dates
set d_ [FME_GetAttribute  "Date déclaration ou autorisation" ]

foreach dt_ [regexp -all -inline {[0-9]*/[0-9]*/[0-9]*} $d_ ] {
#pour chaque date récupérée
        regexp -all {([0-9]*)/([0-9]*)/([0-9]*)} $dt_ b b1 b2 b3
#reformater la date au format anglosaxon
        set b_ $b2
        append b_ "/" $b1 "/" $b3
        set dateLen [string length $b_]     
#tester la date pour recréer les années sur 4 chiffres si besoin                       
    if {$dateLen > 0} {     \
                puts "date : $dt_ longueur : $dateLen à transformer : $b_"  
        switch $dateLen {
            10 {}
#c'est là que cela bloque. Il me dit que le format attendu n'est pas celui rencontré
            8 {set s [clock scan {$b_} -format {%m/%d/%y} ] 

                puts $s
                                set tp_ [clock format $s -format {%Y%m%d%H%M%S}]
                                puts $tp
                }
            7 {}
            default {}
            }
        }
    }
}