Replace returns with PC line breaks

 

Compatibilities:

This item has not yet been rated

This replaces all returns with valid PC line breaks for saving text files.

--Copyright 1999 Chuck Neal --chuck@mediamacros.com --If you find this code helpful, send me an e-mail and let me know.  :-) on replaceBreaks whatText   set PCBreak  = numToChar(13) & numToChar(10)   set theText = ""   repeat with x = 1 to the number of lines in whatText     if x = 1 then       set theText = line x of whatText     else       set theText = theText & PCBreak & line x of whatText     end if   end repeat   return theText end on getBehaviorDescription   describe = "Call thsi function to convert all returns to PC line breaks before saving to a text file."   return describe end

Upload Provided by ABCUpload ASP