2008年7月12日 星期六

FTP工作時的二種連接模式

FTP中的兩種工作方式 :

防火牆有很多種,其中有一些會禁止那些不是從內部網路IP發出的連接請求。而ftp協議是個很老的東東,沒有考慮這個問題。可以這樣簡單描述一般ftp的工作原理:
client對server發出請求:「嗨,我的xxPort正等著你傳送資料呢,sever聽到這個請求,就會建立一個連接,指向這個Port,並且開始傳送資料。這就回到了我們的問題,如果發出請求的client在防火牆的後面,而這個防火牆禁止外部IP建立連接,那麼當然server(在外部)不能建立與client的連接。
所以,過了幾年,人們修改了ftp協議以應付這種情況。這就是passive mode,工作原理如下:client向server發出passive命令,server回答說:「資料在xxPort等你,自己來拿。」 而這回則由client建立指向server的連接,從而取得資料。這就避免了防火牆的限制。

  FTP是一種文件傳輸協議,它支持兩種模式,一種方式叫做Standard (也就是 Active,主動方式),一種是 Passive (也就是PASV,被
動方式)。 Standard模式 FTP的客戶端發送 PORT 命令到FTP server。Passive模式FTP的客戶端發送 PASV命令到 FTP Server。

接著下面,介紹一個ftp,這兩種方式的工作原理:
  Standard模式FTP 客戶端首先和FTP Server的TCP 21Port建立連接,通過這個通道發送命令,客戶端需要接收資料的時候在這
個通道上發送PORT命令。 PORT命令包含了客戶端用什麼Port接收資料。在傳送資料的時候,服務器端通過自己的TCP 20Port發
送資料。 FTP server必須和客戶端建立一個新的連接用來傳送資料。
  Passive模式在建立控制通道的時候和Standard模式類似,當客戶端通過這個通道發送PASV 命令的時候,FTP server開啟一個
位於1024和5000之間的隨機Port並且通知客戶端在這個Port上傳送資料的請求,然後FTP server 將通過這個Port進行資料的傳送,
這個時候FTP server不再需要建立一個新的和客戶端之間的連接。
  現在的FTP軟體裡面包括在IE5以上的版本裡面也已經支持這兩種模式了。一般一些FTP客戶端的軟體就比較好設置了,一
般都有一個PASV的選項,比如CuteFTP,傳輸的方式都有Standard和PASV的選項,可以自己進行選擇;另外在IE裡面如果要設
置成PASV模式的話可以選中工具-Internet選項-進階-為FTP站點啟用資料夾視圖,否則就採用Standard模式。
  很多防火牆在設置的時候都是不允許接受外部發起的連接的,所以FTP的Standard模式在許多時候在內部網路的機器通過防
火牆出去的時候受到了限制,因為從服務器的TCP 20無法和內部網路的客戶端建立一個新的連接,造成無法工作。當然也可以
設置成功,首先要建立一條規則就是允許內部的IP連接外部的IP的21Port;第二條就是禁止外部IP的TCP 20Port連接內部IP的
<1024的Port,這條是為了防止外部連接內部的一般Port;第三條驗證ACK是否等於1,這個的原理就參見TCP建立連接的三次握
手吧。所以如果安全的配置的話非常困難,這個時候就想起來了PASV模式,因為不用建立新的連接,所以也就不會涉及到後
面的問題了。但是管理員可能不想使用PASV模式,因為這個時候FTP Server會開放一個隨機的高Port,儘管在IIS4和IIS5里面Port
的範圍是1024-5000,但是許多FTP Server的Port範圍達到了1024-65535,這個時候在這個主動開放的隨機Port上是有完全的訪
問權限的,如果IIS也要設置成開放的Port為1024-65535,具體方法如下:
1. regedt32
2. 找到HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters
3. 編輯-新增-數值

Value Name: MaxUserPort Data Type: REG_DWORD Value: 65534
  所以如果遇到了有防火牆的話或者怕配置麻煩的話還是採用PASV模式比較好些,但是如果真的對安全的需求很高的話建
議採用Standard模式。

轉字串為table的函數

在程式中,你可以呼叫這個函數來將字串轉為table,當然您的字串是規格化的,比如您有一個字串→str=" coffee,spring,worm,tea"(是用逗號來分隔的字串內容),那麼你可以在程式中寫:tb_back = DelimitedStringToTable(str, ",");
你可以得到一個table名為tb_back,而其內容就是四個字串。
function DelimitedStringToTable(DelimitedString, Delimiter)
tbReturn = {};
local strWorking;
local nPos = nil;
local strData;
local nTableIndex = 1;
local nDelimiterLength = String.Length(Delimiter);

if(nDelimiterLength < 1)then
tbReturn[nTableIndex] = DelimitedString;
return tbReturn;
end

strWorking = DelimitedString;
nPos = String.Find(strWorking,Delimiter);
while(nPos ~= -1)do
strData = String.Left(strWorking,nPos-1);
tbReturn[nTableIndex] = strData;
nTableIndex = nTableIndex + 1;
local nLength = String.Length(strWorking);
strWorking = String.Right(strWorking,nLength - (nPos + (nDelimiterLength-1)));
nPos = String.Find(strWorking,Delimiter);
end
if(strWorking ~= "")then
tbReturn[nTableIndex] = strWorking;
end

return tbReturn;
end

Script-Tip011其他內建涵數

*dofile
AMS的程式引擎完全支援LUA程式程言,您可以將程式寫在外面存成*.lua(純文字檔),在您的

AMS程式中再以dofile將外部程式檔引入及執行。
語法:

dofile(lua檔路徑);

您可以用這種方式來幫助您整理及分類龐大的程式碼,每執行一次上述的語法,路徑中的lua

檔便會重新讀入並執行一次。

*require
與dofile一樣是引入外部的lua檔並執行,不同的地方在於,程式啟動後,以require引入的lua檔

只會執行一次,並存於記憶體中,就算您在某個event中再require一次,程式引擎也不會重讀

路徑中的lua檔。
語法:

require(lua檔路徑);

※require很適合您將變數的初始化或專案會用到的涵數寫在lua然後引入,這樣可避免大量的

變數式及functions寫在global script中,程式碼多到您自己眼花。

※只要您將您要引入的外部lua檔,放入專案的Modules目錄中,您在寫路徑的時候就不必寫完

整路徑,只要寫檔名就行了,這適用於dofile及require
例如:您寫了一個外部檔test.lua並放入專案的Modules目錄中,那您引入的語法:

dofile("test.lua");

require("test.lua");

*type
這個內建涵數是讓您用來取得一個變數所帶的資料型別的,語法:

my_var = type(變數);

依資料的不同,它會傳回六種字串名:"nil","number","string","boolean","table","function"
例如:
a = 898;
my_var = type(a); --my_var會得到"number"這個字串值

b = "coffeeworm";
two_var = type(b); --two_var會得到"string"這個字串值

※在程式實務中,有時您必須確認一下變數的型別是不是您所想要的,以避免出錯。
範例:


code:--------------------------------------------------------------------------------
function Max(n1, n2)
if (type(n1)~= "number") or (type(n2)~= "number") then --利用這行來判斷是否二個參數都是數字
Dialog.Message("錯誤","二個都必須輸入數字");
return nil;
else
if n1 > n2 then
return n1;
else
return n2;
end
end
end

Script-Tip012程式的除錯

*寫程式出現錯誤是常發生的事,當您的程式越寫越多,就愈容易犯邏輯錯誤,譬如重覆定義了變數,或符號打錯了,有時為了找一個小錯誤會花上您一天的時間。
AMS提供了很完善的除錯機制,讓您在程式執行錯誤時可以很快地找到錯誤的地方。所有在AMS中的Script都使用同一個除錯技術。
不過有一點是您必須了解的,在有些function,modules或script並不必然能除錯的,尤其是一些外界開發者所寫的用於AMS的程式,可能有它們自己的除錯方式,您必須要自行去讀取這些作者的文件,以了解如何發現錯誤。
※您所寫的程式可能千變萬化(程式語言彈性本來就很大),程式引擎通常只能捕捉明顯的寫法錯誤,其他您就不要太苛求了!

在AMS中,當您執行程式時,程式引擎所能捕捉的錯誤有二類: 語法錯誤和功能性錯誤

*語法錯誤
這類型的錯誤,通常是您的程式寫法有缺損或錯誤,在您預覽或建立(build)您的程式時會被捕捉到。例如:

foo =

上列的程式碼算是很明顯的式子不完整,定義了變數卻沒有指定值給它。
語法錯誤還有一種是您使用內建涵數,但卻沒有傳入規定的參數個數,不過這種錯誤在預覽及建立程式時,不會被捕捉到,直到執行期才會出現錯誤。
例如:

Dialog.Message("大家好");

如上式,使用訊息對話盒的涵數,至少要傳入二個參數(可參閱各action說明),但只傳入一個,在預覽或建立時都不會捕捉錯誤,因為程式引擎檢查了涵數名稱沒有錯,括號也沒少,也有";"當結尾,所以就不認為有錯,不過這行程式在執行時便會出現錯誤訊息說明少了參數。
※如果您參考一下使用手冊中,Dialog.Message的涵數模型如下:


code:--------------------------------------------------------------------------------
number Dialog.Message ( string Title,
string Text,
number Type = MB_OK,
number Icon = MB_ICONINFORMATION,
number DefaultButton = MB_DEFBUTTON1 )
--------------------------------------------------------------------------------

上述的涵數模式是述說Dialog.Message這個內建涵數需要5個參數傳入,前二個要字串,後三個要數字,不過後三個有預設值,所以您不寫的話就用預設值,前二個就不能省了。

*功能性錯誤
有時候您使用內建涵數去執行某些動作,但給的參數錯了(如打錯字),就會出現這類的錯誤,在建立程式時不會捕捉到錯誤(語法沒錯),而且在執行期,AMS預設不會跳出任何錯誤訊息,例如:

filecontents = TextFile.ReadToString("geskdf''' exist.txt");

要讀入某文字檔,但檔名打錯了,在執行期雖出錯,但程式不會有任何動靜,又如下:

Folder.Delete("c:\\temp");

這行程式是要刪掉c:\temp這個目錄,如果這個目錄不存在,那就發生錯誤,但這類錯誤也不會顯現出任何動靜。
想要捕捉這類的錯誤,您可以靠自己寫程式(利用內建的Debug Action)來捕捉,再自行決定要不要出現錯誤警告,或利用程式來避免。

*Debug Action
使用Application.GetLastError這個內建涵數來了解最近的一個Action的執行結果,用以判斷某一行程式的執行是否成功。
它的寫法公式:
last_error_code = Application.GetLastError();
範例:

code:--------------------------------------------------------------------------------
File.Copy("c:\\temp\\test.dat", "c:\\temp\\text2.dat");
error_code = Application.GetLastError(); --這行可以捕捉上一行的copy的結果的傳回代碼
if (error_code ~= 0) then
Dialog.Message("錯誤", "複製檔案錯誤!");
Application.Exit(); --離開程式(內建action)
end
--------------------------------------------------------------------------------

上面的程式很直覺,AMS的程式引擎規定,任一action的執行如果成功就會傳回 0,若出錯就會傳回某特定的數字代碼(像是1182之類的),所以上面的程式去判斷error_code 這個變數如果不是0,那顯然是copy那行出錯了,便跳出個錯誤訊息給使用者看,接著就退出程式。
※如果您想了解程式引擎所捕捉到的程式錯誤說明,可如下:

code:--------------------------------------------------------------------------------
File.Copy("c:\\temp\\test.dat", "c:\\temp\\text2.dat");
error_code = Application.GetLastError(); --這行可以捕捉上一行的copy的結果的傳回代碼
if (error_code ~= 0) then
Dialog.Message("錯誤", "複製檔案錯誤!說明:" .._tblErrorMessage[error_code]);
Application.Exit(); --離開程式(內建action)
end
--------------------------------------------------------------------------------

上面的式子中_tblErrorMessage[錯誤代碼],這是內建讓您查錯誤說明的Tables,這裡所介紹的是很實用的作法,通常都是用Application.GetLastError()搭配Dialog.Message可以讓您在寫程式時,自覺比較容易出錯的地方,在設計期寫進去幫自己除錯,沒問題了再移掉(放著也行)。
※如果您連續執行了幾個action其中一個出錯,但您的Application.GetLastError()寫在一個對的action後面,那便捕捉不到錯誤了,這點應注意!

*使用Debug.ShowWindow
AMS內建了一系統以Debug開頭的Action,可以讓您在程式執行時出現一個報告執行過程的視窗,這也是一個除錯的利器!
使用法:
Debug.ShowWindow(true);
執行這一行後便會跳出一個視窗,接下來用Debug.Print輔助,便可顯示之後所有程式運行的過程,幫自己檢查運用情形。
執行下一行, Debug視窗就會關掉。
Debug.ShowWindow(false);

若您使用Debug.SetTraceMode(true);這個action的話,便會出現詳細的程式運行情形,利用Debug.GetEventContext()這個內建涵數,您可以取得出錯點是在哪個Event,否則物件一多,涵數一多,您可能會找不到。

Script-Tip010字串的操作

*連接字串:您可以利用 .. 這個運算子來連結二個字串,或者連結字串和數字,數字會轉為

字串。


code:--------------------------------------------------------------------------------
Fullname = "Coffee".." worm";
--這時Fullname的值為"Coffee worm"
d = 365;
text = "一年有"..d.."天";
--這時text的值為"一年有365天"
--------------------------------------------------------------------------------

※為了程式閱讀方便,.. 並不一定要緊靠著字串或變數
foo = "test"..var;
寫成
foo = "test" .. var;也可以

*字串的比較
在寫程式的時候,經常會需要比對二個字串是否一樣,AMS內定使用 == 這個符號作為比對

符號,中文的話沒什麼問題,比對英文時預設是大小寫視為不同的(二個英文字串必須大小寫

都一樣,字串才會相等),比對的結果為布林值。
範例:

code:--------------------------------------------------------------------------------
str_one = "CoffeeWorm";
str_two = "CoffeeWorm";
if str_one == str_two then
Dialog.Message("比對結果", "二個字串相同");
else
Dialog.Message("比對結果", "二個字串不同");
end
--------------------------------------------------------------------------------

上例會顯示二個字串相同

※如果您希望比對時不要管字母大小寫,您可以將欲比對的字串先套用內建涵數Strng.Upper(

轉為大寫)或String.Lower(轉為小寫)再進行比對。
範例:

code:--------------------------------------------------------------------------------
str_one = "coffeeworm";
str_two = "CoffeeWorm";
if String.Lower(str_one) == String.Lower(str_two) then
Dialog.Message("比對結果", "二個字串相同");
else
Dialog.Message("比對結果", "二個字串不同");
end
--------------------------------------------------------------------------------

上例會顯示二個字串相同

*計算字串長度(含有多少個字元)
只要使用內建涵數String.Length就可以傳回字串的長度了

code:--------------------------------------------------------------------------------
str_text = "我是 Coffeeworm";
num_chars = String.Length(str_text);
Dialog.Message("字元數", num_chars.."個字");
--------------------------------------------------------------------------------

※特別注意,中文字是雙位元碼,所以一個中文字會被算二個字元,字串中的空白鍵也會照

算,所以這個例子會回應 「15個字」

*搜尋字串
有時候您會需要在一串長字串中搜尋一下是否含有指定的字串,這只要使用內建涵數

String.Find就行了

code:--------------------------------------------------------------------------------
str_source_text = "Isn't it a wonderful day outside?";
str_search = "wonder";
found_pos = String.Find(str_source_text , str_search);
--如果有找到,會傳回找到字串的最左邊字元的位置,若找不到會傳回nil
if found_pos ~= nil then
Dialog.Message("找到了", "在第"..found_pos.."個字");
else
Dialog.Message("找不到", "不包含這個字串");
end
--------------------------------------------------------------------------------

※中文字也是一樣可以找的,AMS是完全相容於雙位元碼的

*置換指定字串
想在長字串中將所有的某個字換掉可以使用內建涵數String.Replace

code:--------------------------------------------------------------------------------
str_target = "There can be only one. Only one is 合格的!";
str_search = "合";
str_place = "正";
str_new = String.Replace(str_target, str_search, str_place)
Dialog.Message("新字串", str_new);
--------------------------------------------------------------------------------

上例中,str_new便是得出的新字串,原字串中的「格」已被換成「正」了

*分解字串
有時候,我們想取得長字串的某些位置的字元,有三個內建的涵數可以用
String.Left 從字串的左側取得指定數目的字元
String.Right 從字串的右側取得指定數目的字元
String.Mid 指定從字串的第幾字元開始取,取幾個字元
範例:

code:--------------------------------------------------------------------------------
source_text = "It really is good to see you again.";
strleft = String.Left(source_text, 13);
strright = String.Right(source_text, 18);
strmid = String.Mid(source_text, 14, 4);
--------------------------------------------------------------------------------

上例中:
strleft 會是"It really is ",strright 會是" to see you again.",而strmid 會是"good"

*將字串型的數字轉成數字型
當您擁有一個字串型的數字時,您必須利用內建涵數String.ToNumber將它變成數字型態,然

後用於判斷式時才不會出錯。
例如:

code:--------------------------------------------------------------------------------
age = "18";
if age < 31 then
Dialog.Message("test", "比31歲小")
end
--------------------------------------------------------------------------------

上述的程式執行到if age < 31 then這一行時,就會出現錯誤了,因為程式引擎會認為字串和數

值是不能比大小的!
※在實務中,何時會有得到字串型數字的情形呢?譬如,您放了一個InputBox讓使用者輸入數

字,然後您去取得使用者輸入的數字,因InputBox預設取回的是「字串」,所以您便得到了一

個字串型數字。
要解決這個問題,如下:

code:--------------------------------------------------------------------------------
age = "18";
if String.ToNumber(age) < 31 then
Dialog.Message("test", "比31歲小")
end
--------------------------------------------------------------------------------


※還有一個方法:AMS內定,當字串型數字做運算時,就會自動轉換型別了,所以您可以讓

您所握有的字串進行一個數學運算

code:--------------------------------------------------------------------------------
age = "18";
age = age + 0
if age < 31 then
Dialog.Message("test", "比31歲小")
end

Script-Tip009關於functions的使用

涵數是AMS中很有用的功能,分為內建涵數及自訂涵數,像Dialog.Message即為內建涵數,您只要提供所需的參數給它,它便為您呈現對話盒,AMS的內建涵數非常的多,只要熟悉他們的用法,您就可以做大部份的事了,當然您也可以自行定義您所需要的涵數,稱為自訂涵數,您需要按照下列的程式模型來定義:

function 涵數名(參數)
欲執行的程式
return 值;
end

以function關鍵字為首,以end結尾,參數是可有可無的,視您的需要,之中包著您的程式碼,若使用return關鍵字,則可讓涵數的執行有「傳回值」。
下面是一個簡單的自訂涵數範例:


code:--------------------------------------------------------------------------------
function Helloworld()
Dialog.Message("Welcome" , "Hello World !!!");
end
--------------------------------------------------------------------------------

上面是一個沒有參數,沒有傳回值的涵數,名為Helloworld(),您可以在任何地方呼叫它,只要在程式上打入下列這一行:

Helloworld();

如此就會呼叫這個涵數並執行其程式碼,會出現一個對話盒(標題為Welcome,文字為Hello World !!!)
※有一件要特別注意的是:在您呼叫某個涵數之前,必須確定它已經在記憶體中被初始化(即涵數已被執行過),所以我們通常會將自訂涵數集中寫在Globals Functions中,如此當程式啟動時便可確保這些涵數都已初始化了。

*涵數的傳入值(參數)
以下範例:

code:--------------------------------------------------------------------------------
--定義一個含有一個參數的涵數
function HelloWorld(a1)
Dialog.Message("title", a1);
end
--在其他地方呼叫它
HelloWorld("大家好!");
--------------------------------------------------------------------------------

如同上面的範例,執行的結果會出現一個對話盒,標題為title,文字列為 大家好!
當我們在定義涵數時,指明了這個涵數必須含有一個參數(傳入值),所以呼叫的時候就必須寫入您要傳入的字串或數字才不會出錯。上例在呼叫涵數時傳入了「大家好!」這個字串,意思便是以「大家好!」這個字串代表a1這個變數在涵數中的程式碼使用。
當然傳入值理論上可以定義無限多個,就看您的需要了,如下例:

code:--------------------------------------------------------------------------------
--定義一個含有2個參數的涵數
function HelloWorld(a1,a2)
Dialog.Message(a1, a2);
end
--在其他地方呼叫它
HelloWorld("大家好!","世界和平!");
--------------------------------------------------------------------------------

上面的程式碼定義了涵數有二個參數,所以呼叫時便傳入二個字串為參數(以逗點隔開),參數會依次序引入,用「大家好!」代表a1,用「世界和平!」代表a2

*涵數的傳回值
有時候我們寫一些涵數來做特定的事,並希望它將執行的結果(稱為傳回值)傳回給呼叫它的程式,以便繼續運用它執行的結果,如下例:

code:--------------------------------------------------------------------------------
--定義一個涵數,有2個參數,且有一個傳回值
function BMI(x,y)
bmi = y/(x*x);
return bmi;
end
--呼叫
my_var = BMI(1.65, 60);
--------------------------------------------------------------------------------

上面的程式中,特別注意的是傳入二個參數後,涵數內部會用這二個參數做運算,並用return關鍵字傳回計算的結果給呼叫它的式子,所以my_var的值便是計算後的結果。

※多重傳回值

code:--------------------------------------------------------------------------------
--定義一個涵數,有2個參數,且有2個傳回值
function sortNumbers(number1,number2)
if number1 <= number2 then
return number1, number2;
else
return number2, number1;
end
end
--呼叫
first_num, second_num = sortNumbers(number1,number2);
--------------------------------------------------------------------------------

注意上面程式中的呼叫語法,因為有二個傳回值,所以定義二個變數來接收

※重新定義涵數內含的方法很簡單,只要您在程式的其他地方用同一個名稱來定義涵數,那原本同名的涵數就會被覆蓋。

※將涵數放入Tables中
如果您想寫一個大型的程式,用到很多自訂的涵數,您可以考慮將涵數一個個放入Tables中,以便統一管理。
範例:

code:--------------------------------------------------------------------------------
--涵數一
function sun()
Dialog.Message("title", "我是太陽!");
end
--涵數二
function moon()
Dialog.Message("title", "我是月亮!");
end
--建一個空Tables
Hello = {};
--將涵數放入Tables中
Hello.s = sun;
Hello.m = moon;
--呼叫的方法
Hello.s();
Hello.m();

Script-Tip007結構化程式控制

AMS的程式引擎接受的程式控制為 if , while , repeat , for
*if 的語法:

if 條件式 then
--欲執行的程式
end

if , then , end是語法中的關鍵字,一定要使用的,如果條件式成立(即true)那麼if和end之間的程

式碼才會被執行
例如:


code:--------------------------------------------------------------------------------
x = 50;
if x > 10 then
Dialog.Message("title","文字對話盒");
end
--------------------------------------------------------------------------------

上面的例子中,對話盒那行程式是會被執行的,因為條件式「x>10」是成立的。
條件式也可以是複雜的,如下:

code:--------------------------------------------------------------------------------
y = 3;
if (y+7)*10 == 100 then
Dialog.Message("title","文字對話盒");
end
--------------------------------------------------------------------------------

在 if 控制式中也予許加入 else 和 elseif 等關鍵字來增加分支判斷式,如

code:--------------------------------------------------------------------------------
x = 100;
if x < x =" 5;" x ="="" x="="" x="="8" a =" 1;" a =" a+1;" a =" a+1;這一行程式會被執行9次,所以最後a的值為10" count =" 1;" count =" count+1;" count ="="" count =" 1;" count =" count" count ="="">100
--------------------------------------------------------------------------------

*For 迴圈
當您很確定所要執行的迴圈次數,使用for便是一個好選擇,其程式模型如下:

for 變數 = 開始數, 結束數, 步進值 do
程式區塊
end

以for關鍵字開始,以end作為結尾,其中「變數」可以隨意取名,如a,i,x,y......,它只是用來計

數用的,「開始數」代表「變數」的初始值,「步進值」是一個數字,它的意思是每迴圈一

次,變數目前的值便加上「步進值」,再與「結束數」比對,直到條件不成立(變數值大於或

小於結束數),「步進值」不寫的話預設是 1
在程式區塊中一樣可使用break關鍵字跳出迴圈。
以下的範例都是常見的:

code:--------------------------------------------------------------------------------
--demo 1
for x = 1, 10 do
Dialog.Message("test", x)
end

--demo 2
for x = 10, 1, -1 do
Dialog.Message("test", x)
end

--demo3
for x = 1, 100 do
Dialog.Message("test", x)
if x == 50 then
break;
end
end
--------------------------------------------------------------------------------

Script-Tip008關於Tables(Arrays)

在AMS中Tables是一個特別且非常有用的資料型別,您可用它來存放各類型的資料值,包含function或其他Tables
*建立Tables
有二種方法可以在程式中建立Tables第一種方法是用{ }將元素值包含在裡面,如下:
my_tables = {"元素一","元素二","元素三"};

my_tables = {name = "coffee", tel = "06-2841700"};

※Tables本身有二種陣列(Arrays)類型,像上面第一種是「數列式」,第二種是「關聯式」的。
第二種建立Tables的方法,是先建一個空的Tables再加入元素,如下:

my_tables = {};
my_tables[1] = "元素一";
my_tables[2] = "元素二";
my_tables[3] = "元素三";

my_tables = {};
my_tables.name = "coffee";
my_tables.tel = "06-241700";

上面的說明中第一種寫法是針對數列式的Tables,第二種是針對關聯式的Tables

* 存取Tables中的元素(存在Tables中的資料,每一筆以 , 分開)
儲存在Tables中的資料稱為「元素」,每個元素都含有一個key(鍵),這個key就關聯著它所代表的值,而這個key就是我們所謂的「索引(index)」。在AMS中Tables包含二種列陣,一為數列型陣列,它的index是數列組成,由1開始,另一類是關聯型的陣列,它的index可以是字串、數字、涵數。
※數列型陣列
--這個Tables中含有四個元素,值是e1,e2,e3,e4,它們的index是1~4
n_table = {"e1","e2","e3","e4"};
--存取其中元素的方法→ Tables名[第幾個元素],如n_table[2]代表第二個元素的值
Dialog.Message("table test", n_table[2]);
--這會顯示對話盒,其中的文字為 e2

※關聯型的陣列
--這個Tables中含有三個元素,值是one, two, three ,index分別為first, second, third
a_table = {first = "one", second = "two", third = "three"};
--存取這類陣列要利用「點運算子」,a_table.second 代表第二個元素的值
t = a_table.second
--這表示指定"two"給 t 這個變數
下面是一個較複雜的Tables的範例


code:--------------------------------------------------------------------------------
a = {}; --定義一個空的陣列
--定義二個關聯式陣列,分別儲存二個人的資料
b1 = {name = "王小明", sex = "男 ", age = "10"};
b2 = {name = "陳小美", sex = "女 ", age = "9"};
--再分別將二個陣列存到a陣列裡
a[1] = b1;
a[2] = b2;
--想要取得陳小美的年齡
Dialog.Message("title", a[2].age);
--------------------------------------------------------------------------------


*用For 迴圈列舉Tables中所有的元素
有一個很特別的迴圈可以用來將Tables中的所有元素一個一個提出來,其程式模型如下:
for index,value in table do
--運用元素的程式碼
end

for in do是關鍵字,迴圈以end作為結束,index及value是取二個變數名稱來代表目前迴圈所到達的元素的索引值及字串值,table是您想讀的Table名稱
範例:

code:--------------------------------------------------------------------------------
my_t = {"one", "two", "three"};
for j , k in my_t do
Dialog.Message("table test", j.."="..k);
end
--------------------------------------------------------------------------------

上面的程式碼會跳出三次的對話盒,中間顯示的字分別為「1=one」,「2=two」,「3=three」

※另一個範例

code:--------------------------------------------------------------------------------
my_t = {one=1, two=2, three=3};
for k in my_t do
Dialog.Message("table test", k);
end
--------------------------------------------------------------------------------

上面的程式定義了一個關聯式的陣列,利用迴圈列舉,但只是想取得每個元素的索引,上面的程式執行後會跳出三次的對話盒,中間顯示的字分別為「one」,「three」,「two」,這裡有個問題便是為什麼顯示的順序不是按照tables中元素的排列順序,原因是因為使用關聯式的陣列的時候,是以「雜湊表」來儲存資料,所以順序會依某些規則重新排列,若您使用數列型的陣列,就不會有這種情形了。

*複製Tables
之前曾提過:您不能以 = 的方式來複製Tables,因為這樣並不能讓Tables成為二個複本,只是讓二個變數指向同一個Tables而已

code:--------------------------------------------------------------------------------
t_one = {one = "spring", two = "summer"};
t_two = t_one;
t_two.one = "winter";
Dialog.Message("table one" , t_one.one);
Dialog.Message("table two" , t_two.one);
--------------------------------------------------------------------------------

上面的程式會跳出二個對話盒,不過裡頭的文字都是 winter,這証明Tables只有一份,並沒有被複製出另一份

※若想真正複製出另一個Tables,寫法應如下:

code:--------------------------------------------------------------------------------
t_one = {one = "spring", two = "summer"};
t_two = {};
for i , v in t_one do
t_two[i] = v;
end
--------------------------------------------------------------------------------

如此t_two便成為一個獨立的Table且內含的元素和t_one一樣

*AMS中還有很多用於處理Tables的內建涵數

Script-Tip006程式語法與運算子

所謂的程式語法即是變數與值的評定方法,可能是單純的指定一個數值給變數,也有可能是

複合的運算式子的結果指定給變數,您也可使用括號來改變式子的運算順序,不然就如同我

們所學的數學一樣,電腦會依「先乘除後加減」的順序來運算一個式子。
以下都是可行的寫法:


code:--------------------------------------------------------------------------------
a = 10;
a = (5+1)*2;
a = 100/10;
a = 100/(5*2);
--------------------------------------------------------------------------------

除以上的例子外還有很多,自己想像吧!
*算術運算子
算術運算子專司數字的處理
+ 加法運算子
- 減法運算子
* 乘法運算子
/ 除法運算子
unary - 負數符號
※其實只要您學過數學方程式,這個部份就如同數學一般只是 = 號在電腦中不是「等於」的

意思,而是「將右側的運算結果指定給左側的意思」,這一點是要常常注意的。
*比較運算子
這種運算子提供您比較二側的變數或值的功能,其結果是以布林值來表示(true / false)
> 大於
< 小於 <= 小於等於 >= 大於等於
~= 比較二側是否不相等
== 比較二側是否相等
以下範例:

code:--------------------------------------------------------------------------------
10 > 20; --結果為false

a = 10;
a > 5; --結果為true
"Coffee" ~= "Spring" --結果為true
--------------------------------------------------------------------------------

這兒特別提到「字串」的比較,在AMS中字串是分大小寫的,所以二側的字串要一模一樣才

會相等。

code:--------------------------------------------------------------------------------
"coffee" == "coffee"; --結果為true
"Coffee" == "cOffee"; --結果為false
"Yes" ~= "yes"; --結果為true
--------------------------------------------------------------------------------


*邏輯運算子
這種運算子主要用於布林值的結合判斷。常常結合 if ....then 判斷式
and 二側的式子結果都為「真」才回復「真」
or 只要一側的式子為「真」便回復「真」
not 回復與式子結果相反的

code:--------------------------------------------------------------------------------
a = 8;
b = 3;
a+b > 10 and a-b <> 10; --這會回復「真」

if a > 5 or b > 5 then
--這裡寫的程式會執行
end
--------------------------------------------------------------------------------

*連接運算子
在AMS中規定以 ( .. ) 這個符號作為字串連接子,您可用它來連結二個或多個字串值成為單一

字串(string)

code:--------------------------------------------------------------------------------
a = "coffee";
b = a.."worm"; --b的值便是"coffeeworm"
c = b.."有"..10.."元"; --c的值便是"coffeeworm有10元 "
--------------------------------------------------------------------------------

*運算子間的優先順序
由低到高排列如下:
and or
< > <= >= ~= ==
..
+ -
* /
not -(unary)
^

Script-Tip005資料型別

*Number(數值)
在AMS中,Number代表所有的數字性的值,不像其他開發程式還將數值分為整數、單精數、

倍精數、.....,只有一類:就是數字,可容許的數值表示如下:
4 4. .4 0.4 4.57e-3 0.3e12

*String(字串)
所謂的String(字串)是指一連串的字元的集合,例如:"我的測試" 這個字串即是一個4個中文字

元的字串,若您的字串是英文,一個英文字母也是一個字元,這說明了AMS是支持雙位元編

碼的,所以您可以放心的使用中文字。
字串可以含有非常長的字元(甚至長至整篇文章),其中也可以包含空白字元,也可以包含合

法的8-bit ASCII字元或null(\0),您必須將欲表示的字串置於成對的 " " 或 ' '中,通常是使用

前者,在程式引擊方面,AMS會自動分配記憶體的使用,不需您操心。
例如以下的表示法:


code:--------------------------------------------------------------------------------
name = "Joe blow";
Lastname = 'worm';
Dialog.Message("Hello","我是咖啡虫!");
--------------------------------------------------------------------------------


有時候,您想在字串中顯示單括號(' ')或雙括號(" ")您可以如下的寫法:

code:--------------------------------------------------------------------------------
title = "小朋友,你們知道 '神木' 在哪裡嗎?" --這個字串可顯示 '神木'
title2 = '小朋友,你們知道 "神木" 在哪裡嗎?' --這個字串可顯示 "神木"
--------------------------------------------------------------------------------

當然我們還可以使用字元跳脫的方法:為了能順利地顯示一些系統內定有特殊意義的字元,

AMS規定以 \ 反斜線當作跳脫字元的定義符號。
以下是有特殊意義的跳脫符號:
\a 鈴聲
\b 退一格
\f
\n 新的一行
\r 按Enter
\t 垂直的tab
\v 橫向的tab
\\ 表示一個\
\" 表示"
' 表示'
\[ 表示[
\] 表示]

最常會用到的是\r \n \\
※如果您對ASCII字元表熟悉的話,跳脫符號也可以用ASCII來表示,例如寫\n和\10是一樣的

意思,不過我建議還是用原來的\n就好了。
如果您的字串很長,像是一篇文章很多行,那您可以如下寫法:

code:--------------------------------------------------------------------------------
text = [[ 第一行的字
第二行的字
第三行的字
..........
..............
最後一行]];
--------------------------------------------------------------------------------

如此text這個變數就存著那麼多的字,而且保留著您斷行的樣子!
※當字串遇上運算符號,如果您的字串可以被轉成數字,那麼AMS會自動把字串的部份轉成

數字進行字串,如:

code:--------------------------------------------------------------------------------
a = "13" + 5 --這個a的值會是18
b = "15" * 3 --這個b的值會是45
--------------------------------------------------------------------------------

不過請注意下列的範例:

code:--------------------------------------------------------------------------------
a = "13 + 5" --a的值便是"13 + 5"這個字串,+號在" "中也視為字串,所以不會計算
b = "您好" * 3 --這式子將會出錯,因為"您好"無法轉換成數字
--------------------------------------------------------------------------------


*Nil 無
這是一個非常特別的資料型別,它的意思就是空值,也就是變數中「沒有值」,您可以指定

一個「空值」給一個變數,這樣可以把它原有的值清空

code:--------------------------------------------------------------------------------
a = nil;
--------------------------------------------------------------------------------

在條件式子中,nil被視為「偽(false)」,如下例:

code:--------------------------------------------------------------------------------
a = nil;
if a then
--這裡的程式將不會執行,因為if條件式必須為「真(true)」才會執行
end
--------------------------------------------------------------------------------


*Booen布林值
這類型的的資料型態所帶的值只有二種,就是「真(true)」和「偽(false)」,這常用在判斷式中

做邏輯運算,如:

code:--------------------------------------------------------------------------------
a = true; --直接指定變數a為真
b = 10 > 12; --右邊比較的結果指定給b,這個b是偽
c = true;
d = false;
if (c and d) then --如果c和d做and運算,答案若為「真」便執行裡面的程式
--程式
end
---當然上面的例子,c and d的結果為false,and運算必需二方都為真,結果才為真
--------------------------------------------------------------------------------


*function 涵數
AMS予許您將一些程式碼集合成自定的一塊,稱為function,這個的用意主要是當您在寫一個

程式時,有一些程式可能常重覆,若每次都再抄一次實在多餘,您便可把這些程式集合成

function,需要時再呼叫function的名字就好了,如此這些程式就中要寫一次就好了。

code:--------------------------------------------------------------------------------
--自定一個名為coffee的涵數
function coffee()
--程式寫在這兒
end

coffee(); --呼叫涵數
--------------------------------------------------------------------------------


*Table 表
這是一個非常強大且有用處的資料型別,它可儲存大量「有索引的值」,若您有其他程式基

礎,您也可以想像,它就是「陣列(arrays)」,以下範例:

code:--------------------------------------------------------------------------------
--以大括號來定義一個名為Myarr的表,內含三個元素,元素間以 , 隔開
Myarr = {"一","二","三"};
--跳出對話盒並顯示陣列的第二個元素值
Dialog.Message( "title", Myarr[2] );
--------------------------------------------------------------------------------


另一個例子:索引未必是數字

code:--------------------------------------------------------------------------------
t_one = {}; --定義一個空的table
--在table中放入二個元素,並且使用文字式的索引
t_one.first = "Apple";
t_one.two = "Orange";
--利用文字式的索引取值
Dialog.Message( "title", t_one.two ); --想要顯示Orange
--------------------------------------------------------------------------------


另一個列子:

code:--------------------------------------------------------------------------------
--建立一個擁有5個元素的table
t1 = {"一","二","我的","範","本"};
t1[6] = "加入第六個元素";
--t1 這時有6個元素了
t2 = t1; --建一個table名為t2並把t1的內容指定給它
--請注意,上面的程式並沒有複製的意思,代表的是有二個不同名稱的變數(t1,t2)指向了同一--

個table
--------------------------------------------------------------------------------


※在我們指定值給變數時,我們使用的是「 = 」這個符號。

code:--------------------------------------------------------------------------------
a = 8;
b = "文字";
c, d = 6, 10; --6指定給c ,10指定給d

Script-Tip004變數型態及變數值

*動態型別處理
AMS的程式語言與其他如C語言不同的地方是:AMS採動態型別處理,定義及使用變數前並

不需要「宣告」「變數」的型別,變數的型別會自動隨著它所握住的值的資料型別動態地改

變。
這可讓程式開發者省了不少犯錯的機會,以往使用C或C++... 的程式員,常因為要記住變數目

前的型別而傷腦筋。
例如:在C++中要使用一個變數j且指定一個值10給它,要如下寫法


code:--------------------------------------------------------------------------------
int j; --這一行便是宣告j的型別是整數
j = 10;
--------------------------------------------------------------------------------

但是在AMS中您只要這樣寫:

code:--------------------------------------------------------------------------------
j = 10;
--------------------------------------------------------------------------------

AMS會視您放入變數中的值是什麼型別而動態地變化變數的型別。
所以您可以如下這樣寫也不會有錯:

code:--------------------------------------------------------------------------------
j = 10;
j = "這是測試";
--------------------------------------------------------------------------------

這種寫法在C++中,便會造成錯誤。
*根據上面所述,我們不用去討論變數的型別問題,只要關係資料有哪些型別就行了。
在AMS中,有六種資料型別:number(數值),string(字串),nil(無),boolean(布林值),function(涵數),table(表)

Script-Tip003關於變數

*什麼是「變數(Variables)」
以寫程式而言,「變數」是非常重要的,不管您使用何種語言,您都會用到,簡單地說,所謂的變數即是一個

「值(Values)」的代號或位置握柄,而這個「值」是可以變更和重覆使用的,例如:


code:--------------------------------------------------------------------------------
amount = 10;
--------------------------------------------------------------------------------

這個程式碼,便是定義一個變數名為 amount ,並且指定一個值→10,請注意,是「指定」不是「等於」,

amount 這個變數的值未必會一直都是10,您可以這樣想,變數是一個容器,而值便是放入容器中的東西,它隨

時可以被更換。
例如:

code:--------------------------------------------------------------------------------
amount = 10;
amount = amount + 20;
--------------------------------------------------------------------------------

上面程式碼的意思是說,定義一個變數叫做 amount,先指定它的值是 10,接著在第二行中,把amount中的值

拿出來加上20再放回amount中,所以程式執行到此,amount的值是30,這樣的式子在數學是不對的,但在程式

中卻是可行的。


code:--------------------------------------------------------------------------------
a = 10;
b = a;
--------------------------------------------------------------------------------

上面的程式的意思是定義一個變數叫做 a,先指定它的值是 10,再定義一個變數名為b,將「a的值」放入b中

,所以這時b的值也變成了10

*變數的範圍
在AMS中,變數預設都是全域的,意即:程式執行後,一旦某變數被定義,則這個變數便在整個程式中的所有

事件(Event)都可使用,不管在哪一頁(page)或哪個物件的事件,當然您必須能確定,在使用(呼叫)某個變數之前

,已定義了該變數,並指定一個值給它。
例如:在On Startup中的程式

code:--------------------------------------------------------------------------------
foo = 10;
--------------------------------------------------------------------------------

接下來在page1中放個按鈕,在按鈕的OnClick中鍵入:

code:--------------------------------------------------------------------------------
Dialog.Message("test",foo);
--------------------------------------------------------------------------------

上面的程式是要求顯示對話並在其中顯示foo的值。
※有個問題是,若您的程式越寫越大,page數也很多,上頭的物件也多,您是不是有可能不小心重新定義了之

前已定義過的變數名稱,那可能會造成意想不到的錯誤!
例如,您可能在某個地方需要寫個式子,所以如下:

code:--------------------------------------------------------------------------------
foo = 1;
text = "";
if foo < 50 then
text = text..foo;
foo = foo+1;
end
Dialog.Message("test",text);
--------------------------------------------------------------------------------

最後foo己經變成50了,但您可能不知道,還一直以為foo是10
所以如果您在某個地方的程式碼或函數中,需要有幾個變數是來計數的、迴圈的…,用完就要算了的,在定義

變數時,可以在前面加上 local 這個關鍵字,如:

code:--------------------------------------------------------------------------------
local t = 4;
local x = (t+1)*8;
--------------------------------------------------------------------------------

上面加上 local 的變數的效力就僅止於正在執行的event或function中,執行完就無效了,就不會有上面所說的困

擾了。
*變數的命名法則:英文、數字、底線的組合
1.一定要以英文字母開頭
2.變數名稱中不可以含有特殊字元% $ $ + 空格.........
3.不可以使用AMS的保留字
合法的命名例子
a
strName
_My_var
data1
bReset
tb_sut
tb_n_count_1

不合法的例子
2
7data
%vari
$strData
for
local
_F+r
User name

※系統保留字
and break do else elseif
end false for function if
in local nil not or
repeat return table then true
until while

Script-Tip002程式的重要概念

*AMS的程式碼是全域性的:
在runtime(執行期)時,程式引擊預設是認得您所定義的所有變數(varable)及函數(function)的,例如您在gobal

function中或On Startup中定義了一些變數值,例如:myvar = 5; 或函數如:
code:
________________________________________


function myfunction(a1,a2)

-----您的程式

end

________________________________________

之類的,在程式開始執行後,在任一個event中,這些變數或function都是可見的,可用的。
*在AMS中,變數及函數的命名是有分別大小寫的:
abc=5;

Abc=3;
這二個式子中,abc與Abc被視為二個不同的變數,同理,您命名函數時也要注意大小寫的問題。

*程式注解:您的程式不斷地發展會越寫越長,您最好養成為自己所寫的程式加上注釋,以便日後維護方便,

而所謂的注解,即是在程式碼中不會被執行的部份,僅是給程式員看的解釋。
在AMS中,定義某一行不執行的方法就是在該行的最前面加上 (--)兩個短線號,也就是說 -- 之後的字元都會被

視為注解而不會執行。如:
code:
________________________________________


--這是注解文字

MyVar = 6;

a = MyVar+3;

b = a; --注解文字也可以在這兒

________________________________________

多行注解可以使用 --[[ 和 ]]-- 來框住注解文字,如:
code:
________________________________________


--[[ 這是多行

注解的

範例 ]]--

a = 10;

________________________________________

*分行符號,在AMS中予許您使用( ; )分號來分開同一行的兩句敘述,以下範例都是可被接受的程式寫法。
第一種:
code:
________________________________________


a = 10

MyVar = a

________________________________________

第二種:
code:
________________________________________


a = 10; MyVar = a;

________________________________________

第三種:
code:
________________________________________


a = 10;

MyVar = a;

________________________________________

不過,建議以第二種或第三種寫法比較好,養成好習慣,在每個敘述的後面,加上分號。

Script-Tip001程式碼寫到那裡

在AMS中,程式碼可以寫的地方很多,主要寫在各物件的Action窗格,不同的物件又會有不同類型的Event(事件),而所謂的事件即是您可指定,在某個物件的什麼狀態下才執行所寫的程式碼。在物件導向的程式中,所有的東西都可視為物件,大到整個程式本身,或小至一個按鈕,AMS也不例外。
以整個程式而言有以下事件:
On Startup :在程式啟動的時候
On Shutdown :在程式關閉的時候
以Page(頁面:AMS的呈現單位)而言
On Show :在頁面呈現的時候
On Close: 在離開這個頁面的時候
On Audio :在這個頁面中的音樂軌的音樂播完時
On Timer: 當計時器啟動時
On Key: 當鍵盤被按下時
On Preload: 當頁面第一次載入記憶體時程式物件及頁面物件是很特別的,它們可能不需要使用者刻意以滑鼠去觸發,可以用來執行一些您想要在程式啟動時就執行的程式。
其他的物件所含的事件就大都由使用者的滑鼠來觸發,常見的是:
On Click: 當物件被按下時
On Double-Click: 當物件被雙按時
On Enter :當滑鼠移上物件時
On Leave: 當滑鼠離開物件時
其他事件還有:
On Focus :當物件成為焦點時→這在input及listbox上才有
On Finish :當影片播完時
On FSCommand: 當Flash有FSCommand時
On Loaded :當某個url載入完畢時
On Navigate: 當網頁物件的網址改變時
On Pause :當影片暫停時
On Play: 當影片開始播放時
On Stop: 當影片停止時
On Select: 當某個選項被選擇時:如listbox....
以上是大略的整理也講得差不多了,唯AMS是開放架構,不斷地有新的PLUG-IN被開發而加入新功能,新的PLUG-IN也可能會有特殊的事件,這就要自行參閱其說明文件了,一般來說PLUG-IN都是要額外付錢買的,一旦您買了,作者都會提供完整的說明書。

咖啡虫的網誌開張

網誌開張