Discussion :

[patricktoulon]

bonjour sebphyto
puré ca plante encore ce soir avec l'url
y font vraimlent ch.....

[Sebphyto]

Salut Patrick,

Ouais ils font chi....qu'Est-ce qu'ils ont refait???

Seb

[patricktoulon]

Maintenan,t ils joue avec les caracteres particuliers
par exemple le"é" en majuscule avec un accent quand meme

je suis mort de rire


''PRIX DES COLLECTIVITÉS LOCALES
'
"Prix DES COLLECTIVITES LOCALES



on va les mettre a gebnous c'est résolu ca aussi

[Sebphyto]

Purée, j'ai pas vu cette subtilité.....ohhhh les crabes...

Pourrais-tu essayer de m'envoyer un mail, car ma boite mail est vide, elle n'a encore jamais reçu quelque chose...!!!!La pauvre...
seb

[patricktoulon]

retrouve cette partie dans raportzeturf

et remplace la

Code :

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

1
2
3
4
5
6
7
8
9
'************************************************************************************************************************************
        'on réécrit le body avec  le codehtml du lien1(courses dans cet hippodrome)
    document.body.innerhtml = reponseREq(lien1) 'la dadans il y a toutes les course de cet hippodrome  ce jour la
    ' on cherche la bonne course
    Set tdprix = document.getelementsbytagname("a")
    For Each elems In tdprix
        If Replace(Trim(LCase(elems.innertext)), "é", "e") = Trim(nomprix) Then lien2 = elems.href: Exit For  ' on a trouvé la bonne course!!!!!!!!!!
    Next
'***************************************************************************************************

ouais j'essaie

[Sebphyto]

Bah voila que chez moi c ne fonctionne pas....
J'ai une erreur 5..


Edit:
Le recup se passe bien ppour demain, c au moment de recup l'arrivée...

[patricktoulon]

regarde dans la ligne archive si le nom duprix n'est pas en double en colonne 3 pour le prix des collectivites

[Sebphyto]

ah oui comme de faite, bien joué....

[patricktoulon]

cette erreur m'a échapée hier m'etant porté sur l'erreur provoquée sur celle d'avant d'hier

en fait ils vont vite faire le tour avant d'opter pour une suppression de la possibilité de voir le code source seule methode a ce jour efficace a ce jour mais contraignante parce que limitant la possibilité d'utilisation de fichiers externe (css,js,json,ajax) ect.....

donc pour le moment faisons les cravacher hahahahaha!!!!!!!

[Sebphyto]

dit moi, dans la colonne nb partants, tu arrives à les avoir, car moi non
Dans archives:


Feuille import/calcul:

[patricktoulon]

moi je ne les ai jamais donc ca m'est difficile de te repondre
envoie ta ligne pour voir

[Sebphyto]

cette erreur m'a échapée hier m'etant porté sur l'erreur provoquée sur celle d'avant d'hier

en fait ils vont vite faire le tour avant d'opter pour une suppression de la possibilité de voir le code source seule methode a ce jour efficace a ce jour mais contraignante parce que limitant la possibilité d'utilisation de fichiers externe (css,js,json,ajax) ect.....

donc pour le moment faisons les cravacher hahahahaha!!!!!!!

Ouais mais au pire des cas, vraiment dans extrême, je trouverai un autre site avec le même type de prono....

moi je ne les ai jamais donc ca m'est difficile de te repondre
envoie ta ligne pour voir

Quelle ligne??
Edit cela:

QUINTE Arrivée du QUINTE PMU d'aujourd'hui Dimanche 2 AOUT 2015: 5-12-15-3-7 02/08/2015 [Il est 22:41:39]-Course 4596 PRONOSTICS PRESSE HIPPIQUE POUR LE QUINTE PMU: Prix CLUB MARMARA DEL MAR-ROBERTET-16 partants à 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

Le nomprix n'est pas en entier il manque RoBERET

Au pire c pas grave, ici cela n'a pas vraiment d'importance, pour la course de quinté

[patricktoulon]

re
la ligne textedebut complete

[Sebphyto]

Message précédent edité

Je sais pourquoi....

c'est le tiret entre MAR et Roberet

Prix CLUB MARMARA DEL MAR-ROBERTET-16 partants

aujourd'hui non

[patricktoulon]

re
plutot que t'ennuyer a chercher le erreurs

voila une petite sub qui t'affiche les donnée
il te suffit donc de luimettre la ligne de debut et le messagebox t'affiche les données séparées
ca permet de vite tester et voir surtout visuellement ou est l'erreur

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
20
21
22
23
24
25
26
27
28
Sub test_ligne_debut()
    textedebut = "QUINTE Arrivée du QUINTE PMU d'aujourd'hui Dimanche 2 AOUT 2015: 5-12-15-3-7 02/08/2015 [Il est 22:41:39]-Course 4596 PRONOSTICS PRESSE HIPPIQUE POUR LE QUINTE PMU: Prix CLUB MARMARA DEL MAR-ROBERTET-16 partants à 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"
    oldate = Split(Split(Replace(textedebut, "hui", "hier"), "hier ")(1), ":")(0)
    daystring = Split(oldate, " ")(0)
    oldate = Trim(Format(Split(oldate, daystring)(1), "dd/mm/yyyy"))
    mes = mes & "Date course précèdente :  " & oldate & vbCrLf
    oldarrivée = Trim(Replace(Split(Split(textedebut, ": ")(1), " ")(0), "/", "-"))
    mes = mes & "Arrivée de la course précèdente : " & arrivée & vbCrLf
    newdate = Trim(Replace(Split(Split(textedebut, " le ")(1), ",")(0), "-", "/"))
    mes = mes & "date de la course du jour :  " & newdate & vbCrLf
    nomprix = "Prix" & Split(Split(textedebut, "Prix")(1), "à")(0)
    mes = mes & "nom du prix de la course : " & nomprix & vbCrLf
    If InStr(nomprix, "partants") > 0 Then
        nomprix = Split(nomprix, "-")(0)
        nbpartant = Replace(Split(Split(textedebut, " partants")(0), nomprix)(1), "-", "")
    End If
    mes = mes & "nombre de partants :  " & nbpartant & vbCrLf
    hippo = Split(Split(textedebut, "à ")(1), " ")(0)
    mes = mes & "hippodrome :  " & hippo & vbCrLf
    rc = "R" & Split(Split(textedebut, "Réunion ")(1), " ")(0)
    rc = rc & "C" & Split(Split(textedebut, "Course ")(UBound(Split(textedebut, "Course "))), " ")(0)
    ms = mes & "reunion et course : " & rc & vbCrLf
 
    If InStr(textedebut, "€") > 0 Then dsp = Split(Split(textedebut, "€) ")(1), " PRONOSTICS")(0)
    If dsp = "" Then dsp = "NC"
mes = mes & "discipline de la course : " & dsp & vbCrLf
MsgBox mes
End Sub

[Sebphyto]

Ok merci,
c ce que l'on a dans la feuille d'import...

donc Problème sur le Prix et nbpartant

C drole dans le test que tu m'as filé, j'ai pas l'arrivée, alors que dans le fichier oui et bien aussi dans archives????

[patricktoulon]

voila j'ai trouvé la bonne methode infaiible

regarde nomprix et nbpartants

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
20
21
22
23
24
25
26
27
28
29
30
31
 
je lis le texte en verlan sans rire 
Sub test_ligne_debut()
    textedebut = "QUINTE Arrivée du QUINTE PMU d'aujourd'hui Dimanche 2 AOUT 2015: 5-12-15-3-7 02/08/2015 [Il est 22:41:39]-Course 4596 PRONOSTICS PRESSE HIPPIQUE POUR LE QUINTE PMU: Prix CLUB MARMARA DEL MAR-ROBERTET-16 partants à 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"
    oldate = Split(Split(Replace(textedebut, "hui", "hier"), "hier ")(1), ":")(0)
    daystring = Split(oldate, " ")(0)
    oldate = Trim(Format(Split(oldate, daystring)(1), "dd/mm/yyyy"))
    mes = mes & "Date course précèdente :  " & oldate & vbCrLf
    oldarrivée = Trim(Replace(Split(Split(textedebut, ": ")(1), " ")(0), "/", "-"))
    mes = mes & "Arrivée de la course précèdente : " & oldarrivée & vbCrLf
    newdate = Trim(Replace(Split(Split(textedebut, " le ")(1), ",")(0), "-", "/"))
    mes = mes & "date de la course du jour :  " & newdate & vbCrLf
    nomprix = "Prix" & Split(Split(textedebut, "Prix")(1), "à")(0)
    If InStr(nomprix, "partants") > 0 Then
        nbpartant = StrReverse(Replace(Split(StrReverse(nomprix), "-")(0), "stnatrap ", ""))
 
    End If
    nomprix = Split(nomprix, "-" & nbpartant)(0)
    mes = mes & "nom du prix de la course : " & nomprix & vbCrLf
   mes = mes & "nombre de partants :  " & nbpartant & vbCrLf
    hippo = Split(Split(textedebut, "à ")(1), " ")(0)
    mes = mes & "hippodrome :  " & hippo & vbCrLf
    rc = "R" & Split(Split(textedebut, "Réunion ")(1), " ")(0)
    rc = rc & "C" & Split(Split(textedebut, "Course ")(UBound(Split(textedebut, "Course "))), " ")(0)
    ms = mes & "reunion et course : " & rc & vbCrLf
 
    If InStr(textedebut, "€") > 0 Then dsp = Split(Split(textedebut, "€) ")(1), " PRONOSTICS")(0)
    If dsp = "" Then dsp = "NC"
mes = mes & "discipline de la course : " & dsp & vbCrLf
MsgBox mes
End Sub

re
tiens message

Code :

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

1
2
3
Sub test9()
MsgBox StrReverse("stolrahc ed  ednab éngag av iuq iom tse'c siam tnetsnoc stnemegnahc ruel ceva uof erdner em tnov sli")
End Sub

[Sebphyto]

le verlan, trop fort, je n'y avais pas pensé, il n'y a que toi pour pondre des soluces comme ça, j'adore....
Infaiible tu es

J'imagine qu'il faut que je mets cette partie là

Code :

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

1
2
3
4
If InStr(nomprix, "partants") > 0 Then
        nbpartant = StrReverse(Replace(Split(StrReverse(nomprix), "-")(0), "stnatrap ", ""))
 
    End If

a la place de celle-là

Code :

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

1
2
3
4
 If InStr(nomprix, "partants") > 0 Then
        nomprix = Split(nomprix, "-")(0)
        nbpartant = Replace(Split(Split(textedebut, "partants")(0), nomprix)(1), "-", "")
    End If

Bon je vais te laisser mon cher, car je suis éreinté par cette journée passée en famille....Vive la plage...même si je n'aime pas de trop, je préfère la montagne...je suis en vacances ce soir....

Bonne nuit

On reprend demain si le cœur t'en dit, selon tes dispo biensûr

Séb

[patricktoulon]

lol

bonne nuit

[Sebphyto]

Bonjour Patrick,

Bon pour le nbpartant, c bon on récupère bien le nombre dans la feuille d'import, mais il ne s'inscrit pas dans l'archive....avec ton code test c good aussi...

Bonne journée

Seb