周期性改变窗口文本显示,内容随机显示为txt中段落文字

类似,玩游戏,在切换场景加载读条时,出现在加载页面下方的提示信息,会每隔一段时间随机变化.

#SingleInstance, Force
SendMode Input
SetWorkingDir, %A_ScriptDir%

gui,Add,Text, w200 r3 vmyTip ,初始显示文字
gui,Show,w300 h100,测试
gosub,sub_tip计时
Return
sub_tip计时:
    {
        FileRead,text1,救赎之道就在其中.txt ;与脚本同级路径的一个txt文件,文件中文本内容以回车分隔
        ;msgbox %text1% ;这里测试,看下是否将目标文件中的文本保存进变量
        arr1:=[] ;创建一个空数组

        ;解析字符串，以`n为分隔进行解析，并将每一段字符串作为元素保存进入数组中
        Loop, Parse,text1,`n
        {
            arr1[A_Index]:=A_LoopField
        }
        ;这里是遍历数组进行测试,查看是否被赋值进数组
        ; For index, x in arr1
        ;     MsgBox % "Item " index "is"  x 
        SetTimer,计时,4000 ;每4秒执行一次
        Return
    }
计时:
    {
        Random, n, 1, arr1.length()
        GuiControl,text, myTip,% arr1[n]
        Return
    } 
;如果不需要"初始显示文字",可以删除掉,然后 将"计时:{}"标签内容整个移动到SetTimer,计时,4000 和Return之间