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

0 leden en 1 gast bekijken dit topic.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 1.642
  • 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.
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

Offline JEC

  • Ervaren lid
  • ***
  • Berichten: 329
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: 1.642
  • 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.



« Laatst bewerkt op: 23 november 2021, 15:49:00 door Montagnard »
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

Offline JEC

  • Ervaren lid
  • ***
  • Berichten: 329
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

  • Ervaren lid
  • ***
  • Berichten: 329
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: 26
  • Geslacht: Man
  • Oplossing.be
    • Zwarevrachten
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

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

Offline mvdvlist

  • Lid
  • *
  • Berichten: 26
  • Geslacht: Man
  • Oplossing.be
    • Zwarevrachten
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: 1.642
  • 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.
« Laatst bewerkt op: 24 november 2021, 08:13:30 door Montagnard »
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

Offline JEC

  • Ervaren lid
  • ***
  • Berichten: 329
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: 1.642
  • 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.
« Laatst bewerkt op: 24 november 2021, 12:24:43 door Montagnard »
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

Offline JEC

  • Ervaren lid
  • ***
  • Berichten: 329
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: 1.642
  • 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.
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

Offline JEC

  • Ervaren lid
  • ***
  • Berichten: 329
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: 1.642
  • 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+ ?)
« Laatst bewerkt op: 24 november 2021, 15:05:20 door Montagnard »
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

 


www.combell.com