function DelimitedStringToTable(DelimitedString, Delimiter)
    tbReturn = {}
    local strWorking
    local nPos = nil
    local strData
    local nTableIndex = 1
    local nDelimiterLength = String.Length(Delimiter)
    if (nDelimiterLength < 1) then
        tbReturn[nTableIndex] = DelimitedString
        return tbReturn
    end
    strWorking = DelimitedString
    nPos = String.Find(strWorking, Delimiter)
    while (nPos ~= -1) do
        strData = String.Left(strWorking, nPos -1)
        tbReturn[nTableIndex] = strData
        nTableIndex = nTableIndex + 1
        local nLength = String.Length(strWorking)
        strWorking = String.Right(strWorking, nLength - (nPos + (nDelimiterLength -1)))
        nPos = String.Find(strWorking, Delimiter)
    end
    if (strWorking ~= "") then
        tbReturn[nTableIndex] = strWorking
    end
    return tbReturn
end

arabicCharactersString = 'اأإآىبتةثجحخدذرزسشصضطظعغفقكلمنهوؤيئء'..'؟!.،؛’"\''..'ًٌٍَُِّْ'

arabicText=Input.GetText('arabicText')

newArabicText=DelimitedStringToTable(arabicText, ' ')

numberOfArabicWords=0
for j,word in pairs(newArabicText) do
    wordLength=String.Length(word);
    wordIsOK=true
    for x=1, wordLength do
        searchLetter=String.Find(arabicCharactersString,String.Mid(word,x,1))
        if searchLetter == -1 then
            wordIsOK=false
            break
        end
        if wordIsOK ~= true then
            break
        end
    end
    if wordIsOK == true then
        numberOfArabicWords = numberOfArabicWords +1
    end
end
Dialog.Message('خرجت النتيجة أخيرًا!','عدد الكلمات العربية هو '..numberOfArabicWords)

([؀-ۿݐ-ݿﭐ-﷽ﹰ-ﻼ]+)