
'HARDCODE SIZE OF strXYarray HERE !!
Dim fso, f, ts, strPathFilename, strXArrayOfFields, strOnelineFromFile, i, j, strXYArray(200,1), fileline

'Definition of local tags - Definition von lokalen Variablen
i=0
j=0

'HARDCODE DB NAME HERE !!
strPathFilename = "c:\DB2.bak"

'Error Routine - Fehlerroutine
On Error Resume Next

'Create object - Objekt erstellen
Set fso = CreateObject("Scripting.FileSystemObject")

If Err.Number <> 0 Then
	strStatusMessage = "Error #" & CStr(Err.Number) & " " & Err.Description
	Err.Clear
	Exit Sub
End If

Set f = fso.OpenTextFile(strPathFilename, 1, 0, -2)

If Err.Number <> 0 Then
	strStatusMessage = "Error #" & CStr(Err.Number) & " " & Err.Description
	Err.Clear
	Exit Sub
End If

'Loop
Do While f.AtEndOfStream <> True
	
	strOnelineFromFile = f.ReadLine
	strXArrayOfFields = Split(strOnelineFromFile, ";")

'Remove empty spaces from data
	For i=0 To 3
		strXArrayOfFields(i) = Replace(strXArrayOfFields(i), " ", "")
		strXYArray(j, i) = strXArrayOfFields(i)
	Next
	
	j = j + 1
Loop

'HARDCODE NUMBER OF WORDS HERE !!
For i=0 To 39 
  fileline = i + 1

  If (Not IsNumeric(strXYArray(fileline,0))) Or (strXYArray(fileline,0) < -32768) Or (strXYArray(fileline,0) > 32767) Then
    strStatusMessage = "DB2 Restore aborted. Value " & CStr(strXYArray(fileline,0)) & " for DBW" & CStr(fileline * 2) & " is not valid."
	Exit Sub
  End If

  'HARDCODE DB ARRAY TAG NAME HERE !!
  SmartTags("DB2")(i) = strXYArray(fileline,0)
Next

'Close file
f.Close

Set f = Nothing
Set fso = Nothing

'HARDCODE DB NAME HERE !!
strStatusMessage = "DB2 was restored !"