//----------------隨機內容存入----------------------------------
HH1 = ReadUIConfig("輸入框1")
HH2 = ReadUIConfig("輸入框2")
HH3 = ReadUIConfig("輸入框3")
HH4 = ReadUIConfig("輸入框4")
HH5 = ReadUIConfig("輸入框5")
運行次數=ReadUIConfig("輸入框6")
文件路徑="/sdcard/MobileAnjian/hanhua.txt"
Call File.Write(文件路徑,HH1&"\n")
Call File.Append(文件路徑, HH2 & "\n")
Call File.Append(文件路徑, HH3 & "\n")
Call File.Append(文件路徑, HH4 & "\n")
Call File.Append(文件路徑, HH5 & "\n")
//-------------------------隨機內容存入結束-----------------------
//------------------------隨機內容取出---------------
TracePrint "進入隨機內容"
Randomize //隨機數生成器
隨機結果 = Int(((5 - 1 + 1) * Rnd()) + 1)
輸出內容= File.Readline(文件路徑, 隨機結果)
InputText 輸出內容
Delay 1200
//------------------------隨機內容取出完畢------------