Версия для печати темы

file = Core.GetPtokaXPath().."scripts/mytxtfile.txt" -- путь к файлу, с имеющей в ней информацией
slovo = 'тест' -- слово чтобы найти
    local sFile = io.open(file, "r" )                     -- Открываем файл
    local s = sFile:read("*a"):match(slovo)       -- Читаем и находим слово
    Core.SendToAll(s)                           -- Отправляем в общий чат
    sFile:close()                                              --Закрываем файл

sWeNeedDataInFiles = "some data here"
tData = {}

require"lfs"

function attrdir (path)
    for file in lfs.dir(path) do
        if file ~= "." and file ~= ".." then
            local f = path..'/'..file
            -- print ("\t "..f)
            local attr = lfs.attributes (f)
            assert (type(attr) == "table")
            if attr.mode == "directory" then
                attrdir (f)
            else
                local h = io.open(f, 'r+')
                if h then
                    local sData = h:read('*a')
                    if sData:find(sWeNeedDataInFiles, 1, true) then
                        tData[f] = sData
                    end
                    h:close()
                end
            end
        end
    end
end

attrdir ("./somepath/")

function TForm1.FindNick(nick: String; var nick_start, nick_end: Integer): Boolean;
var
  i: Integer;
  S: String;
begin
  Result := false;
  for i := 0 to tblMemo.Lines.Count - 1 do
  begin
    S := tblMemo.Lines[i];
    if Pos(#9+'["'+nick+'"] = {', S) > 0 then
    begin
      nick_start := i;
      break;
    end;
  end;
  if nick_start > 0 then
    for i := nick_start to tblMemo.Lines.Count - 1 do
    begin
      S := tblMemo.Lines[i];
      if Pos(#9+'}', S) > 0 then
      begin
        nick_end := i;
        Result := true;
        break;
      end;
  end;
end;

        nick_start := 0; nick_end := 0;
        if FindNick(nick, nick_start, nick_end) then
        begin
...
        end
        else
        begin
          tblMemo.Lines.Insert(tblMemo.Lines.Count-1, #9+'["'+nick+'"] = {');
          tblMemo.Lines.Insert(tblMemo.Lines.Count-1, #9#9+'["Nick"] = "'+nick+'"');
          tblMemo.Lines.Insert(tblMemo.Lines.Count-1, #9+'}');
        end;