Write string at memory end

[BigB0ss]

How do I write a string at the end of the memory?
PokeS will write in front of the memory.
I want to read a file into the memory and add this string: tXñ¦Ï¾µ¦ª£ø¡>þ?ÄiA¿Ð to the end of the memory.

[srod]

Something like :

Code: Select all

fileName$ = "myFile.dat"  ;Make sure this is a valid file.

text$ = "tXñ¦Ï¾µ¦ª£ø¡>þ?ÄiA¿Ð"

lenFile = FileSize(fileName$)
If lenFile > 0
  ;Allocate sufficient memory
    mem = AllocateMemory(lenFile + (Len(text$)+1)*SizeOf(CHARACTER))
  If mem
    If ReadFile(1, fileName$)
      ReadData(1, mem, lenFile)
      CloseFile(1)
      PokeS(mem + lenFile, text$)
    Else
      MessageRequester("Problem!", "Can't open file!")
    EndIf
  Else
    MessageRequester("Problem!", "Insufficient memory!")
  EndIf
Else
  MessageRequester("Problem!", "File is either a folder or is empty!")
EndIf

Depending on the nature of the file you may wish to add some kind of 'terminator' before appending the string etc.

[BigB0ss]

OMG, it works
Thank you very much srod!

[srod]

OMG, it works
Thank you very much srod!

You sound surprised that it works!