Discussion :

[kboo]

Bonjour,
mon problème est assez simple, du moins en C mais je seche pour le visual basic:
je cherche à faire une conversion de la chaine de caractère "16pt" en un chiffre qui doit valoir 16, mais ce bou de programme doi marcher aussi bien pour "16pt" que pour "3pt" ou bien "128pt".
En fait je cherche traiter caractère par caractère mais je sais pas faire avec visual basic, à cause de "string" qui n'a pas l'air d'être un tableau de caractères comme en c (char phrase[255]; par exemple)
merci d'avance

[jmfmarques]

SQi ton machin commence toujours pas des chiffres, tu n'as aucun besoin d'y aller caractère par caractère
essayes donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Command1_Click()
  toto = "16pt"
  MsgBox Val(toto)
  toto = "232blabla46"
  MsgBox Val(toto)
End Sub

tout bêtement !

[kboo]

j'aime bien ta solution , c'est barbare et efficace, merci

[jmfmarques]

Ouais !
Ceci étant dit, s'il s'agit d'un exercice conçu par un prof, il pourrait trouver saumatre de s'être ainsi fait rouler !
Prévois dans ce cas de lui montrer certes la solution "barbare et efficace", mais aussi celle-ci, pour lui faire plaisir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
  Dim toto As String, titi As String, i As Integer
  toto = "124blablabla123héhé"
  For i = 1 To Len(toto)
    If Not IsNumeric(Mid(toto, i, 1)) Then Exit For
    titi = titi & Mid(toto, i, 1)
  Next
  MsgBox titi
End Sub

[kboo]

tu veux dire que le visual basic s'apprend à l'école??? déja que le Pascal et Delphi font sourire....