Сообщение от DeeJex
Срочно нужна была такая функция, вот накарябал быстренько, может кому и понадобится
|
Можно чуть по проще сделать...
...10 минут спустя...
;Создаем банк "test" c текстом "Hello World!"
test=Bank_SaveLine("Hello World!")
;Извлекаем из банка "test" записанный текст и печатаем его
Print Bank_ReadLine(test)
;Ждем нажатия клавиши перед выключением программы (чтобы успеть прочесть результат)
WaitKey
;Функция записи текста в банк
Function Bank_SaveLine(Save_Text$)
Local TextLen=Len(Save_Text$)
bank = CreateBank(TextLen)
For t=0 To (TextLen-1)
PokeByte bank,t,Asc(Mid(Save_Text$,t+1,1))
Next
Return bank
End Function
;Функция чтения текста из банка
Function Bank_ReadLine$(bank)
Local BankScale=BankSize(bank),t,ReadText$
For t=1 To BankScale
ReadText$=ReadText$+Chr(PeekByte(bank,t-1))
Next
Return ReadText$
End Function
Терь можно и у ся в игрухе юзать)