كيفية معرفة عدد الكلمات في المتغير

كود:
words = {"safa","Tree","Play"}

كود:
text = " "..text
strFind = " ";
result = DLL.CallFunction("CountSubString.dll", "CountSubString", "\""..text.."\",\""..strFind.."\"", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
words = result
space = 0
words_all = {}
for x=1,words do
find_space = String.Find(text, " ", 1+space)
space = space+find_space
find_2space = String.Find(text, " ", find_space+1)
  if find_space == -1 then ----æÕá Çáì ÇáäåÇíÉ
  find = String.ReverseFind(text, " ")
  word_now = String.Mid(text, find, -1)
  num = Table.Count(words_all)
      if word_now ~= " " then
  Table.Insert(words_all, num+1, word_now) end
  elseif find_space ~= -1 then
  word_now = String.Mid(text, find_space, find_2space-find_space)
  num = Table.Count(words_all)
      if word_now ~= " " then
  Table.Insert(words_all, num+1, word_now) end
  end
end

كود:
RichText.FindText

كود:
text = Input.GetText("Input1")--استحضار التكست
_yah = "\r\n";
yah = DLL.CallFunction("CountSubString.dll", "CountSubString", "\""..text.."\",\"".._yah.."\"", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
--مسح كل الانترز
for x=1,yah do
text = String.Replace(text, "\r\n", " ")
end
text = " "..text.." "
strFind = " ";
spaces = DLL.CallFunction("CountSubString.dll", "CountSubString", "\""..text.."\",\""..strFind.."\"", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
words = spaces+1
all_words = {}
when_last = 0
--وضع كل كلمة في الجدول
for x=1,spaces-1 do
first_space = String.Find(text, " ", when_last, false)
second_space = String.Find(text, " ",1+first_space, false)
when_last = second_space
word_p = String.Mid(text, first_space+1, second_space-(first_space+1))
max = Table.Count(all_words)
Table.Insert(all_words, max+1, word_p)
end