這是依照彩迷需求客製化的一個遺漏排序轉檔程式

前置動作需要先將539遺漏數羅盤的遺漏統計裡的遺漏數轉成CSV檔匯出

在將轉出的檔案存成miss.txt

完成後執行以下autoit程式後,即可獲得轉檔程式碼 ” miss_OK.txt ” 檔案

#include <file.au3>
#include <Array.au3>
Dim $b1

_FileReadToArray(“miss.txt”,$b1)

FileDelete(‘miss_OK.txt’)
Sleep(500)

$file = FileOpen( “miss_OK.txt”, 1)
FileWriteLine($file,”<?xml version=’1.0′ encoding=’UTF-8′ standalone=’yes’ ?>”)
FileWriteLine($file,'<Sort title=”遺漏數”>’)
FileClose($file)

$file = FileOpen( “miss_OK.txt”, 1)

$num = 0 ;

For $i = 1 To $b1[0] Step 1
$ok = StringSplit($b1[$i], “,”)

$num = StringReplace($ok[1], ” 期”, “”)

If $ok[0] > 2 Then

FileWriteLine($file,'<Sub title=”‘ & $num &’ 期”>’)

For $x = 2 To $ok[0] Step 1
FileWriteLine($file,'<Ball>’ & Abs($ok[$x]) & ‘</Ball>’)
Next
FileWriteLine($file,'</Sub>’)
EndIf

Next

$p = 0
For $i = 1 To $b1[0] Step 1
$ok = StringSplit($b1[$i], “,”)

If $ok[0] = 2 And $p = 0 Then

FileWriteLine($file,'<Sub title=”單顆組”>’)

FileWriteLine($file,'<Ball>’ & Abs($ok[2]) & ‘</Ball>’)

$p = 1

ElseIf $ok[0] = 2 And $p = 1 Then

FileWriteLine($file,'<Ball>’ & Abs($ok[2]) & ‘</Ball>’)

EndIf

Next

FileWriteLine($file,'</Sub>’)
FileWriteLine($file,'</Sort>’)

FileClose($file)

在將轉檔好的XML排序編碼匯入大數據內即可使用