Xojo先ほどの続き

  とりあえず、Actionに下記ソースを加えると、ファイルへ出力できる

　'ファイル出力用
  fout=GetFolderItem("output.txt")
  txtout=fout.CreateTextFile
  txtout.delimiter =Chr(13)
  for i =1 to ixmx
    txtout.WriteLine str(f(i))
  next i
  txtout.Close