使用Fileio xtra可以实现
on mouseUp me
aa = member("YouTxtMember").text
writetxt(gpath & sprite(1).value & ".txt","dairy")
end

on writeTxt TxtFilePath,TxtMemberName
pTxt = new(xtra "fileio")
pTxt.openfile(TxtFilePath,2)

if status(pTxt) = 0 then
delete(pTxt)
end if

pTxt.createFile(TxtFilePath)
pTxt.openFile(TxtFilePath,2)

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

if member(TxtMemberName).text = "" then
delete(pTxt)
pTxt.closefile()
return True
else
writeString(pTxt,member(TxtMemberName).text)
pTxt.closefile()
return TRUE
end if

end writeTxt