Dim sRead as String
Dim sBlock as string
sBlock = "Data2"
Restore Data2 ' I'd like to use Restore with the data value in variable sBlock
Read sRead
Print sRead
Print "press q to quit"
Do
Sleep 1, 1
Loop Until Inkey = "q"
Data1:
Data "1"
Data2:
Data "2"
Data3:
Data "3"
Dim sRead as String
Dim sBlock as string
sBlock = "Data2"
Select Case sBlock
Case "Data1"
Restore Data1
Case "Data2"
Restore Data2
Case "Data3"
Restore Data3
End Select
Read sRead
Print sRead
Print "press q to quit"
Do
Sleep 1, 1
Loop Until Inkey = "q"
Data1:
Data "1"
Data2:
Data "2"
Data3:
Data "3"
fxm wrote:No.
By cons, we can test the string value and restore the next-data-to-read pointer accordingly:
OK, it was a long shot. I was looking at best way for my IANA time zone parser to emit values. I can emit a series of statements that load arrays instead.