Перебор EditBox'ов в цикле

Дата: Понедельник, 18 Мая 2009, 15:21 | Сообщение # 1

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

Code

For www=1 To 7
j=j+1
zxcv$='EditBox'+CHAR(j)+'$'
fileopt$='C:\Documents and Settings\Admin\Рабочий стол\2.txt'
RV=StrToFile(fileopt$,'zxcv$',TRUE,TRUE)
Next www

Почему сохраняютсяне данные бокса,а названия бокса?

Дата: Понедельник, 18 Мая 2009, 15:23 | Сообщение # 2

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Потому, что ты прописал название бокса.

Дата: Понедельник, 18 Мая 2009, 15:24 | Сообщение # 3

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

Ну так загрузка из бокса с названием едитбокс1$,едитбокс2$,

Дата: Понедельник, 18 Мая 2009, 15:37 | Сообщение # 4

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

С MMB работал давно, но это работает. Может всё намного проще делается...

Code

fileopt$='C:\Documents and Settings\Admin\Рабочий стол\2.txt'
For i=1 To 7
        zxcv$='EditBox'+CHAR(i)+'$'
        LoadText("zxcv$","zxcv$")
        RV=StrToFile(fileopt$,zxcv$,TRUE,TRUE)
Next i

Ключевой момент - LoadText. Ну и в кавычки ты зачем засунул переменную - неясно.

Дата: Понедельник, 18 Мая 2009, 15:42 | Сообщение # 5

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

Спасибо.

Дата: Понедельник, 18 Мая 2009, 16:07 | Сообщение # 6

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Тут фишка получилась в том, что в начале переменная zxcv$ содержит в себе тупо текст. А уже с помощью LoadText она принимает вид ссылки на EditBox. Я себе так это представляю.

Serg, и ещё. Называй темы КОНСТРУКТИВНО. Ведь потом людям будет поиск даваться гораздо сложнее!

Почитай, что я написал сейчас и сравни со своим вариантом.

Добавлено (18 Май 2009, 16:07)
---------------------------------------------
Второе решение проблемы после небольшой беседы от dgilmour

Заменяем присванивание:

Code

zxcv$='zxcv$=EditBox'+CHAR(www)+'$'

И вместо LoadText:

Code

RunScriptCode("zxcv$","0")

Вопрос считаю закрытым. Тему оставлю, если кто ещё хочет высказаться.

Rush

Дата: Вторник, 19 Мая 2009, 14:05 | Сообщение # 7

Обозреватель-консультант

Группа: Проверенные

Сообщений: 216

Репутация: 10

Награды: 1

Статус: Offline

В принципе, для данного случая все эти решения избыточны, так как сама организация кода неправильна.
Зачем все эти EditBox1$, EditBox2$?
Назови EditBox$[1], EditBox$[2] и т.д.
Тогда и не нужны будут ухищрения.

Code

For www=1 To 7
fileopt$='C:\Documents and Settings\Admin\Рабочий стол\2.txt'
RV=StrToFile(fileopt$,EditBox$[www],TRUE,TRUE)
Next www

Дата: Вторник, 19 Мая 2009, 14:18 | Сообщение # 8

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Quote (YURIY)

Может всё намного проще делается...

Так и думал...

Rush, респект! thumbs_up

Дата: Вторник, 19 Мая 2009, 14:48 | Сообщение # 9

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

Rush,да,отличнывй вариант.

Rush

Дата: Вторник, 19 Мая 2009, 16:57 | Сообщение # 10

Обозреватель-консультант

Группа: Проверенные

Сообщений: 216

Репутация: 10

Награды: 1

Статус: Offline

Quote (Serg)

отличнывй вариант.

Пора бы уж и осуществить тебе девиз из своей подписи - уж сколько раз тебе помог...