|
3D-программирование Вопросы, касающиеся программирования 3D мира |
03.11.2009, 10:32
|
#1
|
Бывалый
Регистрация: 25.12.2007
Адрес: г. Краснодар
Сообщений: 894
Написано 421 полезных сообщений (для 1,079 пользователей)
|
Подскажите, непойму как дописать в конец файла
Подскажите, непойму как дописать в конец файла.
функция должна открыть файл, запросить название нового добавляемого ентити, и дописать его с координатами в конец файла.
Так вот непойму как добавить новые строки в конец файла.
Вот оно.
(ентити создается в координатах игрока):
x#=EntityX (a.MatchMan\PiwotPers)
y#=EntityY (a.MatchMan\PiwotPers)
z#=EntityZ (a.MatchMan\PiwotPers)
Text 20,20,"Pers x: "+x#
Text 20,50,"Pers z: "+y#
Text 20,80,"Pers y: "+z#
FlushKeys()
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++
If KeyDown( 25 )=True Then
;
Typeofpoz$=Input$("name of entity-") ;
FilesName$=Input$("name of File-") ;
poz1 = WriteFile(FilesName$ +".ini") ;
;
WriteLine( poz1,Typeofpoz$+"[") ;
WriteLine( poz1, x# ) ;
WriteLine( poz1, y# ) ;
WriteLine( poz1, z# ) ;
WriteLine( poz1,"]") ;
;
CloseFile( poz1 ) ;
;
End If ;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
(Offline)
|
|
03.11.2009, 12:51
|
#2
|
Blitz's Shame !!
Регистрация: 31.03.2007
Сообщений: 3,639
Написано 832 полезных сообщений (для 2,013 пользователей)
|
Ответ: Подскажите, непойму как дописать в конец файла
ну может попробовать ReadLine до конца файла (While Not Eof), ну если дочитали до конца, то начинаем дописывать новые строки !!
|
(Offline)
|
|
03.11.2009, 13:00
|
#3
|
Бывалый
Регистрация: 03.11.2008
Адрес: Украина, Днепропетровск
Сообщений: 871
Написано 554 полезных сообщений (для 2,520 пользователей)
|
Ответ: Подскажите, непойму как дописать в конец файла
FAQ по Blitz3D, на blitzetcetera.org:
Как открыть уже существующий файл и записать в его конец информацию
Файл можно открыть командой OpenFile. Действительно, при открытии файла позиция записи устанавливается в его начало. Устранить это можно двумя способами. Ламерским: сначала считать из файла всю потом записать с учетом новой инфы (можно, кстати, и так):
While Not(Eof(Your_File))
Readline$ your_File
Wend
;потом записываете вашу инфу
Или вот так:
filename$="имя_вашего_файла"
file=OpenFile(filename$)
SeekFile filе,FileSize(filename$)
|
|
(Offline)
|
|
03.11.2009, 14:36
|
#4
|
Бывалый
Регистрация: 25.12.2007
Адрес: г. Краснодар
Сообщений: 894
Написано 421 полезных сообщений (для 1,079 пользователей)
|
Ответ: Подскажите, непойму как дописать в конец файла
так делаю, или нет, неполуается, чет тупняки:
x#=EntityX (a.MatchMan\PiwotPers)
y#=EntityY (a.MatchMan\PiwotPers)
z#=EntityZ (a.MatchMan\PiwotPers)
Text 20,20,"Pers x: "+x#
Text 20,50,"Pers z: "+y#
Text 20,80,"Pers y: "+z#
FlushKeys()
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++
If KeyDown( 25 )=True Then
poz1 = ReadFile("gun01.ini")
While Not(Eof(poz1))
ReadLine$ poz1
Wend
;
Typeofpoz$=Input$("name of entity-") ;
;FilesName$=Input$("name of File-") ;
;poz1 = WriteFile(FilesName$ +".ini") ;
;
WriteLine( poz1,Typeofpoz$+"[") ;
WriteLine( poz1, x# ) ;
WriteLine( poz1, y# ) ;
WriteLine( poz1, z# ) ;
WriteLine( poz1,"]") ;
;
CloseFile( poz1 ) ;
;
End If ;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
(Offline)
|
|
03.11.2009, 14:39
|
#5
|
Blitz's Shame !!
Регистрация: 31.03.2007
Сообщений: 3,639
Написано 832 полезных сообщений (для 2,013 пользователей)
|
Ответ: Подскажите, непойму как дописать в конец файла
poz1 = ReadFile("gun01.ini")
|
открывает файл для чтения...
|
(Offline)
|
|
03.11.2009, 14:42
|
#6
|
Бывалый
Регистрация: 25.12.2007
Адрес: г. Краснодар
Сообщений: 894
Написано 421 полезных сообщений (для 1,079 пользователей)
|
Ответ: Подскажите, непойму как дописать в конец файла
укажи пожалуйста ошибки и скажи как исправить, пожалуйста
|
(Offline)
|
|
03.11.2009, 14:46
|
#7
|
Blitz's Shame !!
Регистрация: 31.03.2007
Сообщений: 3,639
Написано 832 полезных сообщений (для 2,013 пользователей)
|
Ответ: Подскажите, непойму как дописать в конец файла
там нада помойму OpenFile юзать !!
ну прост я не помню в справке нада посмотреть !! у меня ее нету !!
а ты открываеш файл для чтения, по этому и не дописывается у файл !!
вот жеж кста те написали:
While Not(Eof(Your_File))
Readline$ your_File
Wend
;потом записываете вашу инфу
Или вот так:
filename$="имя_вашего_файла"
file=OpenFile(filename$)
SeekFile filе,FileSize(filename$)
|
|
(Offline)
|
|
03.11.2009, 14:48
|
#8
|
Бывалый
Регистрация: 25.12.2007
Адрес: г. Краснодар
Сообщений: 894
Написано 421 полезных сообщений (для 1,079 пользователей)
|
Ответ: Подскажите, непойму как дописать в конец файла
бум пробовать, спасибо что откликнулся и разжевал мне.
|
(Offline)
|
|
03.11.2009, 14:51
|
#9
|
Blitz's Shame !!
Регистрация: 31.03.2007
Сообщений: 3,639
Написано 832 полезных сообщений (для 2,013 пользователей)
|
Ответ: Подскажите, непойму как дописать в конец файла
я ничего не жевал !!
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
03.11.2009, 14:51
|
#10
|
Бывалый
Регистрация: 25.12.2007
Адрес: г. Краснодар
Сообщений: 894
Написано 421 полезных сообщений (для 1,079 пользователей)
|
Ответ: Подскажите, непойму как дописать в конец файла
Ура, миниредактор обьектов, (расстановщик) заработал.
Спасибо большое IGR
|
(Offline)
|
|
03.11.2009, 14:55
|
#11
|
Бывалый
Регистрация: 25.12.2007
Адрес: г. Краснодар
Сообщений: 894
Написано 421 полезных сообщений (для 1,079 пользователей)
|
Ответ: Подскажите, непойму как дописать в конец файла
Вот так работает:
x#=EntityX (a.MatchMan\PiwotPers)
y#=EntityY (a.MatchMan\PiwotPers)
z#=EntityZ (a.MatchMan\PiwotPers)
Text 20,20,"Pers x: "+x#
Text 20,50,"Pers z: "+y#
Text 20,80,"Pers y: "+z#
FlushKeys()
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++
If KeyDown( 25 )=True Then ;
;
poz1 = OpenFile("gun01.ini") ;
While Not(Eof(poz1)) ;
;
ReadLine$ poz1 ;
Wend ;
;
Typeofpoz$=Input$("name of entity-") ;
;
WriteLine( poz1,Typeofpoz$+"[") ;
WriteLine( poz1, x# ) ;
WriteLine( poz1, y# ) ;
WriteLine( poz1, z# ) ;
WriteLine( poz1,"]") ;
;
CloseFile( poz1 ) ;
;End If ;
End If ;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 10:15.
|