Extraire Chaîne de Chiffres avant 1er espace
cs_titoune99
Messages postés
3
Date d'inscription
jeudi 3 avril 2003
Statut
Membre
Dernière intervention
16 avril 2003
-
16 avril 2003 à 21:50
stevebelgium Messages postés 180 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 7 juin 2003 - 16 avril 2003 à 22:51
stevebelgium Messages postés 180 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 7 juin 2003 - 16 avril 2003 à 22:51
A voir également:
- Extraire Chaîne de Chiffres avant 1er espace
- Python extraire chaine de caractère ✓ - Forum Python
- Le format de la chaîne d'entrée est incorrect ✓ - Forum C# / .NET
- Extraire un mot d'une chaîne de caractère sql ✓ - Forum SQL
- Requete SQL pour recherce une chaine avec caractères spéciaux - Forum VB.NET
- Le format de la chaîne d'entrée est incorrect. - Forum C# / .NET
1 réponse
stevebelgium
Messages postés
180
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
7 juin 2003
1
16 avril 2003 à 22:51
16 avril 2003 à 22:51
Private Sub Command2_Click()
Dim test1, test2, test3 As String
test1 = "résidence La Rouvière"
test2 = "147 rue des Champs"
test3 = "988A boulevard Thiers"
MsgBox Search(test1)
MsgBox Search(test2)
MsgBox Search(test3)
End Sub
Function Search(ByVal adres As String) As String
If IsNumeric(Left$(adres, 1)) = True Then
Search = Mid(adres, 1, InStr(1, adres, " ") - 1)
Else
Search = ""
End If
End Function
Dim test1, test2, test3 As String
test1 = "résidence La Rouvière"
test2 = "147 rue des Champs"
test3 = "988A boulevard Thiers"
MsgBox Search(test1)
MsgBox Search(test2)
MsgBox Search(test3)
End Sub
Function Search(ByVal adres As String) As String
If IsNumeric(Left$(adres, 1)) = True Then
Search = Mid(adres, 1, InStr(1, adres, " ") - 1)
Else
Search = ""
End If
End Function
