Top.Mail.Ru
Ответы
Аватар пользователя
14лет
Изменено
Аватар пользователя
Аватар пользователя
Аватар пользователя
Программирование
+4

Помогите отладить коропуленькую программку в Qbasice

Люди, я щаз отупею... спасайте!
(преамбула: еще в школе овладел бейсиком, теперь иногда балусь программированием на этом чудном языке. мне хватает.. ;))
программа:

FOR i = 1 TO 10 ' начинаем цикл
n1$ = STR$(i) ' переводим число в строковую переменную
n2$ = ".txt" ' задаем тип расширения будущего файла
'INPUT "Введите имя файла: "; n1$ ' альтернативная строка генерации имени вручную
nn$ = n1$ + n2$ ' склека полного имени файла из имени и расширения с точкой
PRINT "создается файл:"; nn$ ' проверка правильности имени файла
OPEN nn$ FOR APPEND AS #i ' открытие (создание) файла
PRINT "done" ' проверка того, что открытие удалось
NEXT i ' без коммента
CLOSE ' закрыть все.

в этом виде должна создать десять файлов с именами от 1.txt до 10.txt и все потом разом закрыть.
не работает!!!!спотыкается на строке открытия файла в первом же цикле, сообщает, мол "файл не найден". безобразие повторяется, даже если в рабочей папке эти фалы реально уже есть!! (созданные по продцедуре, описанной ниже)

ЕСЛИ мы отключаем строку с генерацией имени файла из числа и вместо нее включаем строку с вводом имени переменной с клавы, все прекрасно работает: фалы шикарно СОЗДАЮТСЯ!

там в цикле есть проверочная строка с именем файла - при автоматической генерации и ручной - имена совпадают. но автоматом - не хочет, а ручками идет....
помогите, что с ней НЕ ТАК?
надо, чтобы работало автоматом...
помогите, плиз..

По дате
По рейтингу
Аватар пользователя
Оракул
14лет

Попробуй вместо append поставить output
OPEN nn$ FOR OUTPUT AS #i