Director FileIO Xtra应用实例

1. 用“Open”对话框将文本文件读取到域里

以下处理程序将一文本件文读取到一域文本演员中（演员名称为“myfield”）。这种方法允许你从标准的Macintosh或Windows系统的“Open”对话框选择文件。

on readFromFile
　　global myFile
　　if objectp(myFile) then set myFile = 0–替换当前“myfile‘‘中的文本
　　set myFile = new(xtra “fileio”)–建立一个FileIO的事例
　　if the machinetype = 256 then
　　　　setfiltermask(myfile,“All files,.,Text files,*.txt”)–指定文件类型（win）
　　else
　　　　setfiltermask(myfile,“Text”)–指定文件类型（mac）
　　end if
　　set filename = displayOpen(myFile)–显示“Open”对话框
　　if not voidp(filename) and not(filename = EMPTY) then
　　　　openFile(myFile,filename,1)–打开用户选择的文件
　　　　if status(myFile) = 0 then
　　　　　　set thefile = readFile(myFile)–读取文件到一个lingo变量中
　　　　　　put thefile into field"myField"–在域中显示文本
　　　　else
　　　　　　alert error(myfile,status(myfile))–显示报错
　　　　end if
　　end if
　　closeFil