Problem with formatting the saved text to hard disk

Question

I use a modified code from Macromedia for saving the content of a text filed on hard disk. See code at the end.
The code works fine and a text file is saved in the given location on the hard disk.
The problem is that all of the content of the text field appears in a very long single line.
The line breaks in the text field does not appear at all in the saved text file.
for example:
if the following is the the content of the text filed on the stage:
abcdef
jhijklm
nopqrst
uvxwyz 
then the saved file is like: abcdefjhijklmnopqrstuvxwyz 
No line break happens! How can this be fixed?
Thanks for any suggestions.
HR
******************* Here is the code *************************
--this handler saves the contents of the field into a text file called 'output.txt'
--it over writes anything that is in the 'output.txt' file.
global myFile
on mouseUp
  if objectP(myFile) then set myFile = 0  --Delete the instance if it already exists
  myFile = new(xtra "fileio")    -- Create an instance of FileIO
  openFile (myFile, the moviePath &"output.txt",0)--Open the file with R/W access
  delete(myFile) --deletes the file
  createFile (myFile, the moviePath &"output.txt) --creates the file again
  openFile(myFile,the moviePath &"output.txt,0) --Open the file with R/W access
  mySaveString = member("input").text --puts the contents of the field 'input' into the variable mySaveString
  writeString(myFile,mySaveString) --writes text to the file
  closeFile(myFile) -- Close the file
  myFile = 0 -- Dispose of the instance
end

Answer 1

You need to replace the carriage returns (that aren't followed by a line feed) with the CRLF combination. Feel free to place the following JavaScript handler into a movie script and call it prior to writing your string to disk:
function jsStringToDOS (str) {
  return str.replace(/(\x0D)(?!\x0A)/g, "\x0D\x0A");
global myFile
on mouseUp
  if objectP(myFile) then set myFile = 0  --Delete the instance if it already exists
  myFile = new(xtra "fileio")    -- Create an instance of FileIO
  openFile (myFile, the moviePath &"output.txt",0)--Open the file with R/W access
  delete(myFile) --deletes the file
  createFile(myFile, the moviePath &"output.txt") --creates the file again
  openFile(myFile,the moviePath &"output.txt",0) --Open the file with R/W access
  mySaveString = member("input").text --puts the contents of the field 'input' into the variable mySaveString
  mySaveString = jsStringToDOS(mySaveString) -- convert to Windows CRLF characters
  writeString(myFile,mySaveString) --writes text to the file
  closeFile(myFile) -- Close the file
  myFile = 0 -- Dispose of the instance
end