1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
If tableau2(1).StartsWith("1") Then
codefaçade = tableau2(2) 'récupère la chaine "11362,Aulne teinté merisier""
valeurdeb = codefaçade.IndexOfAny(",") "cherche la position de la virgule
codefaçade1 = codefaçade.Substring(0, valeurdeb) 'récupere le code coloris
codefaçade3 = tableau2(2)
valeurdeb = codefaçade.IndexOfAny(",")
taille = codefaçade.Length
taille = taille - 1
colorisfaçade = codefaçade3.Substring(valeurdeb,taille) <- ligne qui pose problème .... souhaite récuperer la 2ème partie dela virgule à la fin du string
End If |