Voici une fonction que j'ai du créer afin de filtrer certaines chaînes de caractères. Celle-ci comportait des chiffres ainsi que des lettres. Par contre pour certain besoin, j'avas besoin de récupéré que les nombres de cette chaînes. Voici donc le code de cette petite fonction.
CODE :
Private Function FiltreCaract(ByVal input As String) As String
Dim StrChars As String = input.ToCharArray
Dim outputStr As String
For Each s As String In StrChars
If Char.IsDigit(s) = True Then
outputStr &= s
Else
' NON OBLIGATOIRE
' Affichage des caractères qui on été filtrés
MessageBox.Show("Ces caractères ne sont pas des chiffres : " & System.Environment.NewLine _
& "'" & s & "'", "Invalid String", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Next
Return outputStr
End Function
UTILISATION :
Private Sub Button9_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button9.Click
MonLabel.Text = FiltreCaract(txtInput.Text)
End Sub
Rétrolien(0)
Adresse URI pour un rétrolien sur cet articleCommentaires (0)
