Что нового

Как проверить первую букву каждого слова из текста

egorik105

Новичок
Сообщения
1
Репутация
0
У меня есть текст:
$test ="1333рвовлвл 4лалвлоаов огж АБС ГУР АБС асл"
Нужно что бы скрипт проверил есть ли в этом тесте слова начинающиеся на А(без учёта регистра)
 

gunter123

Продвинутый
Сообщения
159
Репутация
69
Код:
$sTest = "1333рвовлвл 4лалвлоаов огж АБС ГУР АБС асл"
$sSymbol = 'а'

If StringRegExp(' ' & $sTest, '(?i)[^A-zА-я](' & $sSymbol & ')', 0) Then         ; "РВО" - найдет, "с" - Нет
   MsgBox(4096, "", "Есть")
Else
   MsgBox(4096, "", "Нет")
EndIf
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
Код:
$test ="1333рвовлвл 4лалвлоаов огж АБС ГУР АБС асл"
$sSymbol = 'а'

$aWords = StringSplit($test, ' ')

For $i = 1 To $aWords[0]
	If StringLeft($aWords[$i], StringLen($sSymbol)) = $sSymbol Then
		MsgBox(0, "", "есть" & @CRLF & $aWords[$i])
	Else
		MsgBox(0, "", "нет" & @CRLF & $aWords[$i])
	EndIf
Next

$bFlag = True
For $i = 1 To $aWords[0]
	If StringLeft($aWords[$i], StringLen($sSymbol)) <> $sSymbol Then
		$bFlag = False
		ExitLoop
	EndIf
Next
If $bFlag Then
	MsgBox(0, "", "есть во всех")
Else
	MsgBox(0, "", "Нет хотя бы в одном")
EndIf
 
Верх