Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Lotto: punt duizendtallen verwijderen  (gelezen 28532 keer)

0 leden en 1 gast bekijken dit topic.

Online JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #75 Gepost op: 24 november 2021, 15:26:18 »
Kan het zijn dat r een tab tussenzit? Die zou je met replace weg kunnen halen😁

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #76 Gepost op: 24 november 2021, 17:04:52 »
Kan het zijn dat r een tab tussenzit? Die zou je met replace weg kunnen halen😁
heb het anders moeten aanpakken maar het lukt , zelfde routine ook gebruikt om alles van de winsten weg te doen tot voor € teken...
nu nog vinden als er geen winnaars zijn ( b.v. "6   : 0 winnaars" of "5+ : 0 winnaars") dan moet deze vervangen worden door "0 winnaars"
ben er mee bezig...
voor de rest werkt het als een zonnetje  :)
@Veerj : moet er veel aangepast worden om ook de trekking van de Woensdag te importeren , net als de zaterdag ? button is reeds voorzien...

Mvg,
Arnold.
               

HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Online JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #77 Gepost op: 24 november 2021, 17:12:05 »
De manier is hetzelfde, er moet alleen gezocht worden welke item van het tagname-element bij de specifieke data hoort.
Als ik tijd heb zal ik kijken voor je.

Het gaat om de nummers die tussen haakjes staat (5)  of (i)  of (4). Daar zou je het eens mee kunnen proberen te vinden.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #78 Gepost op: 24 november 2021, 17:22:24 »
okido , heb het al bekeken maar ga het nog eens proberen... ;)
wat die 0 winnaars betreft : is opgelost met instr en vbtextcompare !
Mvg,
Arnold.

ps : heb bijlage van mijn vorige post verwijderd en de goeie hierbij aangehangen.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #79 Gepost op: 24 november 2021, 19:01:29 »
@Veerj : je moet absoluut NIET kijken voor die woensdag !
ik speel enkel de zaterdag en met vaste nummers , als ik dan de uitslagen zou binnenhalen van de woensdag zou ik er spijt van kunnen krijgen dat ik niet gespeeld heb  ;D.
ik ga de trekking op zich en de datum gewoon zo toevoegen aan het blad "Historie".
iedereen nog een fijne avond.
Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Online JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #80 Gepost op: 24 november 2021, 21:36:36 »
Citaat
spijt van kunnen krijgen dat ik niet gespeeld heb  ;D

Ik snap het! ;D

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #81 Gepost op: 25 november 2021, 09:29:58 »
Goedemorgen !
in mijn bestand worden op sommige plaatsen enkele "ranges "gecleared"
vb :
Range("D5:I5").ClearContents
Range("K5").ClearContents
Range("T8:T16").ClearContents
Range("AI1:AO11").ClearContents

opzoekwerk geeft aan dat ik dit in één rij kan plaatsen : Range("K5, D5:I5, T8:T16, AI1:AI11").ClearContents
waarom werkt dit niet bij mij ?
heb ook al volgende geprobeerd :

With sheets ("Controle")
.Range("K5, D5:I5, T8:T16, AI1:AI11").ClearContents
end with

ook dat werkt NIET ? volgens wat ik vind op het web moet dit wél kunnen?

Mvg,
Arnold.

HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto: punt duizendtallen verwijderen
« Reactie #82 Gepost op: 25 november 2021, 10:05:49 »
Dag Arnold,

Er is ook niets mis met die code.
Dat zou de mogelijke oorzaken wel eens tot één kunnen herleiden, nl. de beveiliging van je werkblad.
Eerst dat maar eens checken?

Mvg,
Molly

PS: later vandaag lees ik nog eens bij  ;)
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Online JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #83 Gepost op: 25 november 2021, 10:51:29 »
Zorg er in ieder geval voor dat er geen samengevoegde cellen aanwezig zijn in die bereiken.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #84 Gepost op: 25 november 2021, 11:01:10 »
Zorg er in ieder geval voor dat er geen samengevoegde cellen aanwezig zijn in die bereiken.
er zijn idd samengevoegde cellen erbij , ik heb alles nu aangepast : geen samengevoegde cellen meer , het wissen kan nu met één regel.
Mvg,
Arnold.

@Molly : beveiliging staat wel degelijk af op het moment van uitvoeren van de code  ;)

HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Lotto: punt duizendtallen verwijderen
« Reactie #85 Gepost op: 25 november 2021, 11:33:19 »
Hallo Arnold,

als er toch samengevoegde cellen in je te "clearen" bereik zitten die je als samengevoegde wilt behouden, dan kan je gebruik maken van een kleine omweg:

Range("A10:A11").UnMerge
   Range("A1:A5,A22,A10:A19").ClearContents
Range("A10:A11").Merge

Groeten,

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #86 Gepost op: 25 november 2021, 11:41:04 »
dankuwel voor de tip ! maar die samengevoegde cellen waren eigenlijk niet nodig , ik had die samengesteld om de volledige cel inhoud te zien tijdens het schrijven van code.
zo moest ik in een cel de volledige inhoud (Uitslag trekking woensdag 24 november 2021) zien maar kon de kolom niet breder maken daarom het samenvoegen.
Mvg,
Arnold.


HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #87 Gepost op: 25 november 2021, 14:48:40 »
ik heb vorige post verwijderd !

wat mij betreft is mijn "programma" nu volledig af...
wat de woensdag trekkingen betreft en het ophalen en invullen van de gegevens : het is doodsimpel , de laatste resultaten staan telkens LINKS op de website , en het zijn juist deze die via de code van "Veerj" worden binnengehaald !
dus als je in de tijdspanne tussen woensdagavond (na de trekking)en zaterdagavond (voor de trekking)  het programma opstart zal je bij het ophalen van de gegevens de trekking van de woensdag krijgen , anders de zaterdag
UPDATE :
programma is aangepast , je krijgt de melding welke trekking het is (woensdag of zaterdag) en je kan dan kiezen om in te vullen of niet , de trekking nummers én datum worden wél ingevuld op het werkblad "Historie"
Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto: punt duizendtallen verwijderen
« Reactie #88 Gepost op: 25 november 2021, 15:35:16 »
Dag Arnold,

Bij mijn vorige post moest het vlug gaan (toch wel weer andere verplichtingen, zeker), en had in vorige versies geen samengestelde cellen aangetroffen, dus daarom daar ook totaal geen rekening mee gehouden. Maar goed, dat is ondertussen weer in orde.

Zoals voorzien alle voorgaande posts eens doorgenomen (ja ja, ik blijf het interessant vinden). Fijn dat er dus een website is gevonden waarvan wél de gegevens zijn binnen te halen. Ik kon het niet laten om daar eens wat dieper in te duiken (je kan ook wat langer in de geschiedenis teruggaan om eerdere trekkingen binnen te halen, merkte ik tussendoor) en wat details aangetroffen die maken dat enkele kleinigheden wat makkelijker/korter/veiliger kunnen.

Bijvoorbeeld, dat de winsten voor 6 en voor 5+ soms wel en soms niet samen in een cel staan (en dus wat omwegjes nodig hebben) kan opgevangen worden door ze allemaal samen op een andere manier binnen te halen en in één beweging te splitten.

De datum die je momenteel in historiek zet is nog geen echte datum maar tekst, al kan ik me voorstellen dat dit niet echt een probleem vormt, maar is wel eenvoudig op te lossen.

Last but not least:
om het helemaal 'professioneel'  :D te maken zou je zelfs de tussenstap langs kolommen AI en volgende helemaal kunnen weglaten!

Zoals gezegd, het zijn kleinigheden, dus met nadruk: gefeliciteerd met je vorderingen!

Het is zoals steeds jouw keuze om eender wat wel of niet te gebruiken, dus liever dan jouw laatste versie aan te passen (zeker door je keuzemogelijkheid over wat er met woensdag moet gebeuren) hier een macro die je eens in een leeg bestand kan testen. Als er zaken bij zitten die je wil implementeren lukt jou dat waarschijnlijk wel. En anders wil ik er uiteraard ook nog eens voor gaan zitten  ;)

Mvg,
Molly

Sub test()

Url = "https://www.geschenkwensen.be/lotto-uitslagen/"
Set xhtml = CreateObject("HTMLFile")
With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", Url, False
    .send
    xhtml.body.innerHTML = .responseText
    datum = DateValue(Split(Replace(Split(xhtml.getElementsByTagName("p")(4).innerText, Chr(13))(1), " ", "|", 1, 1), "|")(1))
    Dim nmbrs
    nmbrs = Split(Replace(Replace(xhtml.getElementsByTagName("p")(5).innerText, " ", ""), "+", Chr(150)), Chr(150))
    reserve = nmbrs(6)
    ReDim Preserve nmbrs(5)
    Dim winst(9) As Variant
    winsten = Split(xhtml.getElementsByTagName("p")(8).innerText, Chr(13))
    For i = 0 To UBound(winsten)
        tmp = Split(Trim(Split(winsten(i), ":")(1)), "€")
        If UBound(tmp) = 0 Then
            winst(i) = tmp(0)
        Else
            winst(i) = CDbl(Replace(Trim(tmp(1)), ".", ""))
        End If
    Next i
End With
Cells(1, 1).Resize(, 6) = nmbrs
Cells(2, 1) = reserve
Cells(3, 1) = datum
Cells(4, 1).Resize(9) = Application.Transpose(winst)

End Sub
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #89 Gepost op: 25 november 2021, 15:40:43 »
hey Molly , ik ga zeker Uw aanbevelingen bekijken , zoals je zegt misschien eerst in een nieuw werkblad.
ik sta ALTIJD open voor verbeteringen/suggesties enz..
het intrigeert me nog altijd dat er blijkbaar geen gegevens zijn binnen te halen van op de officiële website van de Belgische Lotto maar swat , zolang de website blijft bestaan die we nu gebruiken is er geen vuiltje aan de lucht !
dank voor alle hulp  :).
Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

 


www.combell.com