*

Help!

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

Hulp bij posten

Recente topics

Pagina's: 1 2 3 [4] 5 6 ... 11   Omlaag

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

0 leden en 1 gast bekijken dit topic.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto: punt duizendtallen verwijderen
« Reactie #45 Gepost op: 23 november 2021, 11:23:15 »
deze regel staat in het geel : Set ieDoc = .Document
Mvg,
Gelogd

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #46 Gepost op: 23 november 2021, 11:37:14 »
Het lijkt een windows crash te zijn. Wat als je de wachttijd verhoogt naar bijvoorbeeld 10 seconden. Even om te testen wat het doet.
Gelogd

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto: punt duizendtallen verwijderen
« Reactie #47 Gepost op: 23 november 2021, 12:07:17 »
bedoelt U dat ik in volgende regel de 4 moet vervangen door 10 : Application.Wait DateAdd("s", 4, Now) ?
dan krijg ik onderstaande fout...
Maar Veerj  :ge moet er geen tijd meer in steken hoor !
voor die éne keer per week dat ik meespeel met de Lotto ga ik gewoon de resultaten kopiëren en plakken , zoals ik het nu doe.
bij deze nogmaals een dikke merci voor het helpen  _/-\o_.

Arnold.
Gelogd

Offline lommer

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 134
  • Geslacht: Man
Re: Lotto: punt duizendtallen verwijderen
« Reactie #48 Gepost op: 23 november 2021, 12:38:50 »
Arnold,

Heb je bij Verwijzingen Microsoft Internet Controls aangevinkt?
Gelogd
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

Offline mvdvlist

  • Lid
  • *
  • Berichten: 51
  • Geslacht: Man
  • Oplossing.be
Re: Lotto: punt duizendtallen verwijderen
« Reactie #49 Gepost op: 23 november 2021, 12:40:59 »
Nog een kleine variant op de genoemde code, waarmee je van indien nodig ALLE textboxen de punten kunt veranderen in komma`s. Klinkt vreemd, maar dan komt het correct op je werkblad terecht.
Plaats deze code in het event waarmee je de data verzend naar het werkblad...

Code: [Selecteer]
For A = 1 To 111
If InStr(ONDERHOUDFORMULIER.Controls("TextBox" & A).Text, ",") <> 0 Then
  ONDERHOUDFORMULIER.Controls("TextBox" & A).Text = Replace(ONDERHOUDFORMULIER.Controls("TextBox" & A).Text, ",", ".")
End If
Next A

Uiteraard namen en dergelijke even aanpassen. Ook het aantal...
Gelogd

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto: punt duizendtallen verwijderen
« Reactie #50 Gepost op: 23 november 2021, 12:51:28 »
@Lommer : jawel hoor , was al gisterennamiddag gedaan....
@mvdvlist : sry , ik kan je niet volgen  :-[
Mvg,
Arnold.
Gelogd

Offline mvdvlist

  • Lid
  • *
  • Berichten: 51
  • Geslacht: Man
  • Oplossing.be
Re: Lotto: punt duizendtallen verwijderen
« Reactie #51 Gepost op: 23 november 2021, 13:12:37 »
Montagnard,

deze code verwijderd de punten en plaatst daar komma's voor terug. De duizendtallen verdwijnen dan ook.

ipv ONDERHOUDSFORMULIER moet je uiteraard je eigen formuliernaam gebruiken, evenals van de TextBoxen.

Deze moeten dan uiteraard wel een zelfde naam met opvolgend cijfer hebben...
Een cel met tekst geeft hierbij geen foutmelding...
Gelogd

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto: punt duizendtallen verwijderen
« Reactie #52 Gepost op: 23 november 2021, 13:30:29 »
@ mvdvlist : euh ik heb zo'n klein vermoeden dat je op het verkeerde topic bent beland ?
in het lotto bestand zit helemaal geen formulier en textboxen ?
Mvg,
Arnold.
Gelogd

Offline mvdvlist

  • Lid
  • *
  • Berichten: 51
  • Geslacht: Man
  • Oplossing.be
Re: Lotto: punt duizendtallen verwijderen
« Reactie #53 Gepost op: 23 november 2021, 13:57:10 »
Klopt. De leeftijd denk ik. Ging over de duizend tallen...
Gelogd

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #54 Gepost op: 23 november 2021, 14:01:26 »
Kleine tip (doet verder niets):

Code: [Selecteer]
If InStr(ONDERHOUDFORMULIER.Controls("TextBox" & A).Text, ",") <> 0 Then

Kan geschreven worden als

Code: [Selecteer]
If InStr(ONDERHOUDFORMULIER.Controls("TextBox" & A).Text, ",") Then
Als de uitkomst groter is dan nul, pakt de standaard ingebakken "Boolean" evaluatie binnen IF dit automatisch op ;)

Edit: ik heb het niet bekeken maar de controle op een komma in een cel is niet nodig voordat je het vervangt.
Replace kijkt of de komma aanwezig is, anders doet het niets. Controle met INSTR lijkt hiermee overbodig.
Gelogd

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto: punt duizendtallen verwijderen
« Reactie #55 Gepost op: 23 november 2021, 14:15:06 »
Citaat van: MollyVH op 22 november 2021, 18:25:29
2) je winstverdeling staat ondersteboven, dat gaat heel lucratief worden  :D :D :D
ik heb dat dan toch maar veranderd zodat de kolom met winsten gelijk is aan de kolom met winsten op de website...scheelt een (beetje) ingewikkelde "for next lus" en makkelijker : kopieer de range en plak ze in de betreffende kolom..
Mvg,
Arnold.
Gelogd

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto: punt duizendtallen verwijderen
« Reactie #56 Gepost op: 23 november 2021, 15:10:40 »
Hallo,

Na een serie andere verplichtingen wil ik nog even reageren op de posts van de pakweg voorbije 24 uur  ;)

@ Veerj,
Ik kreeg dezelfde foutmelding die Arnold in #38 al had aangegeven, en eveneens met je daaropvolgende code.
Heb er enkel uit nieuwsgierigheid even mee geëxperimenteerd, dus zeker geen behoefte aan een mogelijke oplossing.

@ Arnold,
Het gaat er dus beter en beter uitzien. Na je laatste post heb ik opnieuw een kleine bedenking: als je maar één keer per week speelt, zal je historiek van getrokken nummers dan niet onvolledig zijn?

Mvg,
Molly
Gelogd
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 JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #57 Gepost op: 23 november 2021, 15:20:19 »
Jammer dat het niet werkt. Ik begrijp niet waarom het bij mij wel werkt, maargoed. Toch nog een poging hieronder
Webscraping is trouwens geen betrouwbare methode. Bij een kleine wijziging op de achtergrond van de pagina werkt de code niet meer.

Waar mogelijk gebruik power query. Ik zag dat het hier niet mogelijk was, gezien de wens is een tekstveld op te halen ipv een tabel.


Code: [Selecteer]
Sub tabelophalen()
 With CreateObject("InternetExplorer.Application")
    .Visible = True
    .Navigate "https://www.e-lotto.be/NL/drawGames/lotto/results/result/last"
   
     Do While .ReadyState <> READYSTATE_COMPLETE: DoEvents: Loop
     Application.Wait DateAdd("s", 10, Now)
         
     Set ieDoc = .Document
     Set ieTxt = ieDoc.getElementsByClassName("results")(0)
   
     ThisWorkbook.Sheets(1).Cells(5, 4).Resize(, 8) = Split(Replace(ieTxt.InnerText, "+", ""), vbCrLf)
    .Quit
 End With
End Sub

Gelogd

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto: punt duizendtallen verwijderen
« Reactie #58 Gepost op: 23 november 2021, 15:24:01 »
@ Molly : weeral juist , nog niet aan gedacht....(ik wordt oud  ;D).
ga dus de uitslagen van de Woensdag ook importeren.
 wat dat importeren betreft van de website , ik denk dat het aan de website zelf ligt , ik kan in mijn versie van Excel naar "gegevens" gaan , "van het Web" , er wordt een soort van "query" opgestart (ik heb daar nul ervaring mee) waarbij ik de URL moet ingeven.
normaal zou ik dan enkele "tabels" moeten krijgen maar krijg enkel de website en daaronder "document" maar kan daar niets mee aanvangen.
zie screencopy.

Mvg,
Arnold.
Gelogd

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #59 Gepost op: 23 november 2021, 15:26:56 »
De website geeft je geen tabel terug. Daarom werkt het niet en is het dus niet mogelijk om power query te gebruiken.

Je zou de code kunnen proberen.

Als die nog niet werkt, zou je onderstaande nog kunnen verwijderen. Dus alleen de wachttijd als vertraging houd je dan over
Code: [Selecteer]
Do While .ReadyState <> READYSTATE_COMPLETE: DoEvents: Loop
Gelogd
Pagina's: 1 2 3 [4] 5 6 ... 11   Omhoog
 


www.combell.com