MySQL example to convert UTC timestamp to specific timezone.
SELECT
SensorName,
MAX(CONVERT_TZ(LastUpdated, 'UTC', 'Europe/Amsterdam')) AS LastUpdated
FROM Sensors
WHERE (TIME_TO_SEC(TIMEDIFF(NOW(), CONVERT_TZ(LastUpdated, 'UTC', 'Europe/Amsterdam'))) < 1800)
GROUP BY SensorName;Function to convert a HEX value to Ascii. Example:
>fnHex2Ascii -HexValue “00000000”
function fnHex2Ascii()
{
param (
[string]$HexString
)
Clear-Variable -Name sAscii -ErrorAction SilentlyContinue
$HexString -Split '(.{2})' | %{ if ($_ -ne "") { $sAscii+=[CHAR]([CONVERT]::toint16($_,16)) } }
# Return metadata and body...
return $sAscii
}
Visual Basic script to convert HTML to CSV or TEXT using the Excel.Application object.
'****************************************************************************************
'bestandsnaam: ConvertTable2X.vbs
'geschreven_door: Tim van Kooten Niekerk
'versie: 17:38 15-4-2010
'Converteer html tabellen naar CSV of TEXT m.b.v. het Excel object
'****************************************************************************************
' Global variable and const declarations
option explicit
'on error resume next
dim oEXC, oArg
const xlCSV=6
const xlTXT=21
' Global objectdeclarations
set oArg = WScript.Arguments
set oEXC = CreateObject("Excel.Application")
' Functie inlezen argumenten van de commandline (0-?)
function fReadArgument(vArgNumber)
On Error Resume Next
fReadArgument = oArg(vArgNumber)
end function
' Convert2X function...
function fTable2X(sHTMLFile, sCSVFile, sFileType)
if (sHTMLFile ‹› "") and (sCSVFile ‹› "") then
dim oWB
set oWB = oEXC.Workbooks.Open (sHTMLFile)
'oEXC.Visible = True
oEXC.Application.DisplayAlerts = False
oEXC.ActiveWorkbook.SaveAs sCSVFile, sFileType
oEXC.ActiveWorkbook.Close False
oEXC.Application.DisplayAlerts = True
' Opschonen
Set oWB = Nothing
end if
end function
' Start programma...
if fReadArgument("0") ‹› "" and fReadArgument("1") ‹› "" and fReadArgument("2") ‹› "" then
fTable2X fReadArgument("0"), fReadArgument("1"), fReadArgument("2")
else
MsgBox ("Een of meerdere argumenten ontbreken..." & vbCrLf & vbCrLf & "Gebruik: convertTable2X " & vbCrLf & "(filetypenum: 6=CSV, 21=TXT)")
end if
' Opschonen
set oArg = Nothing
set oEXC = Nothing