Разделение,замена строки и дописывание новых значений

$sText = 'ADMINPC|-|10:15:12|-|27.06.2012'
Dim $aRet[4] = [3, 'ИмяPC = ', 'Время = ', 'Дата = ']
$sRet = ''
$aTemp = StringSplit($sText, '|-|', 1)
If $aTemp[0] <> 3 Then Exit -33
For $i = 1 To $aTemp[0]
	$sRet &= $aRet[$i] & $aTemp[$i] & @CRLF
Next
MsgBox(64, 'Info', StringTrimRight($sRet, 2))

$sText = 'ADMINPC|-|10:15:12|-|27.06.2012|-|Россия'
Dim $aRet[5] = [4, 'ИмяPC = ', 'Время = ', 'Дата = ', 'Страна = ']
$sRet = ''
$aTemp = StringSplit($sText, '|-|', 1)
If $aTemp[0] <> 4 Then Exit -33
For $i = 1 To $aTemp[0]
	$sRet &= $aRet[$i] & $aTemp[$i] & @CRLF
Next
MsgBox(64, 'Info', StringTrimRight($sRet, 2))

#include<Array.au3>

_ArrayDisplay(_MyFunc('Имя PC = ,Время = ,Дата = , ID = ', 'ADMINPC|-|10:15:12|-|27.06.2012'))

Func _MyFunc($s_Data, $s_Str)

	$a_Data = StringSplit($s_Data, ',', 3)
	$a_Str = StringSplit($s_Str, '|-|', 3)
	
	If UBound($a_Data) > UBound($a_Str) Then
		ReDim $a_Str[UBound($a_Data)]
	Else
		ReDim $a_Data[UBound($a_Str)]
	EndIf
	   
	For $i = 0 To UBound($a_Data) - 1
		$a_Data[$i] &= $a_Str[$i]
	Next
	
	Return SetError(0, 0, $a_Data)
EndFunc ;==>_MyFunc