当前位置学海荡舟 -> 电脑乐园 -> Flash实例



23.搜寻关键字数之二

  4、定影帧Actions。总共有两个关键帧,第1个关键帧设定的Actions为:stop,即停止。

插入两个关键帧   第1个帧的Actions

第2个关键帧设定的Actions为:

第2帧的Actions

Set Variable: "total" = 0
Set Variable: "n" = Length ( text )
Set Variable: "m" = Length (keyword)
Loop While (n > 0 and m > 0)
 Set Variable: "search" = Substring ( text, n ,m )
 If (search eq keyword)
  Set Variable: "total" = total + 1
 End If
 Set Variable: "n" = n- 1
End Loop
If (total>0)
 Set Variable: "result" = "找到"&total&"个关键字"
Else
 Set Variable: "result" = "抱歉,找不到任何关键字"
End If
解释:此场景始终停留在第1个影帧,并不会播放第2个影帧,第2个影帧中的Actions由按钮来调用(用Call语句)。变量n是实体名为“text”的Text Field的字符数,变量m是实体名为“keyword”的Text Field的字符数,若两者都大于0,则执行Loop 语句。Loop语句的Actions表示为:从实体名称为“text ”的大Text Field的最后一个字符开始取出m个字符来和keyword比较,若相同就将计数值“total”累加1。直到实体名称为“text”的Text Field的第1个字符才跳出Loop。最后判断计数值“total”的大小,如果变量“total”大于0,则在变量名为“result”的Text Field中显示“找到‘total’个关键字”,否则显示“抱歉,找不到任何关键字”。
  5、放置按钮。将按钮元件“search”导入场景中,其Actions为:

按钮的Actions

On (Press) Call ("2") End On 解释:按下按钮后会调用第2个影帧的Actions来执行。