Extraire une donnée

deni29 · 23 Mai 2006

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é · 23 Mai 2006

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 · 24 Mai 2006

Bonjour Hervé, Le forum

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

@+

Deni29

Extraire une donnée

deni29

XLDnaute Junior

Hervé

XLDnaute Barbatruc

deni29

XLDnaute Junior

Discussions similaires

Extraire une donnée

deni29

XLDnaute Junior

Hervé

XLDnaute Barbatruc

deni29

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency