Fortune Cookie Codes mit .net

Für einen Kunden sollten wir einen Glückscode-Generator schreiben. Die Anforderungen waren relativ simpel: Codes im Format xxxx-xxxx-xxxx, natürlich absolut unique Codes, performant auch bei der Erzeugung von mehreren 100′000 Codes im Zusammenspiel mit einer MS SQL Datenbank.Zur Erzeugung der Codes verwendeten wir die .net GUID (globally unique identifier) Funktion, die diese Arbeit recht hübsch erledigt. In einer For-Next Schlaufe werden die Codes generiert, transformiert und in eine Datatable geschrieben. Die Funktion DeleteDuplicates erstellt einen DataView, sortiert diesen nach Codes und arbeitet sich top-down. Sind zwei aufeinanderfolgende Codes identisch, wird der aktuelle gelöscht. Fertig ist die Geschichte, das Ganze wird in diesem Beispiel in ein XML File gespeichert.Werden die Codes in eine SQL Db gespeichert, kann die Einzigartigkeit zusätzlich überprüft werden mit einer DISTINCT Abfrage.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

‘number of codes to generate
Dim EndCount As Integer = 5000

‘create the datatable and add a row
objDT = New System.Data.DataTable(”CodeTable”)
objDT.Columns.Add(”Code”, GetType(String))

‘create random id, transform code
Dim count As Integer
For count = 0 To EndCount - 1

‘edit the string
Dim myCode As String = Guid.NewGuid.ToString

‘add some separators and cut the string down on 15 chars (3 x 4chars + 3x 1 separator)
myCode = UCase(myCode.Replace(”-”, “”))
myCode = myCode.Insert(4, “-”)
myCode = myCode.Insert(9, “-”)
myCode = myCode.Substring(0, 14)

‘add to datatable
objDR = objDT.NewRow
objDR(”Code”) = myCode.ToString
objDT.Rows.Add(objDR)

Next

’start the sub
DeleteDuplicates(objDT)

‘Serialize the datatable object into a xml file
objDT.WriteXml(”final_codes.xml”)
objDT.WriteXmlSchema(”final_scheme.xslt”)

‘output the number of generated codes
lblNumRows.Text = objDT.Rows.Count & ” Codes generiert”

End Sub

‘Selects duplicate entries and removes them
Public Sub DeleteDuplicates(ByVal dt As DataTable)
Dim myDataView As New DataView(dt)
myDataView.Sort = “Code”
For x As Integer = 0 To myDataView.Count - 2
Dim myDataRowView As DataRowView = myDataView.Item(x)
Dim myDataRowViewNext As DataRowView = myDataView.Item(x + 1)
If myDataRowView.Item(”Code”).ToString = myDataRowViewNext.Item(”Code”).ToString Then
myDataRowView.Delete()
End If
Next
End Sub

End Class