How To Preserve Succeed Lottery Information Into A Written text Data file Using VBA Code

If you’re part of one of the online lotto analysis solutions, sometimes you need to publish a text file of figures to their web page. This content reveals you how to choose and then save an Succeed data set into a easy comma delimited text file, prepared for posting.

The Comma Delimited Lottery Written text Data file Format

Delimited text is a phrase often used in the adjustment of information. It is basically a way of splitting data so it can be used by a wide range of requirements and programs. An example of text in a comma delimited file might look like this:






Our purpose is to take data from a worksheet and save it into a text file in a comma delimited structure as seen above.

The VBA System code To Trade The Lottery Data

Our code reasoning might be along these lines:

Choose the information to be exported
Make the writing file
Look at the information into the file
Preserve and near the file

First, we’ll make some factors to use in the code and choose the piece where the information takes place.

Dim fso As FileSystemObject

Dim myFile As TextStream

Dim txt As String

Dim rng As Range

Dim myStartRow,myRows, myCols As Long

Dim startCell, endCell As String




The great information is you just need to look at the last range in the code above. The range describes where you want the export data to begin with from; in this example we want the last five collections of lotto outcomes.

Now we can choose the information in the piece we want to export.

myRows = ActiveCell.End(xlDown).Row

myCols = ActiveCell.End(xlToRight).Column

startCell = ActiveCell.Offset(myRows – myStartRow, 0).Address

endCell = ActiveCell.Offset(myRows – 1, myCols – 1).Address

Set rng = Range(startCell, endCell)

When you run the code above in a new VBA component it should emphasize the last five series of information.

Finally we just need to begin with up the new text file, shift through the chosen data and save it.

Set fso = New FileSystemObject

Set myFile = fso.OpenTextFile(ActiveWorkbook.Path & “lottoFile.txt”, 2, True)

For x = 1 To rng.Rows.Count

For y = 1 To rng.Columns.Count

txt = txt & rng.Cells(x, y) & “,”


txt = Mid(txt, 1, Len(txt) – 1)

myFile.WriteLine txt

txt = “”



Set myFile = Nothing

Set fso = Nothing

Development Of The VBA Lottery Information Trade Code

The code chooses the last five outcomes and helps you to save them into a text file. This method could be further designed to narrow outcomes according to your analysis needs.

Mid desk results
Filtration for particular figures or groups
Appending data rather than overwriting the current file

How To Use Succeed And VBA Make A Record Of Exclusive Figures From Past Lottery Draws

One of the concepts lotto scientists enhance is that some numbers have a great regularity of happening. These hot numbers are then more likely to be sucked in following outcomes.

This content will show you how a few collections of VBA rule can list and depend the initial numbers from latest lotto attracts.

Setting Up The Lottery Information In Excel

With a Succeed data file you can duplicate the numbers from some latest attracts straight into the worksheet. Your details might look something like this:

4 5 12 30 35 36 43

17 5 27 22 29 35 31

18 35 25 6 19 24 12

16 10 40 19 21 31 1

29 40 16 33 15 45 23

These are actually the last five several weeks is caused by the “Oz Lotto” activity in Sydney.

Out purpose is to depend the initial numbers and then list them; these become our “hot” numbers for upcoming attracts.

Writing The VBA Code To Discover The Exclusive Numbers

With our data held in piece one we’re prepared to develop a brief component to discover the initial numbers. We’ll begin by interpreting some factors and a vocabulary mind shop the numbers.

Dim rng As Range

Dim x, y, z As Long

Dim txt As String

Dim dictTemp

Set dictTemp = CreateObject(“Scripting.Dictionary”)

Next, we’ll choose the information in planning for filtration the initial numbers.



Set rng = ActiveCell.CurrentRegion

The “current region” control is extremely effective in VBA and gives you the capability to pick data quickly.

Now we can cycle through the information and add each variety to the vocabulary, but only if it were included already.

For x = 1 To rng.Rows.Count

For y = 1 To rng.Columns.Count

z = rng.Rows(x).Columns(y)

If Not dictTemp.exists(z) Then dictTemp.Add z, z



The “for and next” cycle can seem a little complicated. Successfully we’re looking at each line within each row before shifting to the next row. This kind of control is sometimes known as a stacked loop: a cycle within a cycle.

Our vocabulary should now only contain unique principles, so we’re prepared to develop an overview.

rng.End(xlDown).Offset(2, 0).Select

ActiveCell.Value = “Summary”

ActiveCell.Offset(1, 0) = “Total numbers: ”

ActiveCell.Offset(1, 2) = rng.Cells.Count

ActiveCell.Offset(2, 0) = “Number Count: ”

ActiveCell.Offset(2, 2) = dictTemp.Count

Finally we can advise our rule to actually make the initial numbers out. These might make up the reasons for numbers you can then use in new mixtures.

ActiveCell.Offset(3, 0) = “Numbers:”

txt = “”

For Each key In dictTemp

txt = txt & key & “,”


ActiveCell.Offset(3, 2) = txt

When I ran the rule, the outcome was the following outcome published two collections below the information set.


Total numbers:   35

Number Count:   26

Numbers:   4,5,12,30,35,36,43,17,27,22,29,31,18,25,6,19,24,16,10,40,21,1,33,15,45,23

The rule could quickly be designed to deliniate the copied numbers which you might determine as hot numbers. Instead of including only unique numbers you might add copied numbers to second vocabulary or range.

Lottery Mixtures And How To Decrease The Amount Of Collections Required

Once you’ve exercised some successful lotto numbers the enticement is to buy a few lines affordably and see how the next attract comes out. This article investigates the amounts needed for various number combinations and how to reduce the lines needed.

The Variety Of Mixtures Required In A Conventional Lottery Game

In a standard lotto bet on 40 paintballs the desk below information the amount of lines you need to protect various choices of 6 numbers per line. For example, the combinations required to make sure protection of 10 numbers is 210.

7: 7

10: 210

15: 5,005

20: 38,760

25: 177,100

30: 593,775

35: 1,623,160

Some of those numbers are quite daunting; no gamer would ever consider investing over $200 to protect just 10 numbers.

The problem is the combinations in the desk are cover combinations. To save space, we’ll look at the protecting the first 7 numbers.

1 2 3 4 5 6

1 2 3 4 5 7

1 2 3 4 6 7

1 2 3 5 6 7

1 2 4 5 6 7

1 3 4 5 6 7

2 3 4 5 6 7

This type of mixture would be unlikely to win in the next attract so the idea might be to choose higher number varies. For example these 7 numbers will give a higher range through each number team.


Running the new numbers through a lotto mixture creator gives the following lines:

Combos: 7

10 12 20 23 28 36

10 12 20 23 28 38

10 12 20 23 36 38

10 12 20 28 36 38

10 12 23 28 36 38

10 20 23 28 36 38

12 20 23 28 36 38

A better distribute of numbers but still too few can be expected a successful mixture.

Improving Your Lottery Results By Filtration Out Unlikely Numbers

One way of helping the amount of combinations would be to eliminate uncommon combinations and styles. In the information desk above we can see immediately there are few odd numbers and so less primary numbers as well; two efficient number categories that seem to return to their regular submission.

Another choice would be to consider track record and eliminate numbers that have a high regularity.

Another interesting area to consider might be audience seeking lotto choices. This happens where large combinations have a confirmed record and the numbers are dispersed around several of gamers and town helps with research.