Парсинг txt с разделителями табуляцией

[Аватар]

Почему не узнаешь? В обоих способах выгрузки отлично видно где пустая ячейка, а где заполненная

[GunSmoker]

Может я не до конца понял, но:

procedure Parse(const AContent: TStrings; const AResult: TStrings);
var
  Headers, Columns: TStringList;
  Kind, DayOfWeek, Time: String;
  X: Integer;
begin
  Headers := TStringList.Create;
  Columns := TStringList.Create;
  try
    Tokenize(AContent[0], #9, Headers);
    DayOfWeek := '';
    Time := '';

    for X := 1 to AContent.Count - 1 do
    begin
      Tokenize(AContent[X], #9, Columns);

      Kind := Trim(Columns[0]);
      if Columns[0] = '' then
        Time := Columns[1]
      else
      if Columns[0] <> '"' then
      begin
        DayOfWeek := Columns[0];
        Time := Columns[1];
      end;

      // тут:
      // DayOfWeek - день недели
      // Time - время
      // Columns[2..Columns.Count - 1] - значения строки

      // делай с ними, что хочешь
      // я для примера просто выпишу в Memo
      AResult.Add(Format('%s %s: %s', [DayOfWeek, Time, Copy(Columns[2], 2, MaxInt)]));
    end;
  finally
    FreeAndNil(Columns);
    FreeAndNil(Headers);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Content: TStringList;
begin
  Content := TStringList.Create;
  try
    Content.LoadFromFile('D:\1.txt');
    Parse(Content, Memo1.Lines);
  finally
    FreeAndNil(Content);
  end;
end;

[GunSmoker]

Это разовая работа?

Просто если надо просто файл конвертировать, то это действительно проще сделать через Excel. При импорте txt нужно отключить " в качестве символа кавычек.

[AlexKhol]

Нет,это нужно будет делать каждый раз при смене расписания.Xml нужен для мобильной версии сайта.

[AlexKhol]

Выдает ошибку. "List index out of bounds(2)"

[GunSmoker]

Конечно выдаёт. Это же пример. А в файле у тебя пустые строки. Ты голову не пробовал включать, а не бездумно копировать? Для кого я в тексте писал комментарии?

[AlexKhol]

точно,сглупил.спасибо большое!