Board logo

标题: [原创代码] 随机双色球PowerShell脚本 [打印本页]

作者: Brightblade    时间: 2014-3-10 11:11     标题: 随机双色球PowerShell脚本

随机双色球,6个红球,范围在1到33,取随机数。1个篮球,范围在1到16,取一个随机数。会验证同一组中红球随机数不会重复。
  1. $count = @()
  2. $item = @()
  3. $max = 33
  4. $min = 1
  5. # 创建Excel应用
  6. Write-Verbose "Creating Excel application"
  7. $xl=New-Object -ComObject "Excel.Application"
  8. $wb=$xl.Workbooks.Add()
  9. $ws=$wb.Worksheets.Add()
  10. $cells=$ws.Cells
  11. #定义输出范围
  12. $row=3
  13. $col=1
  14. "Red1","Red2","Red3","Red4","Red5","Red6",“Blue” | foreach {
  15.         $cells.item($row,$col)=$_
  16.         $cells.item($row,$col).font.bold=$True
  17.         $col++
  18. }
  19. #循环生成随机数,写入excel
  20. for($j=1;$j -le 5;$j++)
  21. {
  22.     $row++
  23.     $col=1
  24.     for($i=1; $i -le 6; $i++)
  25.     {   
  26.         $b = Get-Random -Minimum $min -Maximum $max
  27.         $bl=$count.Contains($b)
  28.         while($bl){
  29.             $b = Get-Random -Minimum $min -Maximum $max
  30.             $bl=$count.Contains($b)
  31.         }
  32.         $count += $b
  33.         $cells.item($Row,$col) = $b
  34.         $col++
  35.     }
  36.     $cells.item($Row,$col) = Get-Random -Minimum 1 -Maximum 16
  37.   
  38. }
  39. #现实并关闭,你可以点取消,查看最后效果
  40. #make Excel visible
  41. $xl.Visible=$True
  42. $xl.Quit()
复制代码

作者: Brightblade    时间: 2014-3-12 10:12

感觉自选组一多,结果就会变慢。还得再改一改




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2