SannyBuilder.com Forums

GTASA

Registered: 13-09-2008

Posts: 476

Создание txt файла и запись

Как мне скриптом создать txt файл, куда я могу что-нибудь написать? например, текст, цифры какие-то? Толковых уроков нигде найти не могу. Желательно без применения всяких дополнительных плагинов.

~AquaZ~

Registered: 01-03-2010

Posts: 726

Re: Создание txt файла и запись

Чё съел, лодырь? Читай мануал.

Den_spb

From: Ленинград

Registered: 23-11-2008

Posts: 941

Website

Re: Создание txt файла и запись

В теме Один вопрос ближе к началу были примеры кодов, записывающих текст и числа в файл.

GTASA

Registered: 13-09-2008

Posts: 476

Re: Создание txt файла и запись

{$CLEO}
wait 0

:START
wait 0
 if
 00DF:  actor $PLAYER_ACTOR driving
jf @START
   if
   0AB0:  key_pressed 17 // Ctrl
   jf @START
     03C0: 8@ = actor $PLAYER_ACTOR car
     00AA: store_car 8@ position_to 1@ 2@ 3@
     0441: 4@ = car 8@ model
     03F3: get_car 8@ primary_color_to 5@ secondary_color_to 6@
     0174: 7@ = car 8@ Z_angle
     0A99: chdir 0
     0A9A: 0@ = openfile "My_info.txt" mode 0x6277
     0A9E: writefile 0@ size 4 from 1@ // X pos
     0A9E: writefile 0@ size 4 from 2@ // Y pos
     0A9E: writefile 0@ size 4 from 3@ // Z pos
     0A9E: writefile 0@ size 4 from 4@ // modelId
     0A9E: writefile 0@ size 4 from 5@ // 1st color
     0A9E: writefile 0@ size 4 from 6@ // 2nd color
     0A9E: writefile 0@ size 4 from 7@ // Z angle
     0A9B: closefile 0@
     0A93: end_custom_thread

В чем ошибка? Почему в моем файле создаются всякий бред в виде символов?

~AquaZ~

Registered: 01-03-2010

Posts: 726

Re: Создание txt файла и запись

Точно незнаю, но может число надо как-то перевести в строку? Покажи листинг файла.

GTASA

Registered: 13-09-2008

Posts: 476

Re: Создание txt файла и запись

Что показывать??? Сказал же, символы ненужные пишутся. Ты вообще, я смотрю, очень часто пишешь не по теме.

~AquaZ~

Registered: 01-03-2010

Posts: 726

Re: Создание txt файла и запись

Ну вот и покажи эти "ненужные символы"!

GTASA

Registered: 13-09-2008

Posts: 476

Re: Создание txt файла и запись

А вот если скопировать:
)]EЋ±EО(AV     
    єіC

И что это тебе дает??

~AquaZ~

Registered: 01-03-2010

Posts: 726

Re: Создание txt файла и запись

Блин, файл какой-то маленький. По идее он должен был быть ~38 байт...

Sanchez

Registered: 18-08-2006

Posts: 280

Re: Создание txt файла и запись

@GTASA - а под CLEO 4 не вариант?

{$CLEO}
33@ = 0
while true
    wait 0
    if
        Player.Defined($PLAYER_CHAR)
    then
        if
            Actor.Driving($PLAYER_ACTOR)
        then
            if and
                0AB0:  key_pressed 0x73
                33@ > 150
            then
                03C0: 0@ = actor $PLAYER_ACTOR car
                Car.StorePos(0@, 1@, 2@, 3@)
                4@ = Car.Model(0@)
                03F3: get_car 0@ primary_color_to 5@ secondary_color_to 6@
                7@ = Car.Angle(0@)
                if 
                    File.Open(8@, "My_info.txt", "wt")
                then
                    0AD9: write_formatted_text "Position: %.4f %.4f %.4f Model: %d Color: %d/%d Heading: %.4f" in_file 8@ 1@ 2@ 3@ 4@ 5@ 6@ 7@
                    File.Close(8@)
                end 
                Car.RemoveReferences(0@) 
                33@ = 0
            end
        end
    end
end

Den_spb

From: Ленинград

Registered: 23-11-2008

Posts: 941

Website

Re: Создание txt файла и запись

Примеры кодов записи в файл: http://sannybuilder.com/forums/viewtopic.php?id=49&p=31 . Сообщения 763 - 768

GTASA

Registered: 13-09-2008

Posts: 476

Re: Создание txt файла и запись

Спасибо, попробую разобраться.
Sanchez, не у всех есть клео 4.

===

Так ну я понял, как выводить символ, но если хочу число вывести, у меня в файле пишет 0. Можете сделать мне пример, выводящий координаты игрока X Y Z?

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

Last edited by GTASA (10-04-2010 23:38)

Sanchez

Registered: 18-08-2006

Posts: 280

Re: Создание txt файла и запись

@GTASA -

{$CLEO}
33@ = 0
while true
    wait 0
    if
        Player.Defined($PLAYER_CHAR)
    then
        if and
            0AB0:  key_pressed 0x73
            33@ > 150
        then
            if 
                File.Open(0@, "coords.log", "at")
            then
                Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
                0AD9: write_formatted_text "%.4f %.4f %.4f" in_file 0@ 1@ 2@ 3@
                1@ = 2573
                File.Write(0@, 2, 1@)
                File.Close(0@)
            end
            33@ = 0
        end
    end
end

Last edited by Sanchez (11-04-2010 07:49)

GTASA

Registered: 13-09-2008

Posts: 476

Re: Создание txt файла и запись

Надо на клео 3(

~AquaZ~

Registered: 01-03-2010

Posts: 726

Re: Создание txt файла и запись

Поменяй режим с 0x6277 на 0x77!

Sw[ee]t

From: Нижний Новгород

Registered: 16-02-2009

Posts: 686

Website

Re: Создание txt файла и запись

Sanchez, не у всех есть клео 4.

Зато у всех есть руки, что бы этот клео4 скачать? Или лень перевешивает?

---

Back to Aperture