Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
115 internautes nous ont dit merci ce mois-ci
Private Sub btnDate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDate.Click '*** Charge le texte du contrôle voulu. Dim text As String = rtbCode.Text '*** Exemple de Regex de date : la date doit : ' Commencer par un chiffre (jour) de 01 à 31 suivi soit de "-" ou "/" ou "." ' Suivi d'autre chiffre (mois compris entre 01 et 12 toujours suivi suivi soit de "-" ou "/" ou "." ' Puis l'année, ici limitée de 1900 à 2099 Dim pat As String = "(0[1-9]|[12][0-9]|3[01])[- /.](0[1-9]|1[012])[- /.](19|20)\d\d" '*** Compile the regular expression. Dim r As New Regex(pat) '*** Recherche la première et uniquement la première date du texte. Dim m As Match = r.Match(text) '*** Teste If m.Success Then MessageBox.Show(m.ToString) End If End Sub
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.