Director MX, Radrytning i textfiler

addeMedlem sedan jan. 2000120 inlägg

Frågan28 mars 2005 19:41#1

Hepp,

Har skapat ett litet script som skapar en textfil med FileIO.. och det funkar perfekt, det enda problemet är att textfilen blir en enda lång rad... jag vill bryta raden lite här och där men vet inte hur jag ska göra (jag kollar på filen i anteckningar).

Har provat följande:

set LF = numToChar(13)
text = "blablabla" & LF & "mer blabla"

Men det fungerar inte, mycket tacksam för hjälp.

addeMedlem sedan jan. 2000120 inlägg

28 mars 2005 20:23#2

om man..

Om man sparar det i word format så fungerar det..

Men när jag gör en shockwavefil av det så fungerar det inte alls ,ingentin händer...

Jag har skrivit följande:

on mouseUp
global gVald
set LF = numToChar(13)

if gVald = 1 then
text = "text 1" & LF &"mer text."
else if gVald = 2 then
text = "text 2" & LF &"mer text "
else if gVald = 3 then
text = "text 3" & LF &"mer text"

else
text="Ett fel har uppstått"
end if

fileObj = new(xtra "FileIO")
if the platform contains "mac" then
setFilterMask(fileObj,"TEXT")
else
setFilterMask(fileObj,"Text Files,*.doc,All Files,*.*")
end if

filename = displaySave(fileObj,"Spara träningsschemat som...","Träningsschema.doc")
if filename = "" then return FALSE
openFile (fileObj,filename,2)
delete(fileObj)

createFile(fileObj,filename)
openFile(fileObj,filename,2)

if status(fileObj) <> 0 then
err = error(fileObj,status(fileObj))
alert "Error:"&&err
return FALSE
end if

writeString(fileObj,text)

if the platform contains "Mac" then
setFinderInfo(fileObj, "TEXT ttxt")
end if

closeFile(fileObj)

end

Är det någon som har koll på detta???