Соболев Сергей Конструкция If Then при частом выполнении простых выборов значений в коде программы делает текст растянутым, а следовательно плохо читаемым. Для повышения наглядности кода можно применить следующую функцию: ' Короткий опереатор If ============================================= ' Value1 - Первое значение для сравнения ' Value2 - Второе значение для сравнения ' sTrue - Строка возврата при равенстве ' sFalse - Строка возврата при неравенстве Function IfThen(Value1,Value2,sTrue,sFalse) If Trim(Value1)=Trim(Value2) Then IfThen=sTrue Else IfThen=sFalse End Function
Пример применения. Dim n,aValue(10) aValue(0)=... ... aValue(3)="Value3" ... aValue(9)=... <SELECT> <%For n=0 To 9%> <OPTION VALUE="<%=aValue(n)%>" <%=IfThen(aValue(n),"Value3","SELECTED","")%>><%=aValue(n)%></OPTION> <%NEXT%< </SELECT>
Кстати, не все знакомы со следующей формой записи оператора сравнения: Dim sA,sB,b sA="Value1" sB="Value2" b=(sA=sB) ' False sB=sA b=(sA=sB) ' True If (sA=sB)=True Then ... ' Тоже рабочий вариант
Оператор If-Then-Else можно полностью записывать в одной строке: If a=b Then a=c Else a=d
Источник: http://prosto.pp.ru
|