[vba] extraire une date - [resolu]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [vba] extraire une date - [resolu]

red faction

mystr = " xxxxx k k k wwwww 10/10/2004 dkdkdkdkdkdkkd"

jaimerai recuprer la date comment faire ?

jarrive a detecter si ya une date avec Like "*##/##/####*"

mais ca me renvoie juste true ou false
jai essaye avec Format mais ca marche pas

Message édité par red faction le 17-02-2004 à 13:06:07

Publicité

drasche

le coup du like est pas mal puisque ça te permet de savoir rapidement si il y a un truc qui ressemble à une date dans ta chaîne sans devoir passer par un algo un peu pénible. Mais en fait tu n'y échappes pas parce qu'il n'y a pas d'équivalent pour extraire la chaine (sauf peut être avec des regexp mais ça sort du cadre de mes compétences).

Donc il va falloir que tu y ailles à coup de InStr et Mid [:spamafote]

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

red faction

like aurait pu renvoyer la pos au moins :fou:

red faction

le prob c que je peut avoir des caracteres '/' avant et apres la date :sweat:

drasche

oui
peut être les regexp alors [:spamafote]

red faction

Code :

Dim regex As RegExp
Dim s As String
s = " 15 1 5fghfgghgf1 51 51 5 02/02/2003 1 gggg"
Set regex = New RegExp
regex.Global = True
regex.Pattern = "?????"
MsgBox regex.Replace(s, "" )

manque plus que le pattern qq peut maider ?

Message édité par red faction le 14-02-2004 à 15:16:50

red faction

[:yoyoz]

itawa

Bonjour,
Et si tu fais une recherche avec des left and right, des instr, et hop le tour est joue.
Faut juste esperer que les formats de datre sont identiques : xx/xx/xxxx (2 digit, slash, 2 digit, slash, 4 digit) et qu'il n'y a pas d'autre slash dans ta string.

genre:

Dim s As String
s = " 15 1 5fghfgghgf1 51 51 5 02/02/2003 1 gggg"
s = Right(s, Len(s) - InStr(1, s, "/" ) + 4)
s = Left(s, 11)
MsgBox s

et la ca ne sort que 02/02/2003, quelques que soit le nombre de caractere avant ou apres.

I.

red faction

ok sinon jai trouve ceci comme pattern qui marche tres bien

Code :

\d\d/\d\d/\d\d\d\d

dacid

Je viens de faire cette fonction qui ...fonctionne très bien.

Code :

Function extraireDateDeChaine(str As String) As String
Dim posi, i As Integer
Dim ret, cChar, charOk As String
ret = ""
charOk = "0123456789/"
posi = InStr(str, "/" )
If (posi > 0) Then
For i = posi - 1 To 0 Step -1 ' Récupérer le début de la date
If (posi < 2) Then ' On traite ici les / en début de chaine pour qu'il passe dans la récursivité
Exit For
End If
If (Not IsNumeric(Mid(str, i, 1))) Then
posi = i + 1
Exit For
End If
Next
For i = posi To Len(str)
cChar = Mid(str, i, 1)
If (InStr(charOk, cChar)) Then
ret = ret & cChar
Else
Exit For
End If
Next
'ret = Right(s, Len(s) - InStr(1, s, "/" ) + 4)
'ret = Left(ret, 11)
End If
If ((ret <> "" ) And (Len(ret) < 6)) Then ' C'était un slash en dehors du contexte d'une date, l'oter et relancer la recherche
ret = extraireDateDeChaine(Left(str, posi - 1) & Right(str, Len(str) - posi))
End If
extraireDateDeChaine = ret
End Function

Message édité par dacid le 27-05-2011 à 11:52:53

Publicité

kiki29

Salut,voir tuto sur http://cafeine.developpez.com/access/tutoriel/regexp/

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[vba] extraire une date - [resolu]

Sujets relatifs
Gestion des sessions: Changer une valeur.[RESOLU]	[resolu] redirection automatique apres un laps de temps
Probleme de date sur Access	conversion date
[ECLIPSE] Passer en debug dans un programme [RESOLU]	[Résolu] ASP-Cookie
declaration de thread en global et threadstart [résolu]	[CSS] Imbrication de structures [Résolu]
[ORACLE FORMS] validité d'une variable globale ? [Résolu]	[PHP] [MYSQL] requête sur partie de la date?
Plus de sujets relatifs à : [vba] extraire une date - [resolu]

Page générée en 0.057 secondes