Что нового

Поиск текста в For Next

rybik

Новичок
Сообщения
84
Репутация
0
Код:
Local $lFind
Local $lAgentArray[5] = ['Odin Odin', 'Dva Dva', 'Tri Tri', 'Chetire Chetire', 'Piati Piati']

For $i = 0 To Ubound($lAgentArray) - 1
	$lFind = StringRegExp($lAgentArray[$i], "^Dva Dva$", 3)
	If $lFind[0] == 'Dva Dva' Then MsgBox(1, '', $lFind[0])
Next


Нужно именно через For Next найти в массиве "'Dva Dva", как это можно делать?
 

mr.Gbabak

Осваивающий
Сообщения
257
Репутация
23
Код:
Local $lFind
Local $lAgentArray[5] = ['Odin Odin', 'Dva Dva', 'Tri Tri', 'Chetire Chetire', 'Piati Piati']

For $i = 0 To Ubound($lAgentArray) - 1
   
    If $lAgentArray[$i] = 'Dva Dva' Then MsgBox(1, '', $lAgentArray[$i])
Next
 
Автор
R

rybik

Новичок
Сообщения
84
Репутация
0
mr.Gbabak сказал(а):
Код:
Local $lFind
Local $lAgentArray[5] = ['Odin Odin', 'Dva Dva', 'Tri Tri', 'Chetire Chetire', 'Piati Piati']

For $i = 0 To Ubound($lAgentArray) - 1
   
    If $lAgentArray[$i] = 'Dva Dva' Then MsgBox(1, '', $lAgentArray[$i])
Next

Использование StringRegExp обязательно. Потому что нужно оставить 'Dva Dva' а все что в квадратных скобках удалить.
Код:
Local $lFind
Local $lAgentArray[5] = ['Odin Odin [Odin]', 'Dva Dva [Dva]', 'Tri Tri [Tri]', 'Chetire Chetire [Chetire]', 'Piati Piati [Piati]']

For $i = 0 To Ubound($lAgentArray) - 1
    $lFind = StringRegExp($lAgentArray[$i], "^Dva Dva$", 3)
    If $lFind[0] == 'Dva Dva' Then MsgBox(1, '', $lFind[0])
Next





Добавлено:
Сообщение автоматически объединено:

Нет решения?
 

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
Так ?
Код:
Local $lFind
Local $lAgentArray[5] = ['Odin Odin [Odin]', 'Dva Dva [Dva]', 'Tri Tri [Tri]', 'Chetire Chetire [Chetire]', 'Piati Piati [Piati]']

For $i = 0 To Ubound($lAgentArray) - 1
    $lFind = StringRegExp($lAgentArray[$i], "(Dva Dva)", 3)
    If Not @error and $lFind[0] == 'Dva Dva' Then MsgBox(1, '', $lFind[0])
Next
 
Автор
R

rybik

Новичок
Сообщения
84
Репутация
0
ra4o сказал(а):
Так ?
Код:
Local $lFind
Local $lAgentArray[5] = ['Odin Odin [Odin]', 'Dva Dva [Dva]', 'Tri Tri [Tri]', 'Chetire Chetire [Chetire]', 'Piati Piati [Piati]']

For $i = 0 To Ubound($lAgentArray) - 1
    $lFind = StringRegExp($lAgentArray[$i], "(Dva Dva)", 3)
    If Not @error and $lFind[0] == 'Dva Dva' Then MsgBox(1, '', $lFind[0])
Next

То что нужно, спасибо.
 

mr.Gbabak

Осваивающий
Сообщения
257
Репутация
23
rybik [?]
Потому что нужно оставить 'Dva Dva' а все что в квадратных скобках удалить
Вы в следующий раз корректный пример приводите.
Код:
'Dva Dva' отличается от 'Dva Dva [Dva]'
 
Верх