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

[egorik105]

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

 

[Alofa]

... есть ли в этом тесте слова ...

А что есть слово?
"А=пр", "А4а", "а", "_Аввв" - это слова?

 

[gunter123]

$sTest = "1333рвовлвл 4лалвлоаов огж АБС ГУР АБС асл"
$sSymbol = 'а'

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

 

[alex33]

$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