| Re: Suis tout ému ... |
Objet : Re: Suis tout ému ... par jojojo sur 02/10/2009 06:43:32 dim chaineEntree As String, ChaineSortie As String, I As Integer ChaineEntree= "46 45 4C 49 43 49 54 41 54 49 4F 4E 4E 4F 4E 20 43 27 45 53 54 20 53 55 52 20 41 20 50 41 52 54 49 52 20 44 45 20 31 30 30 30 20 4D 45 53 53 41 47 45 53 20 54 55 20 4E 34 45 53 20 50 4C 55 53 20 4E 4F 55 56 45 41 55 20 21" ChaineSortie="" For i=1 to len(ChaineEntree) If Mid$(chaineEntree, i,1)<>" " Then ChaineSortie=ChaineSortie+Chr$(HexToNum(Mid$(chaineEntree, i,2))) i=i+1 End if Next i Print ChaineSortie Mais si, mais si ...  |
