Подскажите, непойму как дописать в конец файла

[Артем Валерьевич]

Подскажите, непойму как дописать в конец файла.


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

Так вот непойму как добавить новые строки в конец файла.

Вот оно.
(ентити создается в координатах игрока):

 
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 ;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++

[IGR]

ну может попробовать ReadLine до конца файла (While Not Eof), ну если дочитали до конца, то начинаем дописывать новые строки !!

[Harter]

FAQ по Blitz3D, на blitzetcetera.org:

Как открыть уже существующий файл и записать в его конец информацию

Файл можно открыть командой OpenFile. Действительно, при открытии файла позиция записи устанавливается в его начало. Устранить это можно двумя способами. Ламерским: сначала считать из файла всю потом записать с учетом новой инфы (можно, кстати, и так):
While Not(Eof(Your_File))

Readline$ your_File
Wend
;потом записываете вашу инфу

Или вот так:
filename$="имя_вашего_файла"

file=OpenFile(filename$)
SeekFile filе,FileSize(filename$)

[Артем Валерьевич]

так делаю, или нет, неполуается, чет тупняки:

 
 
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 ;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++

[IGR]

poz1 = ReadFile("gun01.ini")

открывает файл для чтения...

[Артем Валерьевич]

укажи пожалуйста ошибки и скажи как исправить, пожалуйста

[IGR]

там нада помойму OpenFile юзать !!
ну прост я не помню в справке нада посмотреть !! у меня ее нету !!
а ты открываеш файл для чтения, по этому и не дописывается у файл !!

вот жеж кста те написали:

While Not(Eof(Your_File))

Readline$ your_File
Wend
;потом записываете вашу инфу

Или вот так:
filename$="имя_вашего_файла"

file=OpenFile(filename$)
SeekFile filе,FileSize(filename$)

[Артем Валерьевич]

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

[IGR]

я ничего не жевал !!

[Артем Валерьевич]

Ура, миниредактор обьектов, (расстановщик) заработал.
Спасибо большое IGR

[Артем Валерьевич]

Вот так работает:

 
 
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 ;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++