Extraire une donnée

[deni29]

Bonjour le Forum,

A partir d'un fichier .txt, (exporté en automatique d'un autre logiciel), je récupère obligatoirement les données sous la forme suivantes (exemple):

Dim Données As String
:
:
Données = 'Daniel*Province*Est*Alsace'

Aprés, Je souhaiterais enlever la dernière valeur(jusqu'a l'*) affin obtenir :

Données = 'Daniel*Province*Est'

Il y a t-il possibilité

Merci d'avance

Deni29

 

[Hervé]

bonjour deni

2 méthodes :

Dim Données As String
Dim t As String
Dim i As Byte

Données = 'Daniel*Province*Est*Alsace'

For i = 0 To 2
        t = t & '*' & Split(Données, '*')(i)
Next i
MsgBox Mid(t, 2)

ou :

Dim Données As String


Données = 'Daniel*Province*Est*Alsace'
MsgBox Mid(Données, 1, Len(Données) - InStr(1, StrReverse(Données), '*'))

salut

 

[deni29]

Bonjour Hervé, Le forum

Merci Hervé, cela fonctioone trés bien, c'est exactement ce que je recherchais.

@+

Deni29