#include <File.au3>
#include <Date.au3>
#include <Array.au3>
#include <WinAPIShPath.au3>

$dm = String($CmdLine[1])

$material_no = StringMid($dm, 8, 5)
$material_index = StringMid($dm, 14, 1)
$kw = _WeekNumberISO()
$fkw = StringFormat("%02i", $kw)
$serial_number = @YEAR & $fkw & StringMid($dm, 18, 4)
$prod_date = @YEAR & @MON & @MDAY & @HOUR

_FileWriteToLine("dd_4979762222_v1.txt", 6, '		<DeviceData name="Z_DD_EL_ETH_COM_MATERIAL_NO" desc="ETH communication card material number" key="0x4092" unit="" value="49797' & $material_no & '"/>', True)
_FileWriteToLine("dd_4979762222_v1.txt", 7, '		<DeviceData name="Z_DD_EL_ETH_COM_MATERIAL_INDEX" desc="ETH communication card material index" key="0x2093" unit="" value="' & $material_index & '"/>', True)
_FileWriteToLine("dd_4979762222_v1.txt", 8, '		<DeviceData name="Z_DD_EL_ETH_COM_SERIAL_NUMBER" desc="ETH communication card serial number; format yyyywwssss" key="0x3094" unit="" value="' & $serial_number & '"/>', True)
_FileWriteToLine("dd_4979762222_v1.txt", 9, '		<DeviceData name="Z_DD_EL_ETH_COM_PROD_DATE" desc="ETH communication card production date; format yyyymmddhh" key="0x3095" unit="" value="' & $prod_date & '"/>', True)
_FileWriteToLine("dd_4979762222_v1.txt", 10, '		<DeviceData name="Z_DD_EL_ETH_COM_VENDOR" desc="vendor number (Kreditoren-Nummer)" key="0x3096" unit="" value="5155338"/>', True)

FileDelete("DeviceData_000.xml")
FileCopy("dd_4979762222_v1.txt", "DeviceData_000.xml")

Exit (0)