More of those Lotto Numbers

Written a great script? - Share it here.
johnturnbull
Site Admin
Posts: 116
Joined: Tue Jan 03, 2012 6:50 pm
Contact:

More of those Lotto Numbers

Postby johnturnbull » Fri Jul 14, 2017 6:42 pm

Requirement...
To copy the six numbers, bonus ball and date from this page..
https://loteries.lotoquebec.com/en/lotteries/lotto-6-49
and paste them to separate cells in Excel.

First, copy from date to bonus ball.....

Lotto.jpg
Lotto.jpg (12.31 KiB) Viewed 27 times


The clip should look like this...
July 5, 2017
Lotto 6/49
040933364749 Bonus (B) 10

Then run this script.....

[[Script]]
'--------------------
'Text1 is the 6 numbers, Text2 is the bonus, Text3 is the date
'--------------------
Text9 = LastCopy
Text2 = Right$(Text9 , 2)
Counter1 = In$(Text9 , LineBreak , 1)
Text3 = Left$(Text9 , Counter1 - 1)
Counter2 = In$(Text9 , LineBreak , Counter1 + 1)
Text1 = Mid$(Text9 , Counter2 + 2 , 12)
Message1 "Select first Excel cell and click continue"
Counter1 = -1
Loop 6
   Counter1 = Counter1 + 2
   Text9 = Mid$(Text1 , Counter1 , 2)
   Paste Text9
   Type Right
EndLoop
Paste Text2
Type Right
Paste Text3

 

Return to “Spartan Scripts”

Who is online

Users browsing this forum: No registered users and 1 guest