1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Sub test_ligne_debut()
Dim textedebut As String
'textedebut = "QUINTE Arrivée du QUINTE PMU d'hier Dimanche 2 AOUT 2015: 5 - 12 - 15 - 3 - 7 03/08/2015 [Il est 13:04:40]-Course 4597 QUINTE: Prix CLUB MARMARA DEL MAR-ROBERTET à CLAIREFONTAINE Lundi le 03-08-2015, Réunion 1 Course 1 Départ: 13h50 (allocation: 52000) Plat PRONOSTICS DE LA PRESSE (Revue de Presse) de pronostics-turf.info"
textedebut = "QUINTE Arrivée du QUINTE PMU d'aujourd'hui Lundi 27 Juillet 2015: 14 - 5 - 9 - 11 - 7 28/07/2015 [Il est 18:46:41]-Course 4590 PRONOSTICS PRESSE HIPPIQUE POUR LE QUINTE PMU: Prix DU BOIS BRANDIN-16 partants à CHANTILLY Mardi le 28-07-2015, Réunion 1 Course 3 Départ: 13h50 (allocation: 60000) Plat PRONOSTICS DE LA PRESSE (Revue de Presse) de pronostics-turf.info "
oldate = "date course précedente : " & chainevalide3(textedebut, "[0-9]+[( )a-z_\.\-]+[( )0-9]+[0-9]+[0-9]+[0-9]")
oldarrivée = "arrivée :" & chainevalide3(textedebut, "[0-9-]+[0-9-]+[0-9-]+[0-9-]+[0-9-]")
datetel = "Date jour du telechargement :" & chainevalide3(textedebut, "[0-9/]+[0-9/]+[0-9]+[0-9]+[0-9]+[0-9]")
newdate = "newdate : " & chainevalide3(textedebut, "[0-9]+[0-9-]+[0-9]+[0-9-]+[0-9]+[0-9]+[0-9]+[0-9]")
nomprix = "prix" & Split(Split(Split(textedebut, "Prix")(1), "à")(0), "-")(0)
nbpartant = "nombre de partants : " & IIf(InStr(textedebut, " partants ") > 0, StrReverse(Split(Split(StrReverse(textedebut), "stnatrap")(1), "-")(0)), "NC")
DsP = "discipline : " & Split(Split(textedebut, ") ")(1), " ")(0)
MsgBox oldate & vbCrLf & oldarrivée & vbCrLf & datetel & vbCrLf & newdate & vbCrLf & nomprix & vbCrLf & nbpartant & vbCrLf & DsP
End Sub
Function chainevalide3(txt As String, matrice) As String
txt = Replace(txt, " - ", "-")
With CreateObject("VBScript.RegExp")
.Pattern = matrice
.IgnoreCase = True
chainevalide3 = .Execute(txt)(0)
End With
End Function |
Partager