Подстановка строковых значений из переменных вместо ключевых слов в FreeBASIC

Добрый день.

Назрела необходимость ради чистоты кода подставлять строковое значение из переменной вместо одного из ключевых слов, передаваемых оператору.
Например, у меня есть переменная типа String со значением "Binary".
И я хочу подставить значение из неё в оператор Open.
Напрямую (то есть "Open FileName AS OpenMode") не получится.
Теперь вопрос - можно ли это как-нибудь осуществить?

Заранее благодарен.

Макрос подойдет?

Код:

#Define OpenMode Binary
Open "1.txt" For OpenMode As #1

Хотя думается мне , что тебе нужно что-то типа этого?

Dim as String M(1) ={"OUTPUT","BINARY"}
Open "1.txt" For M(0) As #1
Open "1.txt" For M(1) As #1

Такое сделать нельзя.

trew пишет:Хотя думается мне , что тебе нужно что-то типа этого?

Dim as String M(1) ={"OUTPUT","BINARY"}
Open "1.txt" For M(0) As #1
Open "1.txt" For M(1) As #1

Такое сделать нельзя.

Да, мне нужно было именно это. Жаль, что нельзя, придётся опять делать кейс с почти одинаковыми операторами.

Не знаю актуально ли еще...


Может такой шаблон подойдет :

Код:

#Macro OpenF ( Opt , path) 
Open path For Opt As #1
#EndMacro

OpenF(Output,"1.txt")
Close
OpenF(Binary,"2.txt")
Close

Если путь один и тот же , то можно параметр Path убрать. Тогда запись будет приближена к тому, что хочешь:

Код:


#Macro OpenF ( Opt) 
#If Opt = 1
Open "1.txt" For Output As #1
#ElseIf Opt = 2
Open "1.txt" For Binary As #1
#EndIf
#EndMacro

OpenF(1) ' <- Output
Close
OpenF(2) ' <- Binary
Close


Это ещё тяжеловеснее, но всё равно спасибо.)

Эта идея из книжек по ПХП?