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

Предыдущая тема Следующая тема Перейти вниз

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

Сообщение  Black Doomer в Чт Апр 05, 2012 11:42 pm

Добрый день.

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

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

Black Doomer

Сообщения : 27
Дата регистрации : 2011-08-23

Посмотреть профиль http://doom2d.org/forum/viewforum.php?f=19

Вернуться к началу Перейти вниз

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

Сообщение  trew в Пт Апр 06, 2012 6:36 am

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

Код:
#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

Сообщения : 331
Дата регистрации : 2010-10-14

Посмотреть профиль

Вернуться к началу Перейти вниз

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

Сообщение  Black Doomer в Пт Апр 06, 2012 7:14 am

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

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

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

Black Doomer

Сообщения : 27
Дата регистрации : 2011-08-23

Посмотреть профиль http://doom2d.org/forum/viewforum.php?f=19

Вернуться к началу Перейти вниз

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

Сообщение  trew в Ср Апр 18, 2012 4:22 pm

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


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

Код:
#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

trew

Сообщения : 331
Дата регистрации : 2010-10-14

Посмотреть профиль

Вернуться к началу Перейти вниз

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

Сообщение  Black Doomer в Чт Апр 19, 2012 5:22 am

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

Black Doomer

Сообщения : 27
Дата регистрации : 2011-08-23

Посмотреть профиль http://doom2d.org/forum/viewforum.php?f=19

Вернуться к началу Перейти вниз

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

Сообщение  VerhoLom в Чт Май 31, 2012 10:44 am

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

Сообщения : 67
Дата регистрации : 2010-07-06
Возраст : 36

Посмотреть профиль

Вернуться к началу Перейти вниз

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

Сообщение  Спонсируемый контент


Спонсируемый контент


Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу

- Похожие темы

 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения