Discussion :

[Dralnor]

Bonjour le forum !

Débutant en VBA, je me retrouve confronté à un problème qui ressemble à une montagne :s

Je souhaite, grâce à un like d'un pattern (ou tout autre moyen, je suis pas difficile!), extraire une chaine ayant la structure du pattern depuis une autre chaine.

petit exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
objetd = ma_chaine_avec_1.23 PM_et_le_reste
Dim resa As Boolean
resa = objetd Like "*#.## PM*"
if resa=true then
*extraire la chaine correspondant au pattern*
end if

Si quelqu'un a une idée pour me dépanner (ou toute remarque eventuelle concernant la demande dans son ensemble )

Bien à vous

[parmi]

Bonjour,

Si ta chaîne a vraiment des "_" entre les mots, ceci pourrait fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Extraire()
    Dim I As Long
    Dim objetd As String
    Dim resa As Boolean
    Dim Tablo
 
    objetd = "ma_chaine_avec_1.23 PM_et_le_reste"
    resa = objetd Like "*#.## PM*"
 
    If resa = True Then
        Tablo = Split(objetd, "_")
        For I = 0 To UBound(Tablo)
            If Tablo(I) Like "*#.## PM*" Then
                MsgBox Tablo(I)
                Exit For
            End If
        Next
    End If
End Sub

[Dralnor]

Bonjour et merci de l'interet que tu porte à ma demande

Malheureusement la situation dans son ensemble n'est pas aussi simple (j'ai volontairement simplifié pour rendre le problème moins lourd)

Les chaines de caractère pour objetd sont de tailles et de structures différentes (ce sont des titres de mail) et contiennent parfois une heure (sous différents format bien entendu sinon ça serait trop simple!)
Je souhaite extraire l'heure dans les chaines qui contiennent cette information.

Un exemple plus concret avec 3 valeurs pour objetd :
Videoroom reservation for Monday 01.06 from 2.50 PM to 5.00 PM (UTC+1) - URGENT
Demande de réservation de visio conférence
Réservation: Thursday, June 11th from 9:30 to 12:00

et mon code comporterait quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

resa = objetd Like "*#.## PM*" or objetd like "#:##"

pour cet exemple qui n'est qu'une partie de la montagne :p

Bien a vous

edit: on va dire que je ne souhaite que l'heure de début des demandes pour faire simple

[parmi]

Alors tu pourrais essayer en changeant le "_" du Split par un espace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Tablo = Split(objetd, " ")

et modifier la condition (IF) selon tes besoins

[patricktoulon]

bonjour
ben avec ca tu es bien parti
et si le site change
ou la phrase change d'ordre et bien tu es chocolat
le mieux c'est d'utiliser les expressions régulières
exemple ici je recupere l'eur avant from et l'heure avant PM
fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function chainevalide3(txt As String, matrice) As String
 
    With CreateObject("VBScript.RegExp")
        .Pattern = matrice
        .IgnoreCase = True
        chainevalide3 = .Execute(txt)(0)
    End With
End Function

test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub test10()
    Dim texte As String
    texte = "Videoroom reservation for Monday 01.06 from 2.50 PM to 5.00 PM (UTC+1) - URGENT"
   heure1 = chainevalide3(texte, "[( )0-9.]+[0-9] from") 'ici on prend l'heure ou il y a le"from
 heure2 = chainevalide3(texte, "[( )0-9.]+[0-9] PM") 'ici on prend l'heure ou il y a le"PM
MsgBox heure1 & vbCrLf & heure2
End Sub

ca n'est qu'un exemple on peut faire encore plus precis j'ai fait ca vite fait hein!!!

[Dralnor]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim resa As Boolean 'sortir l'heure du titre du mail
resa = objetd Like "*#.## PM*" ' Or objetd Like "test"
 
Dim I As Long
Dim tablo
Dim test As String
 
If resa = True Then
tablo = Split(objetd, " ")
For I = 0 To UBound(tablo)
If tablo(I) Like "*#.## PM*" Then
test = tablo(I)
 
Exit For
End If
Next
End If
 
MsgBox test

et la msgbox me sort du vide

edit : bonjour Patrick et merci pour ton intervention, je vais regardé ça de pret

[Dralnor]

Merci Patrick ça marche parfaitement pour ce que je veux en faire

Petite question annexe : que représente le vbCrLf dans le msgbox ?