Bonjour à tous
 
J'aimerais savoir comment déconcaténer une chaine , c'est à dire enlever des lettres à une expression.
 
exemple : "Bonjour Monsieur" , ne garder que "Bonjour"
 
Merci d'avance

Quel language ?

C'est marqué dans le titre --> VB (Visual Basic)

' Un Command Button à ajouter
Option Explicit
Private Function Deconcatenate(s As String, Optional delimiter As String = " " ) As String
Dim i As Long
 
i = InStr(s, delimiter)
Deconcatenate = Mid$(s, 1, i - 1)
 
End Function
 
Private Sub Command1_Click()
Dim szTest1 As String
Dim szTest2 As String
Dim retval1 As String
Dim retval2 As String
 
szTest1 = "Bonjour Monsieur"
szTest2 = "Bonjour;Monsieur"
retval1 = Deconcatenate(szTest1, " " )
retval2 = Deconcatenate(szTest2, ";" )
 
MsgBox retval1 & " " & retval2
 
End Sub
 
'Vala