Так задумано в текстовом файле, что для ориентира в строке расставлены запятые:
P,13160,0,1350,450,0,0,0,RIGHT,,,
P,130,0,350,50,0,0,0,LEFT,,,
мне надо из этой строки добыть слово RIGHT или из второй строки добыть слово LEFT
я знаю, что слово это находится после восьмой запятой.
Какой шустрый вариант поиска можно бы забабахать?
Жду предложений.

Я не знаю какое именно слово в строке, но знаю его позицию.
Надо его быстро выковырять.

никада Spiit ом не пользовался, только спиртом......
Надо почитать про него........

Спасибо - попёрло
retval = Split(TXT, ",", -1, vbTextCompare)

For i = 0 To UBound(retval)

MsgBox retval(i)

Next i

Нам!

не совет, а просьба... Если имеется созданная ВБА строка положительных целых чисел, как ее в рекордсет превратить?

как ее в рекордсет превратить

что это значит?
из строки загнать каждое число строки в свою запись (превратить строку в столбец)
или как?

- считываем каждое число - создаем новую запись и загоняем ее туда - получаем тот же самый массив - смысл

Split возвращает массив
описывай как массив строк.

dim retval() as string

Я правда уже не помню прокатит такая запись в vba или нет
если нет, то

dim retval as variant

dim retval() as string - так?
Пркатило.....
СПАСИБО!

для списка со множественным выбором пользователь может кликнуть на строке, а потом отменить и снова кликнуть. Для таких ситуаций нашел алгоритм, в котором повторный выбор нейтрализуется через выражение IN (" & strWhere & ")", где выбор пользователя записывается строчно через запятую. А мне эти аргументы нужны, чтобы к ним прикрутить еще некоторые значения из формы для апдейта некоторых записей и записать в таблу. Вдруг в этом топике обнаруживаю

retval = Split(TXT, ",", -1, vbTextCompare)  For i = 0 To UBound(retval)  MsgBox retval(i)  Next i

и под него пишу что-то такое (хотя тут же соображаю, что массивов не знаю

RetVal = Split(strWhere, ",", -1, vbTextCompare)     For i = 0 To UBound(RetVal)             rst.AddNew             rst![Функционал] = RetVal(i)             intEdIzm = Column(2, varItem)’что здесь должно быть пока еще не представляю, но из списка вижу что нужно вытягивать и Функционал и ЕдИзм, т.е. двумерный массив             rst![ЕдИзм] = intEdIzm             rst![МедОрг] = intMedOrgCode             rst![Регион] = intRegion             lngPlanVolum = DLookup("ПланОбъем", "сМедОргОбъемДеят", "КодМедОрг=" & intMedOrgCode & " And [ЕдИзм] = " & intEdIzm)             rst![ПланОбъемДеят] = lngPlanVolum     'MsgBox RetVal(i)     Next i         rst.Update

подскажите, как тянуть данные в массив и как вытаскивать их в рекордсет. Можа примеры кой-нить есть?

Dim RETVAL() As String
Dim TXT as string
Dim i As integer
TXT = "75","77","79","80","87","88","89","90","91","92"
RETVAL = Split(TXT, ",", -1, vbTextCompare)

For i =0 To UBound (retval)

msgbox retval (i)

Next i

Вот вам подарочек

А так?

час! не можете подсказать, почему в нижеследующем коде акc останавливается на строке "Next i" и пишет, что "Compile error: Next without For"

RETVAL = Split(gstrWhereParaclinic, ",", -1, vbTextCompare)     For i = 0 To UBound(RETVAL)     'Debug.Print RETVAL(i)     With rst     .AddNew     ![Порядок] = i + 1     ![МедОрг] = intMedOrgCode     ![Регион] = intRegion     ![Функционал] = RETVAL(i)     ![ЕдИзм] = DLookup("ЕдИзм", "сШН", "КодФункционал=" & RETVAL(i))     lngPlanVolum = DLookup("ПланОбъем", "сМедОргОбъемДеят", "КодМедОрг=" & intMedOrgCode & " And [ЕдИзм] = " & intEdIzm)     ![ПланОбъемДеят] = lngPlanVolum     .Update      Next i

shanemac51, спс, получилось

Да, вроде нормально! спс

Часу

Как эту retval объявить?

'Короткие объявления

'@ Currency
'# Double
'% Integer
'& Long
'! Single
'$ String


dim i&, strsql%, j%, cena@

function imho&

и т.д.

можно также писать
i=1&
ибо в выражении
..=1 , 1 - тип вариант

ибо в выражении ..=1 , 1 - тип вариант

Ошибаетесь.

?TypeName(1)
Integer
?TypeName(1.0)
Double