powershell lottery wheel that use your lucky numbers and outputs it to csvPrev TopicNext Topic

• timmsy

  

  Australia
  Member #154,621
  April 23, 2014
  228 Posts
  Offline
  Dec 27, 2017, 7:29 am

  ▲▼

  this script picks 9 random  lucky numbers  2000 times and outputs it to a .csv file ,, it can be customized to suite other lotteries

   

  $num = "2000" # how many games you like to play 

  $pick = "9" # how many numbers you like to use
  $mynum = 19,33,25,40,20,5,3,27,2,7,35,21,28,17,34,6,16,1,29,8,44,22,13,37,26,41,43,23,15,39 # your lucky numbers

  
  $file1 = "C:\Temp\random7.txt"
  $file2 = "C:\Temp\random8.csv"
  $file3 = "C:\Temp\random9.csv"
  $file4 = "C:\Temp\random10.csv"

  
  If (Test-Path($file1 )) {Remove-Item $file1}
  If (Test-Path($file2 )) {Remove-Item $file2}
  If (Test-Path($file3 )) {Remove-Item $file3}
  If (Test-Path($file4 )) {Remove-Item $file4}

  $numbers = for ($x = 1; $x -lt $num; $x++)
  {
  
  

  (Get-Random -InputObject ($mynum) -Count $pick | sort-object ) -join (",") | Out-File -Append -FilePath $file1

  }

  Get-Content $file1 | Foreach-Object {($_ -replace "\s+",",")}|Out-File -FilePath $file2 -Encoding OEM
  
  Import-Csv -Delimiter "," -Header @("a","b","c","d","e","f","g","h","i") -Path $file2 | select a,b,c,d,e,f,g,h,i | ft -auto |Out-File -FilePath $file3 -Encoding OEM
  
  $FileContent = gc $file3
  $FileContent = $FileContent[3..($FileContent.Count - 2)]
  $FileContent | Out-File $file3
  Get-Content $file3| Foreach-Object {($_ -replace "\s+",",")}|Out-File -FilePath $file4 -Encoding OEM -Append
  $content = Get-Content -Path $file4
  $content -notmatch '(^[\s,-]*$)|(rows\s*affected)' | Set-Content -Path $file4
  Start-Process $file4
• timmsy

  

  Australia
  Member #154,621
  April 23, 2014
  228 Posts
  Offline
  Dec 27, 2017, 5:50 pm

  ▲▼

  then use this vba  in, ths csv  to find most common  7  lucky numbers   ,,,   

   

  Sub combo7()
  On Error Resume Next
  Dim a%, b%, c%, d%, e%, f%, g%, m%, n&, i&, dc As Object, k, T()
  Set dc = CreateObject("Scripting.Dictionary")

  With ActiveSheet
  n = .Cells(.Rows.Count, 1).End(xlUp).Row
  For i = 1 To n
  For a = 2 To 4
  For b = a + 1 To 5
  For c = b + 1 To 6
  For d = c + 1 To 7
  For e = d + 1 To 8
  For f = e + 1 To 9
  For g = f + 1 To 10
  k = .Cells(i, a) & "|" & .Cells(i, b) & "|" & .Cells(i, c) & "|" _
  & .Cells(i, d) & "|" & .Cells(i, e) & "|" & .Cells(i, f) & "|" & .Cells(i, g)
  If dc.exists(k) Then
  m = CInt(dc(k)) + 1: dc(k) = m
  Else
  dc(k) = 1
  End If
  Next g
  Next f
  Next e
  Next d
  Next c
  Next b
  Next a
  Next i
  End With
  
  For i = 2 To n - 1
  For Each k In dc.keys
  If CInt(dc(k)) < i Then dc.Remove (k)
  Next k
  If dc.Count < 1000000 Then Exit For
  Next i
  
  ReDim T(dc.Count, 7): n = 0
  For Each k In dc.keys
  n = n + 1
  T(n, 7) = CInt(dc(k))
  For i = 0 To 6
  T(n, i) = Split(k, "|")(i)
  Next i
  Next k
  dc.RemoveAll
  T(0, 0) = "combinations of 7": T(0, 7) = "HITS"
  
  Application.ScreenUpdating = False
  With Worksheets.Add(after:=Worksheets(ActiveSheet.Name))
  With .Range("A1").Resize(n + 1, 8)
  .Value = T
  .Columns("A:g").ColumnWidth = 5
  .Columns("h").ColumnWidth = 10
  .HorizontalAlignment = xlCenter
  With .Borders
  .LineStyle = xlContinuous
  .Weight = xlThin
  End With
  .Range("A1:g1").Merge
  End With
  With .Range("A2").Resize(n, 8)

  .Sort Key1:=.Cells(1, 5), Order1:=xlAscending, key2:=.Cells(1, 6), order2:=xlAscending, _
  key3:=.Cells(1, 7), order3:=xlAscending, Header:=xlNo

  .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, key2:=.Cells(1, 2), order2:=xlAscending, _
  key3:=.Cells(1, 3), order3:=xlAscending, Header:=xlNo

  .Sort Key1:=.Cells(1, 7), Order1:=xlDescending, Header:=xlNo
  .Sort Key1:=.Cells(1, 8), Order1:=xlDescending, Header:=xlNo
  End With
  End With
  End Sub