CLEO Help Delete string from file

[Parazitas]

Hello.
I making project which called "NOTEPAD" , but now i get problem..
Maybe someone know how i can delete last character from .txt file?

@Opcode.eXe
@monday

etc...

 

[Opcode.eXe]

Try something like this?

IF 0AAB: file_exists "CLEO\buffer.txt"
THEN 0B00: delete_file "CLEO\buffer.txt"
END
0A9A: 31@ = openfile "CLEO\file.txt" mode 0x6272
0A9C: 30@ = file 31@ size
0A9A: 29@ = openfile "CLEO\buffer.txt" mode 0x6277
30@ -= 1 // remove last byte(char) from file
0AC8: 28@ = allocate_memory_size 260
0A9D: readfile 31@ size 30@ to 28@
0A9E: writefile 29@ size 30@ from 28@
0A9B: closefile 31@
0A9B: closefile 30@

or do something like

0AB1: call @delete_last_char_from_string 1 0@
:delete_last_char_from_string
var
0@: int
1@: int
end
//0@ - string
0C17: 1@ = strlen 0@
dec(1@)
0@ += 1@
0C11: memset 0@ 0 1
ret 0

 

[Parazitas]

Try something like this?

IF 0AAB: file_exists "CLEO\buffer.txt"
THEN 0B00: delete_file "CLEO\buffer.txt"
END
0A9A: 31@ = openfile "CLEO\file.txt" mode 0x6272
0A9C: 30@ = file 31@ size
0A9A: 29@ = openfile "CLEO\buffer.txt" mode 0x6277
30@ -= 1 // remove last byte(char) from file
0AC8: 28@ = allocate_memory_size 260
0A9D: readfile 31@ size 30@ to 28@
0A9E: writefile 29@ size 30@ from 28@
0A9B: closefile 31@
0A9B: closefile 30@

or do something like

0AB1: call @delete_last_char_from_string 1 0@
:delete_last_char_from_string
var
0@: int
1@: int
end
//0@ - string
0C17: 1@ = strlen 0@
dec(1@)
0@ += 1@
0C11: memset 0@ 0 1
ret 0

Thx for your support , i try it.