Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
cashman
-
- Продвинутый пользователь

-
-
- Сообщения: 152
- Зарегистрирован: 03.06.2004 (Чт) 0:57
- Откуда: Россия, г.Екатеринбург
cashman » 24.07.2005 (Вс) 15:30
как открывать файл (с импортом текста), чтобы его имя зависело от переменной
If x = 1 then Open App.Path + "\1.txt" For Input As #1
If x = 2 then Open App.Path + "\2.txt" For Input As #1
Этот код работает, но при большом количестве файлов (имена которых соответствуют ЗНАЧЕНИЮ ПЕРЕМЕННОЙ), удобней было бы открывать примерно так (но так чтоб работало):
Если "х" чему-то там равен, то открыть файл с именем = его значению
Open App.Path + "\"Х".txt" For Input As #1
-
GSerg
-
- Шаман

-
-
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 24.07.2005 (Вс) 15:42
Даже не знаю чё сказать.
Ну App.Path & "\" & Х & ".txt".
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
-
cashman
-
- Продвинутый пользователь

-
-
- Сообщения: 152
- Зарегистрирован: 03.06.2004 (Чт) 0:57
- Откуда: Россия, г.Екатеринбург
cashman » 25.07.2005 (Пн) 8:32
Нет, так не работает(((
-
Алексей К.
-
- Постоялец

-

-
- Сообщения: 419
- Зарегистрирован: 12.05.2004 (Ср) 9:41
- Откуда: Ульяновск
Алексей К. » 25.07.2005 (Пн) 8:38
а так:
App.Path + "\" + cstr(number)+ ".txt"
-
cashman
-
- Продвинутый пользователь

-
-
- Сообщения: 152
- Зарегистрирован: 03.06.2004 (Чт) 0:57
- Откуда: Россия, г.Екатеринбург
cashman » 25.07.2005 (Пн) 9:32
to Алексей К.
Огромное спасибо, все работает!!!)))
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Majestic-12 [Bot], SemrushBot, Yandex-бот и гости: 6