Показать сообщение отдельно
Старый 19.02.2010, 09:28   #710
Жека
Дэвелопер
 
Регистрация: 04.09.2005
Адрес: Красноярск
Сообщений: 1,376
Написано 491 полезных сообщений
(для 886 пользователей)
Ответ: Вопрос-Ответ (для новичков)

Nex, посмотри пример ниже, может в нём то, что тебе надо.

Local size = 20
Local bank = CreateBank (size) ;создаём банк
Local offset = 0

;записываем данные в банк
For k=1 To size/2
	PokeShort (bank, offset, Rand (0,30000))
	offset = offset + 2
Next

;открываем файл для записи данных
Local file = WriteFile ("data.txt")

WriteLine (file, "bank data")
WriteBytes (bank, file, 0, size) ;записываем из банка в файл

;закрываем файл
CloseFile (file)

End
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Nex (19.02.2010)