Я пытаюсь создать программу в Qbasic, в которой человек может ввести свое имя и называть себя администратором или нежелательным пользователем. Как сохранить эти настройки в моей программе?Как сохранить имена в файле Qbasic?
0
A
ответ
1
Если вы занесены имя пользователя с чем-то вроде,
INPUT "Type your username: ", uName$
Чтобы сохранить его в файл, просто использовать эти команды:
OPEN "User.dat" FOR OUTPUT AS #1
PRINT #1, uName$
CLOSE #1
Вот полная программа:
DEFINT A-Z
'Error handler for the first time we run the program. The data file won't exist, so we create it.
ON ERROR GOTO FileNotExist
'Create a type and an Array of users that would include Username and the Status (adminstrator vs. Unwanted user)
TYPE user
Uname AS STRING * 16
Status AS STRING * 1
END TYPE
DIM Users(1 TO 100) AS user
'Gets all the users stored in the file. i is a variable which represents the number of users before adding a new user
i = 0
OPEN "User.txt" FOR INPUT AS #1
WHILE NOT EOF(1)
i = i + 1
INPUT #1, Users(i).Uname
INPUT #1, Users(i).Status
WEND
CLOSE #1
TryAgain:
'Gets info for the new user
CLS
INPUT "User name: ", Users(i + 1).Uname
PRINT "Admin (a), Unwanted user (u), or Regular user (r) ?"
Users(i + 1).Status = LCASE$(INPUT$(1))
'Ensure there are no blank lines in the file
IF Users(i + 1).Uname = "" OR Users(i + 1).Status = "" THEN GOTO TryAgain
'Outputs user data to the file "User.txt"
OPEN "User.txt" FOR OUTPUT AS #1
FOR j = 1 TO i + 1
PRINT #1, Users(j).Uname
PRINT #1, Users(j).Status
NEXT j
CLOSE #1
'Just for a closer: Prints all the current users.
CLS
FOR j = 1 TO i + 1
PRINT Users(j).Uname,
IF Users(j).Status = "a" THEN PRINT "Amdinistrator" ELSE IF Users(j).Status = "u" THEN PRINT "Unwanted User" ELSE IF Users(j).Status = "r" THEN PRINT "Regular user" ELSE PRINT Users(j).Status
NEXT j
END
'*** ERROR HANDLER: ***
FileNotExist:
OPEN "User.txt" FOR OUTPUT AS #1
CLOSE
RESUME
1
Чтобы сохранить имя в файле, вам нужно будет использовать оператор WRITE
.
Например:
OPEN "Name.txt" FOR OUTPUT AS #1
INPUT"Enter a name";a$
WRITE #1,a$
CLOSE #1
END
Смежные вопросы
- 1. СОХРАНИТЕ ИМЕНА В ФАЙЛЕ
- 2. Как сохранить имена щелкнутых объектов в текстовом файле (Visual Basic)
- 3. QBasic - Как вы создаете файл любого типа в QBasic?
- 4. Как напечатать имена столбцов mysql в файле
- 5. Сохранить имена через URL в текстовом файле PHP?
- 6. Как разбирать время в годах в QBasic
- 7. Как найти подстроку в строке в QBasic
- 8. Как сохранить словарь в файле?
- 9. Как сохранить результат в файле
- 10. Как сохранить объект в файле?
- 11. Как сохранить переменную в файле?
- 12. Как сохранить изображение в файле?
- 13. Как сохранить объект в файле?
- 14. Как сравнить имена файлов в пакетном файле
- 15. Полужирный текст вывода в Qbasic
- 16. Qbasic Highlighted Menu, серьезно
- 17. Qbasic .exe to.bas
- 18. Как найти размеры параметра массива в QBasic
- 19. как узнать последний напечатанный текст в QBasic
- 20. Как использовать функцию BOF в QBASIC?
- 21. Как запустить командный файл в QBasic?
- 22. Онлайн многопользовательский Qbasic Gorillas?
- 23. Что делает ON в QBasic?
- 24. Вход не работает в Qbasic
- 25. Если еще лестница в QBasic
- 26. Ошибка «неправильного файла» в qbasic
- 27. Преобразование команды QBasic в Javascript
- 28. Proguard сохранить имена классов?
- 29. Как сохранить имена пользователей в секрете
- 30. Qbasic interpreter для cpp
Я попытался с помощью команды OPEN, но я не могу использовать его должным образом. Кроме того, я этого не делаю. понять логику команды OPEN. –