Original Blog Entry: Private Dougloader

JADELottery — Fri, 07 Sep 2018 13:23:39 GMT

Our new private downloader workin even better than before.

StringDecompress(srt, n)

Month Day Year Pick 5 Label Pick 1 Label Multiplier Year Month Day Pick 5 Pick 1 Multiplier

09 05 2018 1320263041 Star Ball: 9 All Star Bonus: 2 2018 9 5 13 20 26 30 41 9 2

09 01 2018 18143139 Star Ball: 10 All Star Bonus: 3 2018 9 1 01 08 14 31 39 10 3

08 29 2018 1017202652 Star Ball: 10 All Star Bonus: 3 2018 8 29 10 17 20 26 52 10 3

08 25 2018 910304549 Star Ball: 8 All Star Bonus: 2 2018 8 25 09 10 30 45 49 8 2

The Excel StringDecompress(str, n) function working like a charm.

__________

Function StringDecompress(str As String, n As Integer) As String

On Error GoTo exitfunction

Dim temp As String

Dim c, i, j, strlen As Integer

Dim nums() As Long: ReDim nums(n)

strlen = Len(Mid(str, 2))

temp =

For i = 0 To strlen - 1

temp = temp Mid(str, strlen - i + 1, 1)

Next i

strlen = Application.WorksheetFunction.RoundUp(strlen / 2, 0)

If (n 2) Or (n strlen) Then GoTo exitfunction

For i = 0 To strlen - 1

nums(n - 1 - i) = Val(Mid(temp, 2 * i + 2, 1) Mid(temp, 2 * i + 1, 1))

Next i

c = 0

i = 0

For j = (n - strlen) To (n - 1)

If c (n - strlen) Then

If nums(j) = 9 Then

nums(i) = nums(j)

i = i + 1

Else

nums(i) = Int(nums(j) / 10)

nums(i + 1) = nums(j) - (10 * nums(i))

i = i + 2

c = c + 1

End If

End If

Next j

temp =

For i = 0 To n - 1

temp = temp Format(nums(i), 00 )

Next i

StringDecompress = temp

Exit Function

exitfunction:

StringDecompress = Error

End Function

__________

... [ More ]