помогите перевести на VBA

← →
DSKalugin © (2007-03-12 15:46) [0]

Как в VBA множество с диапазонами описать?
function CreateClearCod(vsCod: AnsiString):AnsiString; const ClearChars:set of Char=["0".."9","A".."Z"]; var ns:AnsiString; i,j:Byte; begin Result:=""; ns:=AnsiUpperCase(vsCod); j:=Length(ns); for i:=1 to j do if (ns[i] in ClearChars) then Result:=Result+ns[i]; end
остальное вроде бы понятно

← →
Сергей М. © (2007-03-12 15:49) [1]

В VBA, как помнится, нет языковых конструкций, аналогичных по реализации и функциональности set-конструкциям в Делфи

← →
DSKalugin © (2007-03-12 15:51) [2]

как тогда эту задачу решить средствами Васика?

← →
Сергей М. © (2007-03-12 15:55) [3]

> DSKalugin © (12.03.07 15:51) [2]

Ну как ?
Обычным образом - создав массив Char-ов и сканируя этот массив в цикле на предмет совпадения с искомым Char"ом

Может быть удастся приспособить конструкцию Select Case. Там можно использовать диапазоны. Правда диапазоны эти "строковые".
Sub sub1()
sw = "bbbb"
Select Case sw
Case "a"
x = 6
Case "b" To "f", "q" To "t", "z"
x = 5
End Select
MsgBox x " 5
End Sub

довольно примитивно и громоздко, но насколько я понимаю так будет быстрей решить задачу чем искать оптимальное решение

как вариант можно еще сделать через вызов паскалевской DLL,
но все равно извращенно выглядит.

помогите перевести на VBA Найти похожие ветки