$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