suprimer une chaine de caracteres apres virgule

Bonjour lou, dans le message
news:449272c9$0$1205$ba620e4c@news.skynet.be
tu disais :

bonjour
voici mon petit probleme
dans un champ je peux avoir une chaine de caracteres du type
collu,123
maison,5a
travaux,xl56

en fait le mot peut toujours varier de longeur mais la virgule est
toujours présente dans la chaine

ce que je voudrais faire c'est de laisser que 2 caracteres apres la
virgule ex
collu,12
maison,5a
travaux,xl


merci d avance pour votre aide(un petit bout de code serait le bien
venu je debute)

quelque chose comme ceci, par exemple ?

'------8<------
Private Function FormatVar(ByVal sVar As String) As String

FormatVar = Left$(sVar, InStr(sVar, ",")) & Mid$(sVar, InStrRev(sVar, ",")
+ 1, 2)

End Function

Private Sub Form_Load()

MsgBox FormatVar("collu,123")

End Sub

'-----8<------



--
Adresse invalide
Merci de répondre sur le forum ...
Problème avec XP ? http://pcland.easyforum.fr/index.htm

scraper (http://scraper.chez-alice.fr)

Bonjour, tu peux faire:

dim position as integer
dim chaine_a_examiner as string
dim nouvelle_chaine as string
position = InStr(1, chaine_a_examiner, ",", 1)
nouvelle_chaine = mid(chaine_a_examiner, 1, position + 2)

--
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"lou" <colluluigi@skynet.be> a écrit dans le message de news:
449272c9$0$1205$ba620e4c@news.skynet.be...

bonjour
voici mon petit probleme
dans un champ je peux avoir une chaine de caracteres du type
collu,123
maison,5a
travaux,xl56

en fait le mot peut toujours varier de longeur mais la virgule est
toujours
présente dans la chaine

ce que je voudrais faire c'est de laisser que 2 caracteres apres la
virgule
ex
collu,12
maison,5a
travaux,xl


merci d avance pour votre aide(un petit bout de code serait le bien venu
je
debute)

c'est ok merci

"X" <X@Y.Z> a écrit dans le message de news:
#4Y7WySkGHA.4284@TK2MSFTNGP05.phx.gbl...

Bonjour, tu peux faire:

dim position as integer
dim chaine_a_examiner as string
dim nouvelle_chaine as string
position = InStr(1, chaine_a_examiner, ",", 1)
nouvelle_chaine = mid(chaine_a_examiner, 1, position + 2)

--
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
--------------------------------------------------------------------------

----------

"lou" <colluluigi@skynet.be> a écrit dans le message de news:
449272c9$0$1205$ba620e4c@news.skynet.be...
> bonjour
> voici mon petit probleme
> dans un champ je peux avoir une chaine de caracteres du type
> collu,123
> maison,5a
> travaux,xl56
>
> en fait le mot peut toujours varier de longeur mais la virgule est
> toujours
> présente dans la chaine
>
> ce que je voudrais faire c'est de laisser que 2 caracteres apres la
> virgule
> ex
> collu,12
> maison,5a
> travaux,xl
>
>
> merci d avance pour votre aide(un petit bout de code serait le bien venu
> je
> debute)
>
>
>
>