Приглашаю добровольцев для вычитки статьи. Сообщения об ошибках, неточностях, и т.д. приветствуются. По результатам дискуссии (если она последует), планирую опубликовать статью в Библиотеке Сервера Тестировщиков.
Update: приаттачил новую версию. Кроме опечаток нашел ошибку в примере раздела Оракулы (страница 9) - должно быть:
Set sorting_consts = CreateObject(“Scripting.Dictionary”) Sorting_consts.Add “Products”,”Product Id=number;Product description=string;Expiry date=date” Sorting_consts.Add “Orders”,”Order Id=number;Product Id=number;Order Date=date;Manager=string” public function dictFromParamString(aString) Dim PairsArr,aDict,logicalName,value,i set aDict = CreateObject("Scripting.Dictionary") PairsArr = Split(aString,";") for i = 0 to UBound(PairsArr) logicalName = Split(PairsArr(i),"=")(0) value = Split(PairsArr(i),"=")(1) if logicalName <>"" then If not aDict.Exists(logicalName) Then aDict.add logicalName,value else aDict(logicalName)=value end if end if next set dictFromParamString = aDict end function function getColumnSortingType(Screen,column) dim d set d = dictFromParamString(Sorting_consts (Screen)) getColumnSortingType = d(column) end function
Прикрепленные файлы
Сообщение отредактировал Mike: 02 августа 2006 - 08:58