Auteur Topic: Lotto Controle vernieuwde website (gelezen 5562 keer)

MollyVH · « **Reactie #15 Gepost op:** 05 april 2023, 12:34:10 »

Dag Arnold,

Ik was er toch net beginnen naar kijken. En inderdaad, bij de minste wijziging aan de website kan het puzzelen herbeginnen, zoals ook JEC al een beetje voorspeld had:

Citaat

Webscraping zal altijd onbetrouwbaar blijven gezien pagina’s kunnen veranderen

Aan de versie die jij vandaag had doorgestuurd zou op het eerste zicht heel wat aanpaswerk moeten gedaan worden. Op de laatste versie die ik jou had bezorgd moesten slecht enkele kleinigheden gewijzigd worden, ze was klaar vooraleer ik je laatste post zag, dus ik bezorg ze toch maar. Op de lange termijn zal de methode van Jean-Pierre (waarin ook nog wat zaken van mijn hand kunnen aangetroffen worden

) inderdaad de beste keuze zijn.

Mvg,
Molly

Montagnard · « **Reactie #16 Gepost op:** 05 april 2023, 12:57:49 »

Dankuwel Molly , het werkt weer

.....zolang het werkt ga ik toch deze weer gebruiken ,is toch o zo makkelijk

nog een fijne dag.....
Mvg,
Arnold.

ps : de versie die ik had bijgevoegd wijkt idd sterk af van Uw versie , ik heb hier zodanig veel versies staan dat ik me daar blijkbaar in heb vergist.
ik heb nu nog 2 versies staan : de Uwe en deze van jean-pierre.

Montagnard · « **Reactie #17 Gepost op:** 05 april 2023, 14:47:40 »

ben bezig met experimenteren naar andere vorm maar volgende lukt me langs geen kanten :
hoe kan ik de cijfers in cel A1 uitsplitsen naar aparte cellen ?
heb al geprobeerd met instr en midstr enz maar lukt niet...
Mvg,
Arnold.

popipipo · « **Reactie #18 Gepost op:** 05 april 2023, 14:56:03 »

Met de standaard functie van excel 'TEKST NAAR KOLOMMEN' is het een fluitje van een cent.

MollyVH · « **Reactie #19 Gepost op:** 05 april 2023, 15:19:56 »

Maar aangezien het waarschijnlijk deel zal uitmaken van een groter geheel misschien toch maar een stukje code (er zitten wel weer 'rare' tekens in):

Code: [Selecteer]

Sub splitsen()

getallen = Replace(Cells(1, 1), Chr(160), "")
spl = Split(getallen, "+")
res = Val(spl(1))
zes = Split(spl(0), Chr(150))
For i = 0 To 5
    zes(i) = Val(Replace(zes(i), " ", ""))
Next i
Cells(1, 3).Resize(, 6) = zes
Cells(1, 10) = res

End Sub

Mvg,
Molly

Montagnard · « **Reactie #20 Gepost op:** 05 april 2023, 17:39:06 »

Hey Molly , thanks

...
het maakt idd deel uit van meer : als je via de methode van Jean-Pierre ( website lotto) werkt dan is het een gedoe om de juiste gegevens te kopiëren , omdat je het bijna niet op een pagina krijgt in de browser , ik ga dat nu aanpassen naar de website ven "geschenken" omdat de te kopiëren gegevens veel compacter staan op de webpagina.
zolang het werkt met Uw code ( web scraping) via "geschenken" ga ik dat zeker verder gebruiken want het is zeer gemakkelijk , maar als de layout ook daar weer veranderd wil ik dezelfde website gebruiken maar dan via de methode van Jean-Pierre...
Mvg,
Arnold.

MollyVH · « **Reactie #21 Gepost op:** 06 april 2023, 10:45:32 »

Hallo Arnold,

Citaat

aanpassen naar de website ven "geschenken" omdat de te kopiëren gegevens veel compacter staan op de webpagina

Met de opgedane ervaring betreffende zowel lotto- als geschenkwensen-website lijkt me dat een geschikt compromis, én het is meteen een mooie oefening. Er zullen mogelijk nog enkele uitdagingen moeten overwonnen worden, maar geenszins onoverkomelijk.
Succes !

Mvg,
Molly

Montagnard · « **Reactie #22 Gepost op:** 06 april 2023, 14:49:57 »

Hey Molly ,
er was idd nog een grote uitdaging (voor mij althans) : de winstbedragen uitsplitsen uit de opgehaalde gegevens......
mogelijks trekt mijn "code" weer op niks maar het doet wat het moet doen , alhoewel ik ervan overtuigd ben dat het anders op een "modernere" wijze kan ?.
als het je past wil je het eens nakijken daarnaar , in module 1 na de "Rem splits de opgehaalde gegevens van de winsten en vul de winst bedragen in"
voor de rest werkt het prima.
Mvg,
Arnold.

MollyVH · « **Reactie #23 Gepost op:** 06 april 2023, 18:01:53 »

Hoi Arnold,

Mijn vorige code om de getrokken getallen te verwerken moest ook nog een aanpassing ondergaan, ze stonden er nog als tekst (maar toen wist ik nog niet exact wat er verder mee moest gebeuren).
En dat is ook wat jij nog meemaakt met de winsten waardoor de formules in kolom V niet werken, voor de rest had je het inderdaad goed in orde

Verder heb ik (noem het maar beroepsmisvorming

) de formules in kolom V allemaal dezelfde gemaakt.
Om dat ook bij 0-winsten te laten werken moest de opmaak van kolom T wat aangepast worden: je ziet nu "geen winnaars" maar er staat een 0

Mvg,
Molly

snb · « **Reactie #24 Gepost op:** 06 april 2023, 18:29:04 »

Ik heb de webpagian van JEC opgeslagen als G:\OF\lotto.htm.
Daarna deze code erop losgelaten.

Code: [Selecteer]

Sub M_snb()
  sn = Split(Split(CreateObject("scripting.filesystemobject").opentextfile("G:\OF\lotto.htm").readall, "De Nationale Loterij van Belgi")(0), " Uitslag trekking ")
  
  For j = 1 To UBound(sn)
    c00 = Replace(Replace(Replace(Replace(Replace(Join(Filter(Split(Replace(Replace(sn(j), "<", "<~"), ">", "~<"), "<"), "~", 0), ""), "&#8211;", "_"), "â", ""), "Â", ""), "¬", ""), Chr(160), "")
    sn(j) = Replace(Replace(Split(c00, "Lijst")(0), vbLf & vbLf, vbLf), vbLf & " ", vbLf)
  Next
  sn(0) = ""
  sn = Split(Join(sn, ""), vbLf)
  Cells(1).Resize(UBound(sn) + 1) = Application.Transpose(sn)
  Columns(1).TextToColumns , 1, -4142, , False, False, False, False, True, ":"
  Columns(1).Resize(, 3).AutoFit
End Sub

SoftAid · « **Reactie #25 Gepost op:** 06 april 2023, 18:34:35 »

Citaat van: snb op 06 april 2023, 18:29:04

Sub M_snb()
... "De Nationale Loterij van Belgi"....
...
...

Belgi" ...? En dat werkt??

Groeten,

SoftAid

MollyVH · « **Reactie #26 Gepost op:** 06 april 2023, 18:45:16 »

@ SoftAid,

Bij mij werkt dat (om de eenvoudige reden dat het zomaar tekst is), MAAR:

@ snb,

Een niet onaardige aanpak, maar dat zal van de gebruiker wel méér acties vragen dan minder (en om minder was het hier duidelijk te doen...)

SoftAid · « **Reactie #27 Gepost op:** 06 april 2023, 18:52:42 »

Citaat van: MollyVH op 06 april 2023, 18:45:16

Bij mij werkt dat om de eenvoudige reden dat het zomaar tekst is

Als je tekst split, en Belgi" werkt, dan komt die Belgi" voor in de te spitten tekst.

Zo kan je alles verklaren, dat is juist....

Sorry dan van mijn opmerking

SoftAid

MollyVH · « **Reactie #28 Gepost op:** 06 april 2023, 19:03:49 »

Hallo SoftAid,

Citaat

Sorry dan van mijn opmerking

Oeps, ik wou helemaal niet je opmerking ongeldig verklaren

, alleen maar er even op wijzen dat snb er op die manier wel mee kan wegkomen.
Mijn eigen opmerking is ook niet ten volle juist, snb zorgt er daarmee alleen maar voor dat in het daarna bekomen resultaat een aantal overbodige rijen niet zullen verschijnen (met een willekeurige tekst bv. zullen ze dat wél, maar wezenlijk verschil maakt het ook dan niet).
De essentie van mijn post was m.a.w. geheel aan snb gericht!

Mvg,
Molly

SoftAid · « **Reactie #29 Gepost op:** 06 april 2023, 19:07:58 »

OK Molly,

mijn paard is niet voldoende beslagen om mij te mengen in het debat, ik laat het aan jou over.

Groeten, ook aan snb

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics