mirror of
https://github.com/jakobadam/RDSFactor.git
synced 2025-06-05 12:07:14 +02:00
56 lines
2 KiB
VB.net
56 lines
2 KiB
VB.net
|
|
|
|
Friend Class Conversion
|
|
Friend Shared Function ConvertToString(ByRef bytes() As Byte) As String
|
|
Dim k As New System.Text.StringBuilder
|
|
Dim i As Integer
|
|
For i = 0 To bytes.Length - 1 : k.Append(Chr(bytes(i))) : Next
|
|
Return k.ToString
|
|
End Function
|
|
|
|
Friend Shared Function ConvertToBytes(ByVal str As String) As Byte()
|
|
Dim res() As Byte = {}
|
|
Array.Resize(Of Byte)(res, str.Length)
|
|
Dim i As Integer
|
|
For i = 0 To res.Length - 1
|
|
res(i) = Convert.ToByte(str.Chars(i))
|
|
Next
|
|
Return res
|
|
End Function
|
|
|
|
Friend Shared Function ConvertToDateTime(ByVal value As String) As DateTime
|
|
Dim ret As DateTime
|
|
value = LCase(value)
|
|
Try
|
|
value = Replace(value, "utc", "")
|
|
value = Replace(value, "mon", "")
|
|
value = Replace(value, "tue", "")
|
|
value = Replace(value, "wed", "")
|
|
value = Replace(value, "thu", "")
|
|
value = Replace(value, "fri", "")
|
|
value = Replace(value, "sat", "")
|
|
value = Replace(value, "sun", "")
|
|
value = Replace(value, "jan", "1/")
|
|
value = Replace(value, "feb", "2/")
|
|
value = Replace(value, "mar", "3/")
|
|
value = Replace(value, "apr", "4/")
|
|
value = Replace(value, "may", "5/")
|
|
value = Replace(value, "jun", "6/")
|
|
value = Replace(value, "jul", "7/")
|
|
value = Replace(value, "aug", "8/")
|
|
value = Replace(value, "sep", "9/")
|
|
value = Replace(value, "oct", "10/")
|
|
value = Replace(value, "nov", "11/")
|
|
value = Replace(value, "dec", "12/")
|
|
Do While InStr(value, " ") <> 0
|
|
value = Replace(value, " ", " ")
|
|
Loop
|
|
value = Replace(value, "/ ", "/")
|
|
|
|
ret = Convert.ToDateTime(value)
|
|
Catch ex As Exception
|
|
ret = Nothing
|
|
End Try
|
|
Return ret
|
|
End Function
|
|
End Class
|