Array problems

[PcExpert]

I have a program which reads things from a textfile. The textfile can be like this:

Protection: 0 uur

but it can also be like this:

Protection: 2 uur (tot 16-06 / 14:00u)

My current script gives errors when you dont have protection anymore, so when its like this: Protection: 0 hours

My Script (a part of):

$beschermingstr = StringSplit(FileReadLine("tekst.txt", $l_bescherming), ": ", 1)
$beschermingstr2 = StringSplit($beschermingstr[3], " (", 1)
If $beschermingstr2 = Not @error Then
 If StringInStr($beschermingstr2[2], "tot") Then
 GUICtrlSetData($lbl_bescherming, "Bescherming: " & $beschermingstr2[1] & @CRLF & "(" & $beschermingstr2[2])
Else
  GUICtrlSetData($lbl_bescherming, "Bescherming: 0 uur")
EndIf

.

.

$l_bescherming just stands for the line the text is on and $beschermingstr[3] stands for everything after 'bescherming:'

How to solve this? While you have protection everything works fine without any errors, but once you dont have protection anymore (Bescherming: 0 uur) it returns errors (because $beschermingstr2[1] and $beschermingstr2[2] dont exist anymore) . I thought that it should then read the else statement and do the things that are in there.

Edited June 16, 2009 by PcExpert

[oMBRa]

something like this:

Pseudo-code

$beschermingstr = StringSplit(FileReadLine("tekst.txt", $l_bescherming), ": ", 1)
if stringinstr... search if there is the parenthesis, if yes
$beschermingstr2 = StringSplit($beschermingstr[3], " (", 1)
 GUICtrlSetData($lbl_bescherming, "Bescherming: " & $beschermingstr2[1] & @CRLF & "(" & $beschermingstr2[2])
Else
  GUICtrlSetData($lbl_bescherming, "Bescherming: 0 uur")
EndIf

[GreenCan]

Hi PcExpert,

I am not sure why you want to complicate things but a simple StringInstr does the job:

$beschermingstr = FileReadLine("tekst.txt", $l_bescherming)

If StringInStr($beschermingstr,"Protection: 0 uur")>0 Then

ConsoleWrite("Alarm" & @CR)

Else

ConsoleWrite($beschermingstr & @CR)

EndIf

Greencan