for each $item in GetData('data.txt')
	? $item[0] "	" $item[1]
next


Function GetData($file)
	DIM $i, $data, $array[0]
	
	$data = loadfile($File)
	for $i = 4 to ubound($data)
		$array[$i-4] = trim(SubSTR($data[$i],1,7)),trim(SubSTR($data[$i],18,12))
		redim preserve $array[$i-3]
	next
	If ubound($array)
		redim preserve $array[ubound($array)-2]
	Else
		$array=0
	EndIf
	$getData=$array
endfunction

;this Function will load the contents of a text file into an array
Function loadfile($file)
	DIM $fso,$f,$fs
	$fso = CreateObject("Scripting.FileSystemObject")
	$f = $fso.GetFile($file)
	If @ERROR Exit(2) EndIf
	$fs = $f.OpenAsTextStream(1)
	$loadfile = Split($fs.Read($f.size),@CRLF)
	Exit(@ERROR)
EndFunction