建議Document對象增加對全局變量的功能 遍歷機制　[金字塔]

我經常需要將程序運行過程中的臨時變量寫到全局變量中，如果每天都不清除這些全局變量，那么就會很混亂，有些變量是需要保留的，而有些是不需要的，這些變量在保存的時候會以當時的賬戶、合約代碼和價格等信息組合而成的變量名稱，要刪除這些變量的話，最好的方法就是循環讀取每一個變量，逐個刪除，或者刪除具有一定前綴的特定變量。

所以建議開發人員對document對象進行功能增強，提供：

1、基于0的索引遍歷機制

2、刪除某1個全局變量的功能

3、刪除某些前綴的全局變量的功能。

4、批量修改某一特征的全局變量的值的功能。

采納

王鋒版主，今天你心情肯定很好吧，我以前都提過的問題，你都沒有理我，今天全部采納。

我也很開心，謝謝你了，我越來越喜歡金字塔了。做的項目一個比一個大了。

2.92果然增加了這些功能，我簡單測試了一下，屬性中的 ExtDataNum、ExtDataStringNum可以分別返回數值型和字符型變量的個數，

但是不能遍歷，每次返回的都是第一個變量。

以下是測試代碼：

sub testglobal()
 dim KeyName
 
 iCount1=Document.ExtDataNum()
 application.MsgOut cdate(time)&",iCount1:"&iCount1
 for i=0 to iCount1-1
  Result = Document.GetExtDataByIndex(i,KeyName)
  KeyValue=document.GetExtData(KeyName)
  application.MsgOut "KeyName:"&KeyName &",KeyValue:"&KeyValue
 next
 
 iCount2=Document.ExtDataStringNum()
 application.MsgOut cdate(time)&",iCount2:"&iCount2
 for i=0 to iCount2-1
  Result = Document.GetExtStringByIndex(i,KeyName)
  KeyValue=document.GetExtString(KeyName)
  application.MsgOut "KeyName:"&KeyName &",KeyValue:"&KeyValue
 next
 
end sub

而刪除指定索引位置的變量的方法RemoveExtData不能刪除，RemoveExtString只能刪除索引為0位置的變量，請開發人員測試。