оператор split

[Bape}l{ka]

привет! с Новым годом всех!))))
но начинаются трудовые будни Т_Т

уважаемые форумчане, помогите поподробнее разобраться с оператором split

есть такое выражение: "1-9, 97, 99".
надо разбить его так, чтоб в итоге вышло:

If i >=1 and i<=9 and i=97 and i=99 Then '... какой-то код

где i - переменная

в общем, как разделить по запятой - понятно:

For each iCase in Split("1-9, 97, 99", ",")
   If iCase is Numeric Then 
      If i = iCase Then '... какой-то код
      End if
   Else         
      'ДАЛЬШЕ Я ТЕРЯЮСЬ, ЧТО ДЕЛАТЬ 
      'остаются "1-9", и как написать, чтоб получилось нужное условие?.. 
   End if

я понимаю так, что при разбивке с помощью split в результате получается массив... может как-то через массив можно получить нужное (т.е. чтоб остались только числа нужного диапазона)??
может вообще можно каким-то другим способом это получить?

подскажите пожалуйста)

[Watcher_1]

А что если сначала с помощью Replace заменить - на , а потом уже использовать Split

[Казанский]

Оформил в виде функции, пробуйте

Function InList(s$, i&) As Boolean
Dim x, y
For Each x In Split(s, ",")
    If IsNumeric(x) Then
        If x = i Then InList = True: Exit Function
    Else
        y = Split(x, "-")
        If i >= y(0) And i <= y(1) Then InList = True: Exit Function
    End If
Next
End Function

Sub test()
Dim i&
For i = 0 To 100
    If InList("1-9, 97, 99", i) Then Debug.Print i
Next
End Sub

[IgorGO]

нечто похожее:

Function IsNinStr(n, s0 As String) As Boolean
  Dim i As Long
  IsNinStr = True
  For i = 0 To UBound(Split(s0, ","))
    If InStr(Split(s0, ",")(i), "-") > 0 Then
      If n >= Val(Trim(Split(Split(s0, ",")(i), "-")(0))) And _
         n <= Val(Trim(Split(Split(s0, ",")(i), "-")(1))) Then Exit Function
    Else
      If n = Val(Trim(Split(s0, ",")(i))) Then Exit Function
    End If
  Next
  IsNinStr = False
End Function

[Bape}l{ka]

Казанский, собственно так примерно я и делала, только Вы более четко прописали условия. а за оформленную функцию спасибо большое!))

т.е. если я правильно понимаю, она сработает и при нескольких диапазонах с условием "-", например "1-9", "15-18" и т.д.? т.е. выражение изначально выглядит так "1-9,15-18,97,99"

[Hugo121]

Вот этого не понимаю:
If x = i
Как это " 2" может быть равно 2?
И никаких Val() и/или Trim() не нужно?... и ведь работает...

[IgorGO]

тип для х не задан явно, вот эксель и привел " 2" к 2. почему он это сделал можно, конечно, догадаться, а вот почитать бы точное описание правил приведения типов было бы полезно

[Bape}l{ka]

спасибо всем большое за помощь и подсказки)))

Казанский, ваша функция прекрасно работает, и это как раз то, что мне было нужно. радует, что я и сама была на правильном пути =ь

IgorGO, с вашей функцией буду разбираться, т.к. не все понятно, но... Дорогу осилит идущий! )) спасибо за альтернативный вариант, это тоже очень полезно в качестве опыта

[Казанский]

> Как это " 2" может быть равно 2?
И никаких Val() и/или Trim() не нужно?... и ведь работает...

> почитать бы точное описание правил приведения типов было бы полезно

Пожалуйста, F1 - Comparison Operators

If One expression is a numeric data type and the other is a Variant that is, or can be, a number Then Perform a numeric comparison.

Есть тонкость:

If One Variant expression is numeric and the other is a string Then The numeric expression is less than the string expression.

Вот поэтому на листе Excel любое число всегда меньше любой строки - там все значения типа Variant.

[Hugo121]

Спасибо.
Не забыть бы...