请帮忙把以下的代码精简一下,本人能力有限

wdjking

if $lineold1="B霸王大陆"      then
                                                        ;;_RefreshSystemTray()
                                                        $num+=1
                                                   TrayTip("游戏更新", "现在更新的游戏是："&$name, "", 1)
                                                    _bwdl($nname,$path)  
                                                endif
                                                if $lineold1="B飚车"           then         
                                                                                            ;_RefreshSystemTray()
                                                    $num+=1
                                                   TrayTip("游戏更新", "现在更新的游戏是："&$name, "", 1)
                                                    _bc($nname,$path)  
                                                endif  
                                                  if $lineold1="C传奇世界"  then         
                                                   ;_RefreshSystemTray()
                                                    $num+=1
                                                   TrayTip("游戏更新", "现在更新的游戏是："&$name, "", 1)
                                                   
                                                   _cqsj($nname,$path)  
                                                endif
                                                if $lineold1="C彩虹岛online"  then         
                                                   ;_RefreshSystemTray()
                                                   
                                                        $num+=1
                                                   TrayTip("游戏更新", "现在更新的游戏是："&$name, "", 1)  
                                                     
                                                   _chd($nname,$path)  
                                                endif
                                                if $lineold1="C赤壁"  then         
                                                   ;_RefreshSystemTray()
                                                   $num+=1
                                                   TrayTip("游戏更新", "现在更新的游戏是："&$name, "", 1)
                                                     
                                                   _cb($nname,$path)  
                                                endif
                                               if $lineold1="C超级乐者"  then         
                                                   ;_RefreshSystemTray()
                                                   $num+=1
                                                   TrayTip("游戏更新", "现在更新的游戏是："&$name, "", 1)
                                                     
                                                   _cjyz($nname,$path)  
                                                endif
                                              if $lineold1="C超级武林大富翁"  then         
                                                   ;_RefreshSystemTray()
                                                   $num+=1
                                                   TrayTip("游戏更新", "现在更新的游戏是："&$name, "", 1)
                                                     
                                                   _cjwldfw($nname,$path)  
                                                endif
觉得重复的语句太多了

[ 本帖最后由 wdjking 于 2008-7-21 22:07 编辑 ]

bigger

提供一种思路，本人对Call语法不熟悉，仅供参考。

Global $nname, $path
$lineold1 = StringSplit("B霸王大陆,B飚车,C传奇世界,……", ",")
$lineold2 = StringSplit("_bwdl,_bc,_cqsj,……", ",")
For $i = 1 To $lineold1[0]
        _Exectd($lineold1[$i], $lineold2[$i])
Next

Func _Exectd($sa, $sb)
        Local
        If $sa Then
                ;;_RefreshSystemTray()
                $num += 1
                TrayTip("游戏更新", "现在更新的游戏是：" & $name, "", 1)
                Call($sb & " ($nname, $path)")
        EndIf
EndFunc   ;==>_Exectd

[ 本帖最后由 bigger 于 2008-7-16 12:01 编辑 ]

wdjking

我觉得思路倒是可以,