bonjour une personne pouré m'aider pour cette source en vb http://ma-zone.fr/vbsource.rar je voudré métre se qui safiche en message box dans le textbox sen les {i}
module
Public Function sCaption(sData As String) As String
Dim tData As String
Dim tCaption As String
tData = Mid(sData, 4, Len(sData) - 6) 'ben oui on ne veut pas avoir {I} dans le resultat final'on va recherche les espace(on aurait pu mettre un autre terme mais jai choisi celui ci pour faire une coupure et le blindage(vous pouvez en changer en modifiant command1_click de projet 1, ligne If i < Len(Text1.Text) + Val("1") Then sC sC & Mid(Text1.Text, i, 1) Else sC sC & " ")
Dim i
For i = 1 To Len(tData)
If Mid(tData, i, 1) <> " " Then tCaption = tCaption & Mid(tData, i, 1) Else Exit For 'on enleve les espace, on neglig le fete k l'usager ecrive aves des espaces
DoEvents
Next i
sCaption = tCaption 'on envoi le resulatat
End Function
form
Private Sub Command1_Click()
'un ti apercu sans et avec la fonction
MsgBox Label1.Caption
MsgBox sCaption(Label1.Caption)
End Sub
Salut
Rien pigé à ton histoire de {i}
Si tu veux mettre ce que renvoie la fonction sCaption vers une TextBox, il te suffit de faire
maTextBox.Text = sCaption(Label1.Caption)
Et le langage SMS dans les commentaires, c'est pas top pour comprendre quelque chose ...
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Salut,
De plus si c'est Label1.Caption qui contient des {i} il aurait été bon de nous dire ce que contient exactement ce label, ce que tu souhaites exactement comme résultat.
En effet, le texte en sms c'est tres difficile à comprendre.
Alors 2 petites choses :
- Si tu parles des "i" dans le code que tu présentes, ca va etre difficile dans le sens ou "i" est une variable
- Sinon je rejoins Jack dans son écriture :
Text1.Text = sCaption(Label1.Caption)
Ton problème est trop flou pour que tu puisses obtenir une autre réponse. Reformule le clairement et la je pense que tu auras ta solution...
