這一章我們來(lái)學(xué)習 FOXPRO 的一個(gè)十分強大而又非常容易掌握的功能： 宏替換 。就從名字上看來(lái)這不是個(gè)容易對付的家伙，在開(kāi)始講 宏替換 之前，讓我們先來(lái)看一看這樣的一個(gè)例子：
假設我們有兩個(gè)表， 1997 級學(xué)生成績(jì)表（ 1997.DBF ）和 1999 級學(xué)生成績(jì)表（ 1999.DBF ）。這時(shí)我們要求用戶(hù)在瀏覽表之前先輸入年份，以便我們來(lái)打開(kāi)用戶(hù)指定年度的學(xué)生成績(jì)表。也許你會(huì )說(shuō)： “ 這太容易了，俺會(huì )呀 ” 然后給出下面的方案：
先用一個(gè)文本框來(lái)接收用戶(hù)的輸入的年份，然后調用下面的代碼來(lái)打開(kāi)表：
DO CASE
CASE THISFORM.TEXT1.VALUE = '1997'
USE ‘1997.DBF'
CASE THISFORM.TEXT2.VALUE = '1999'
USE '1999.DBF'
ENDCASE
BROW
不錯，您的這段代碼表面上是達到了要求。但是它存在著(zhù)幾個(gè)問(wèn)題：
問(wèn)題 1 ：當學(xué)生成績(jì)表很少時(shí)（如：上例只有 1997.dbf 和 1999.dbf 兩個(gè)表），用上面的代碼可以輕松擺平。但是如果表很多時(shí)，假設有十個(gè)年度的學(xué)生成績(jì)表（ 1980.DBF---1990.DBF ）。這下慘了，代碼就會(huì )變成下面的樣子：
DO CASE
CASE THISFORM.TEXT1.VALUE = '1980'
USE '1980.DBF'
CASE THISFORM.TEXT2.VALUE = '1981'
USE '1981.DBF'
CASE THISFORM.TEXT2.VALUE = '1982'
USE '1982.DBF'
CASE THISFORM.TEXT2.VALUE = '1982'
USE '1982.DBF'
……
……
* 為了節省你的網(wǎng)費，我的紙，我就不繼續打了，我想您應該明白哪些麻子……代表什么了吧……
ENDCASE
這樣一來(lái)代碼非常的冗長(cháng)。但這還不是最糟的，更慘的在下面（天啊~~）。
問(wèn)題 2 ：當隨著(zhù)學(xué)生的升學(xué)，用來(lái)保存學(xué)生每年學(xué)習成績(jì)的表也會(huì )動(dòng)態(tài)的增加，這時(shí)上面的代碼就完全失去了做用。用上面的代碼無(wú)法預先知道到底會(huì )有多少個(gè)學(xué)生成績(jì)表，也就不可能事先設 N 個(gè) CASE 來(lái)判斷年份了。
宏替換 ：“不要擔心，少要害怕，俺 宏替換 來(lái)也”。 宏替換 是 FOXPRO 為我們提供的一項強大的功能。它的運算符是“ & ”，作用就是提取字符串的現值，返回值是字符串常數。
看到這里您的第一反應可能會(huì )是： “WHAT？ 什么亂七八糟的，你說(shuō)的是什么意思？ ” 。
別忙，接著(zhù)往下看您就明白了。下面就讓我們用 宏替換 功能來(lái)完成上面例子的功能，是又好又省事兒，包您滿(mǎn)意。這次假設我們有 20 個(gè)表（ 1980.DBF 一 2000.DBF ）分別存放每一年的學(xué)生成績(jì)，放心我們絕對不會(huì )用 20 個(gè) CASE 的：
C_YEAR = THISFORM.TEXT1.VALUE &&用變量 C_YEAR 來(lái)接收用戶(hù)輸入的年份。
USE &C_YEAR
*上面這一句利用宏替換來(lái)根據 C_YEAR 的值來(lái)找打開(kāi)對應的表，等價(jià)于
*Use ‘1999.dbf'，只不過(guò)引號的表名是隨 C_YEAR 的值而變罷了
BROW
搞定，收工。嘿。。。。。。。。怎么樣，是不是又省時(shí)又省力呀？
再看下面的例子：
a='b'
b='莊稼'
a &&顯示的結果是“b”
&a &&顯示的結果是“莊稼”
也就是說(shuō)宏替換將當前變量的值作為真正需要的變量，并返回這個(gè)變量的值。
VFP 的很多命令的某些地方不能使用變量，比如上面的 use 命令，你不能寫(xiě)成：
a='1997.dbf'
use a
這樣就成了打開(kāi) a 這個(gè)表，這時(shí)就必須用宏替換，
use &a
類(lèi)似的還有當 locate for 后面跟的條件不是固定的，你的程序可以允許操作者選擇不同的字段來(lái)查詢(xún)，可能是：
姓名=...
也可能是：
電話(huà)=...
你不能直接把 for 后面的內容整個(gè)作為一個(gè)變量，這時(shí)宏替換也可以起作用，你可以把條件整個(gè)放入一個(gè)變量，比如字段名放在一個(gè)變量中 zdm，要查的內容放在 nr：
tj=zdm+"'"+nr+"'"
locate for &tj
如果這時(shí) zdm='姓名'，nr='莊稼'，這就相當于：
locate for 姓名='莊稼'
那么只要 tj 的內容是個(gè)正確的邏輯表達示，不論是什么內容都可以運行，這將給編程帶來(lái)很大方便。
多學(xué)一招
你甚至可以把整條語(yǔ)句放入一個(gè)變量：
tj="locate for "+zdm+"'"+nr+"'"
&tj
怎么樣，酷吧！
注意
值得注意的是， 宏替換 & 不能遞歸的引用自已。比如下面的用法就是錯誤的：
STORE “&ZL” TO ZL
&ZL
賦值語(yǔ)句與 宏替換 巧妙地組合，能實(shí)行靈活的查詢(xún)和程序控制，提高程序通用性，使程序更加簡(jiǎn)練，運行效率更高，龍其在處理一些不確定對象時(shí)， 宏替換 將扮演非常重要角色。
最后補充一點(diǎn)，雖然 宏替換 功能強大，但是也不要太頻繁使用，正是由于 宏替換 靈活性，使得它執行時(shí)要進(jìn)行一些轉換，如果太多的使用 宏替換 可能會(huì )影響程序的性能。
所以在一些不是必須的場(chǎng)合下，盡量避免使用 宏替換 ， 就象好吃的東西吃得多了也會(huì )起膩一樣， 宏替換 用的太多也會(huì )使你的程序不舒服的。
