Sub VB_Test_ReadParameter()

Dim  i, fso,strParameter, strFile, strPar, ParValue, MyPos_1, MyPos_2, File_OK, Par_OK, ReadLineTextFile

Const ForReading = 1, ForWriting = 2, ForAppending  = 8, ForBinary = 32

Set fso = CreateObject("FileCtl.File")

On Error Resume Next

'1) Set File and parameter to search for

strFile = "\Storage Card SD\DAT_Files_ASCI\Test_Langauge.DAT"

strPar = "EN_TITEL"

'Init Variables

File_OK  = False

Par_OK = False

ParValue = ""

'Open File

fso.open strFile,ForReading

i = 1 'For debugging

Do While fso.eof <> True

File_OK = True

ReadLineTextFile = fso.LineInputString

SmartTags("txtScriptError" & i) = ReadLineTextFile 'For debugging

MyPos_1 = InStr(1, ReadLineTextFile, ":=")

If MyPos_1 > 0 Then

strParameter = Left(ReadLineTextFile, MyPos_1 - 1)

If UCase(strParameter) = UCase(strPar) Then

Par_OK = True

MyPos_2 = InStr(MyPos_1, ReadLineTextFile, ";")

If MyPos_2 > 0 Then

ParValue = Mid(ReadLineTextFile,MyPos_1 + 2, MyPos_2 - MyPos_1 - 2)

Else

ParValue = Mid(ReadLineTextFile,MyPos_1 + 2, Len(ReadLineTextFile) - MyPos_1 - 1)

End If

End If

End If

i = i + 1 ' For debugging

Loop

fso.Close 'Close File

If File_OK = False Then

ParValue = ""

SmartTags("Test_txtConfig") = strFile & " is empty!"

Exit Sub

End If

If Par_OK = False Then

SmartTags("Test_txtConfig") = strFile  & ": Parameter not found!"

Exit Sub

End If

SmartTags("Test_Langauge_WString") = ParValue

'Release Object

Set fso = Nothing

End Sub