Сообщение от RlexGm
Такой вопрос, b3d сравнивает переменные string$?
У меня такой код:
If EnterKey$="2317499356"
Regfile=OpenFile("data\maps\7\file.vs")
WriteLine(regfile,"ab729c")
CloseFile(regfile)
click=0
Else
EnterKey$=""
SimKol=0
click=0
EndIf
Text centrw,centrh-50,"Press key",True,True
Text centrw,centrh,EnterKey$,True,True
If SimKol<=10
If KeyHit(2) Then EnterKey$=EnterKey$+"1":SimKol=SimKol+1
If KeyHit(3) Then EnterKey$=EnterKey$+"2":SimKol=SimKol+1
If KeyHit(4) Then EnterKey$=EnterKey$+"3":SimKol=SimKol+1
If KeyHit(5) Then EnterKey$=EnterKey$+"4":SimKol=SimKol+1
If KeyHit(6) Then EnterKey$=EnterKey$+"5":SimKol=SimKol+1
If KeyHit(7) Then EnterKey$=EnterKey$+"6":SimKol=SimKol+1
If KeyHit(8) Then EnterKey$=EnterKey$+"7":SimKol=SimKol+1
If KeyHit(9) Then EnterKey$=EnterKey$+"8":SimKol=SimKol+1
If KeyHit(10) Then EnterKey$=EnterKey$+"9":SimKol=SimKol+1
If KeyHit(11) Then EnterKey$=EnterKey$+"0":SimKol=SimKol+1
EndIf
Суть заключается в том, что когда будет введена переменная, и нажата кнопка будет сравнение набранной переменной с строковыми цифрами.Если набрано правильно, то в файл должна записаться строка.
Но когда набираешь правильно, то записи в файл не происходит.Просто всё стирается.Скажите пожалуйста в чём проблема. |
Тупо скопировал твой код и вставил в б3д с небольшим допиливанием. Всё сравнивает и пишет в файл. Но, происходит перезапись файла. Исправляется предварительным чтением всего файла в массив пользуясь циклом
While Not Eof(file)
...
Wend
,
и последующая запись всего по порядку.
Возможно как то можно открыть файл в б3д на дозапись, но я не знаю как.