Извините, ничего не найдено.

RegIon · 06.06.2011, 11:29

;GetKey возращает символ нажатой кнопки в Аск2
string_$=Chr(GetKey())
If string_$>"!";чтоб отсеять символ нечитабельный
String__$=String__$+string_$
EndIf
Text x,y, String__$;чтоб видно было

RlexGm · 06.06.2011, 11:52

всё равно не пишет в файл

LLI.T.A.L.K.E.R. · 06.06.2011, 12:16

If EnterKey$="2317499356"

Походу зациклен. Нужно один раз проверять, например при нажатии "Сохранить"



WriteFile (filename$)
; Open a file to write to (открыть файл для записи)

С OpenFile (filename$) со строками чёт помудрёней будет

RlexGm · 06.06.2011, 12:51

Сообщение от LLI.T.A.L.K.E.R.

If EnterKey$="2317499356"

Походу зациклен.

Нечего подобного

С OpenFile (filename$) со строками чёт помудрёней будет

разницы нет

RegIon · 06.06.2011, 15:21

RlexGm · 06.06.2011, 16:19

Сообщение от RlexGm

разницы нет

в смысле что на результат ни как не влияет, как не записывал, так и не записывает

St_AnGer · 06.06.2011, 16:23

Сообщение от 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д на дозапись, но я не знаю как.

RegIon · 06.06.2011, 16:42

Возможно как то можно открыть файл в б3д на дозапись, но я не знаю как.

там SeekFile( file, ofset) ставит позицию для записи,не знаю в чем мерится...

RlexGm · 06.06.2011, 17:01

Сообщение от St_AnGer

Но, происходит перезапись файла

Перезапись? Стирается старое значение и записываеться новое?

RegIon · 06.06.2011, 17:16

да,но с лайнами вроде так не проходит,он всегда дописывает лайн(WriteLine)

St_AnGer · 06.06.2011, 18:20

Сообщение от Костян

да,но с лайнами вроде так не проходит,он всегда дописывает лайн(WriteLine)

дописывает только при текущей работе с файлом до закрытия файла. Иначе файл переписывается с нуля новыми данными.

RegIon · 07.06.2011, 07:04

дописывает только при текущей работе с файлом до закрытия файла. Иначе файл переписывается с нуля новыми данными.

ведать я его забывал закрывать...

RlexGm · 08.06.2011, 19:15

выяснил что при сравнении б3д не видит что EnterKey$ и циферки равны, т.к. выполняется условие "не равно"...С чем это может быть связано?

LLI.T.A.L.K.E.R. · 09.06.2011, 01:42

Сообщение от RlexGm

Такой вопрос, b3d сравнивает переменные string$?
У меня такой код:

If EnterKey$="2317499356"
 . . 
Else
 . . EnterKey$=""
EndIf

Короче так как EnterKey$ изначально не равен "2317499356"
то он всегда чист EnterKey$=""
Тут вот тупик!

Или давай относительно полный код! Так как наверняка проверка If EnterKey$="2317499356" происходит в один определённый момент (действии).

RlexGm · 09.06.2011, 09:17

Сообщение от LLI.T.A.L.K.E.R.

то он всегда чист EnterKey$=""

Так он же выводиться на экран

Сообщение от LLI.T.A.L.K.E.R.

давай относительно полный код! (действии).



If bt\status=2 And click=1 Then ;click=1 когда нажимаешь на мышь
...
...
...

If bt\id=26 Then ; если id кнопки такой, то:
If EnterKey$="2317499356"
FileReg=OpenFile("data\maps\7\file.vs")
WriteLine(FileReg,"ab729c")
CloseFile(FileReg)
EndIf
If EnterKey$!="2317499356" ; здесь делал разное: Else, If not EnterKey$= , != и т.д. 
EnterKey$=""
SimKol=0
End ; если вылетает, значит выполняется это условие
EndIf  
EndIf

...

click=0
EndIf
EndIf

не большая не важная поправка, код php убрал знак \. bt\ это в типе. Например тут btstatus=2, а должно быть bt\status=2