comment remplacer des caracteres speciaux dans une chaine

voila je suis debutante dans le domaine de la programmation
En gros j'ai une chaine de caractere
*par ex "le jour se leve"il faut que je supprime tous les blancs et les remplacer par _
pour l'instant avec le programme que j'ai fait le resultat est :
"le_jour se leve"
les autres blancs ne sont pas modifies
voici mon code:

NomAppli = "'" + Text1.Text + "'"
temp = (InStr(NomAppli, " "))
remplace = "_"
resultat = left(NomAppli, temp - 1) & remplace & right(NomAppli, Len(NomAppli) - temp)
msgbox(resultat)


je vous remercie d'avance

Salut !

il faut que tu fassse :

resultat = replace(text1.text," ","_")
msgbox resultat

Voila !

-------------------------------
Réponse au message :
-------------------------------

> voila je suis debutante dans le domaine de la programmation
> En gros j'ai une chaine de caractere
> *par ex "le jour se leve"il faut que je supprime tous les blancs et les remplacer par _
> pour l'instant avec le programme que j'ai fait le resultat est :
> "le_jour se leve"
> les autres blancs ne sont pas modifies
> voici mon code:
>
> NomAppli = "'" + Text1.Text + "'"
> temp = (InStr(NomAppli, " "))
> remplace = "_"
> resultat = left(NomAppli, temp - 1) & remplace & right(NomAppli, Len(NomAppli) - temp)
> msgbox(resultat)
>
>
> je vous remercie d'avance

je te remercie mais la fonction replace n'est pas définie sous vb5 je ne peux pas l'utiliser

-------------------------------
Réponse au message :
-------------------------------

>
> Salut !
>
> il faut que tu fassse :
>
> resultat = replace(text1.text," ","_")
> msgbox resultat
>
> Voila !
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > voila je suis debutante dans le domaine de la programmation
> > En gros j'ai une chaine de caractere
> > *par ex "le jour se leve"il faut que je supprime tous les blancs et les remplacer par _
> > pour l'instant avec le programme que j'ai fait le resultat est :
> > "le_jour se leve"
> > les autres blancs ne sont pas modifies
> > voici mon code:
> >
> > NomAppli = "'" + Text1.Text + "'"
> > temp = (InStr(NomAppli, " "))
> > remplace = "_"
> > resultat = left(NomAppli, temp - 1) & remplace & right(NomAppli, Len(NomAppli) - temp)
> > msgbox(resultat)
> >
> >
> > je vous remercie d'avance
>