标题dBASEⅢ中宏代换的应用

　　1.用&函数实现数组
　　在dBASEⅢ中没有定义数组这样一种数据类型，但是利用循环语句和宏代换可以实现数组这种数据类型。例如，建立一个二维数组A。其数组元素为：
　　A11，A12，……A15
　　A21，A22，……A25
　　A51，152，……A55
　　并把元素的初值全部置为0。其程序如下：
　　STOR 1 TO J，K
　　DO WHILE J<=5
　　P=STR(J，1)
　　K=1
　　DO WHILE K<=5
　　H=STR(K，1)
　　A&P&H=0
　　K=K+1
　　ENDDO
　　J=J+1
　　ENDDO
　　LIST MEMO
　　程序中第3行和第6行是把数字型换成字符型，因为&函数要求字符型内存变量。最后一行用于列出建立的数组中的各元素。
　　2.用&函数实现文件名的随机输入
　　当数据库文件很多时，不可能在菜单中一一列出，这时可用&函数实现文件名的随机输入，以便可以打开用户指定的任意数据库或执行任意指定的模块。
　　下面程序可用于打开随机输入文件名的库文件，当输入的文件有错时程序提供了保护，直到重新输入正确为止。
　　DO WHILE .T.
　　ACCEPT '请输入库文件名：'TO NAME
　　IF .NOT. FILE('&NAME　DBF)
　　CLEAR
　　@ROW()+1，5 SAY NAME+;
　　'数据库没找到，请重新输入'
　　ELSE
　　EXIT
　　ENDIF
　　ENDDO
　　USE & NAME
　　3.用&函数简化主控菜单程序
　　组织菜单程序中的分支选择可以使用DO CASE语句，但菜单选项很多时，将会使CASE语句行大量增加，使程序繁锁。用&函数即可使之简化。
　　SET TALK OFF
　　CLEAR
　　TEXT
　　0 - 退出系统 SR - 输入
　　SC - 输出　　TJ - 统计
　　ENDTEXT
　　DO WHILE .T.
　　H="　　 "
　　@10，22 SAY'请按要求输入模块名：'
　　GET H
　　READ
　　IF H='0'
　　EXIT
　　ENDIF
　　DO &H
　　ENDDO
　　由于在DO后面只能跟文件名字符串，不能用字符型变量，因此只能使用宏代换实现。