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 28538 keer)

0 leden en 1 gast bekijken dit topic.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #60 Gepost op: 23 november 2021, 15:35:51 »
Hey Veerj  , geweldig dat je toch nog verder zoekt , ikzelf zie het momenteel niet meer zitten , ben beetje moe in mijn hoofd....
gelijk wat ik probeer met Uw code ( en ALLE andere suggesties van op het web) , ik krijg altijd fouten terug ofwel niks !
eerst met Uw laatste code MET die regel erbij zie screencopy.
doe ik die regel weg zoals U aanbeveelt dan krijg ik weer die fout bij "Set ieDoc = .Document"....
ik ga het nu allemaal eventjes van mij afzetten...
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 JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #61 Gepost op: 23 november 2021, 15:40:08 »
Geen probleem ;D
Ik zou het webscrapen ook helemaal loslaten. Het is mooi als het werkt maarja, het reageert blijkbaar niet op iedere pc hetzelfde.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #62 Gepost op: 23 november 2021, 15:43:44 »
Thanks Veerj !
mocht je toch nog zin hebben , dit benadert volgens mij het dichtst wat ik wil bereiken , maar kan het niet toepassen op de website van de Lotto...
ik heb de code als Excelbestand bijgevoegd.
Mvg,
Arnold.

https://www.youtube.com/watch?v=IOzHacoP-u4&t=5s

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 JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #63 Gepost op: 23 november 2021, 18:11:52 »
De website waar jij de getallen vandaan haalt laat het op een of andere manier niet toe om ze via die manier te "scrapen"

Dit is de Nederlandse trekking. Werkt prima

Sub jec()
 Url = "https://lotto.nederlandseloterij.nl/trekkingsuitslag"
 Set xhtml = CreateObject("HTMLFile")
 
 With CreateObject("MSXML2.XMLHTTP")
   .Open "GET", Url, False
   .send
    xhtml.body.innerHTML = .responseText
    XX = xhtml.getElementsByClassName("draw-result").Item(0).innerText
 End With
 MsgBox XX
End Sub

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #64 Gepost op: 23 november 2021, 19:10:31 »
Hieronder een suggestie vanaf een andere website(Belgische uitslag)
Open een nieuw werkboek en run de code. De lottonummers worden in D5:J5 gezet.

Sub jecc()
 Url = "https://eurooppalotto.nl/europese-loterijen/belgische-lotto-16.html"
 Set xhtml = CreateObject("HTMLFile")
 
 With CreateObject("MSXML2.XMLHTTP")
   .Open "GET", Url, False
   .send
    xhtml.body.innerHTML = .responseText
   XX = xhtml.getElementsByTagName("ul")(0).innerText
 End With
 ThisWorkbook.Sheets(1).Range("D5").Resize(, 7) = Split(XX, vbCrLf)
End Sub

Offline mvdvlist

  • Lid
  • *
  • Berichten: 40
  • Geslacht: Man
  • Oplossing.be
Re: Lotto: punt duizendtallen verwijderen
« Reactie #65 Gepost op: 23 november 2021, 19:19:46 »
Hallo Jveer,

als reactie op #54,

inderdaad heb je gelijk, maar het geeft zoals je al aangaf geen foutmeldingen.

Inderdaad, als ik bv in een array dit gebruik, zeg TextBox1 = Datum, TextBox 2 is tekst en TextBox3 is een bedrag of getal dan doe ik het gewoon simpel:

arr = array(Cdate(TextBox1.Value), TextBox2.value, Replace(TextBox3.value, "." , ","))

Dat werkt altijd feilloos...


Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #66 Gepost op: 23 november 2021, 19:34:41 »
Precies, aanpakken bij de bron :)

Offline mvdvlist

  • Lid
  • *
  • Berichten: 40
  • Geslacht: Man
  • Oplossing.be
Re: Lotto: punt duizendtallen verwijderen
« Reactie #67 Gepost op: 23 november 2021, 19:36:48 »
De kortste route inderdaad. Even een onderonsje tussendoor.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #68 Gepost op: 24 november 2021, 07:54:18 »
Goedemorgen !
@Veerj : beide codes werken idd perfect.
nu nog een methode vinden om ook de winsten binnen te halen...

ik heb nog een website gevonden met de uitslagen , heb daar ook al van alles geprobeerd maar het lukt me ook daar niet om gegevens binnen te halen :
https://www.geschenkwensen.be/lotto-uitslagen/

ik heb bovenstaande website willen gebruiken in combinatie met die code uit mijn reactie#62 (rechts klikken op die website , 'inspecteren' en dan de class zoeken) , ik heb denk ik een goeie "class" gevonden : section class="av_textblock_section " maar dan is mijn kennis te klein om via die code dat (textblock) ook binnen te halen...
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 JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #69 Gepost op: 24 november 2021, 11:37:07 »
Probeer deze eens. Nu staan de winstteksten in zijn geheel in 1 cel. Zou ook nog anders kunnen.

Sub jecc()
 Dim ar()
 Url = "https://www.geschenkwensen.be/lotto-uitslagen/"
 Set xhtml = CreateObject("HTMLFile")
 
 With CreateObject("MSXML2.XMLHTTP")
   .Open "GET", Url, False
   .send
    xhtml.body.innerHTML = .responseText
    nmbrs = Split(Replace(Replace(xhtml.getElementsByTagName("p")(5).innerText, " ", ""), "+", Chr(150)), Chr(150))
    For i = 21 To 28
       ReDim Preserve ar(x)
       ar(x) = xhtml.getElementsByTagName("strong")(i).innerText
       x = x + 1
    Next
 End With
 
 With ThisWorkbook.Sheets(1)
    .Range("D5").Resize(, 7) = nmbrs
    .Range("D7").Resize(x) = Application.Transpose(ar)
 End With
End Sub

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #70 Gepost op: 24 november 2021, 11:57:43 »
Woeha ! dat is em ! die winsten staan wel degelijk elk in een rij UITGENOMEN de 1ste rij : daar staan 6 winnaars en 5+ in één cel maar als ik op de cel klik dan zie ik enkel staan "6: 0 winnaars....
anders ben ik supercontent ! dat uitsplitsen om enkel de bedragen uit die cellen te halen zal me wel lukken.
dikke merci !
zou het eventueel ook mogelijk zijn om de datum mee te pikken ? maar dat hoeft absoluut niet als he te ingewikkeld wordt....
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 JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #71 Gepost op: 24 november 2021, 13:10:55 »
Alstu!

Sub jecc()
 Dim ar()
 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 = xhtml.getElementsByTagName("p")(4).innerText
    nmbrs = Split(Replace(Replace(xhtml.getElementsByTagName("p")(5).innerText, " ", ""), "+", Chr(150)), Chr(150))
    For i = 21 To 28
      For Each it In Split(xhtml.getElementsByTagName("strong")(i).innerText, vbCrLf)
         ReDim Preserve ar(x)
         ar(x) = it
         x = x + 1
      Next
    Next
 End With
 
 With ThisWorkbook.Sheets(1)
    .Range("D4") = datum
    .Range("D5").Resize(, 7) = nmbrs
    .Range("D7").Resize(x) = Application.Transpose(ar)
 End With
End Sub

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #72 Gepost op: 24 november 2021, 13:42:35 »
tis zoals Piet Huysentruyt zou zeggen : de Perfectie !
is er iets waarmee ik U kan plezieren ? kan ik iets terugdoen voor U ?
in elk geval nogmaals dikke dankuwel  :).
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 JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #73 Gepost op: 24 november 2021, 14:00:26 »
Graag gedaan!  :) Mooi om te horen dat het werkt. Hopelijk valt er iets van te leren.
Een reactie op een geboden oplossing is voor mij al voldoende. Dat zit bij jou zeker goed! :thumbsup:

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #74 Gepost op: 24 november 2021, 14:14:45 »
Graag gedaan!  :) Mooi om te horen dat het werkt. Hopelijk valt er iets van te leren.
Een reactie op een geboden oplossing is voor mij al voldoende. Dat zit bij jou zeker goed! :thumbsup:
ik ben je geweldig dankbaar ! ik doe mijn uiterste best om het te begrijpen maar ik heb nooit de "moderne" versie van VBA geleerd en de code die Jullie gebruiken is voor mij heel moeilijk.
ik ben 46 jaar geleden eigenlijk begonnen met een Commodore 64 en zijn "Basic" , daarom dat het er bij mij nog altijd inzit om te werken met 'Goto - for next' enz...
pas sedert ik "ons" forum heb ontdekt ben ik me weer en meer gaan interesseren in VBA.
gezien het groot aantal vragen hier op het forum blijkt wel dat Excel heel veel gebruikt wordt én de mogelijkheden enorm zijn.

als ik je nu nog een keer mag "lastig " vallen : moet er veel veranderd worden om op dezelfde website de trekking van de Woensdag (met alles zoals voor de zaterdag) binnen te halen ?
mijn vraag komt er omdat de beide uitslagen perfect naast elkaar staan...
normaal speel ik de woensdag niet maar het zou interessant zijn om ook die te implementeren in mijn bestand , eventueel via een andere Command button.

Mvg,
Arnold.

Update : toch nog foutje bij het binnenhalen van de Datum , zie screencopy (beetje zelfde als de fout met 6 winnaars en 5+ ?)
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