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

[AlexKhol]

Доброго времени суток! Необходимо из xls файла сделать xml.Сам xls представляет собой довольно большую таблицу,расписание занятий.Пробовал обращаться к таблице через Variant,но дело в том,что программа должна быть универсальной для любого количества столбцов и строк,а также любой разметки.Поэтому пришлось сохранять как Текстовый документ(с разделителем табуляцией).Подскажите как мне вытащить данные и записать их в группы,по столбцам.Например

<group value="1">
 
<tag>Дни</tag>
<tag>Понедельник</tag>
...
</group>
 
 
<group value="2">
 
<tag>Часы</tag>
...
</group>
и тд.

А вот таблица в Txt:1.txt

[xrob]

я вам дам подсказку: символ табуляции - это #9.
и да прибудет с вами copy и pos!
благословляю тебя, сын мой, на такой вот код:

td1:= copy(stroka,1, pos(#9,stroka) );
Delete(stroka,1,pos(#9,stroka));

td2:= copy(stroka,1, pos(#9,stroka) );
Delete(stroka,1,pos(#9,stroka));

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

stroka:=stroka + #9;

[_SERGEYX_]

В DelphiWorld есть хорошая функция, для разбивки строки с разделителями в stringlist

function Tokenize(Str: WideString; Delimiter: string): TStringList;
var
  tmpStrList: TStringList;
  tmpString, tmpVal: WideString;
  DelimPos: LongInt;
begin
  tmpStrList := TStringList.Create;
  tmpString := Str;
  DelimPos := 1;
  while DelimPos > 0 do
  begin
    DelimPos := LastDelimiter(Delimiter, tmpString);
    tmpVal := Copy(tmpString, DelimPos + 1, Length(tmpString));
    tmpStrList.Add(UpperCase(tmpVal));
    Delete(tmpString, DelimPos, Length(tmpString));
  end;
  Tokenize := tmpStrList;
end;

Правда, выдаст список в TStringList задом наперед, т.е. нужно будет читать лист
не так

for i:= 0 to sl.count-1

а так

for i:= sl.count-1 downto 0

но это не проблема

[AlexKhol]

А Delimiter - это разделитель?

[GunSmoker]

хорошая функция

По рукам бы за такой дизайн сигнатуры "хорошей функции".

Правильно нужно делать так:

procedureTokenize(const ASource, ADelimiter: String; const AResult: TStrings);

Ну и код внутри можно и получше сделать.

Например, так (режем строчку, используя TStrings):

procedure Tokenize(const ASource: String; const ADelimiter: Char; const AResult: TStrings);
var
  SavedDelimiter: Char;
  SavedQuoteChar: Char;
  SavedStrictDel: Boolean;
  DelimitedText: String;
begin
  SavedDelimiter := AResult.Delimiter;
  SavedQuoteChar := AResult.QuoteChar;
  SavedStrictDel := AResult.StrictDelimiter;
  try
    AResult.Delimiter := ADelimiter;
    AResult.QuoteChar := '"';
    AResult.StrictDelimiter := True;

    DelimitedText := AResult.QuoteChar + StringReplace(ASource, ADelimiter, AResult.QuoteChar + ADelimiter + AResult.QuoteChar, [rfReplaceAll]) + AResult.QuoteChar;

    AResult.DelimitedText := DelimitedText;
  finally
    AResult.Delimiter := SavedDelimiter;
    AResult.QuoteChar := SavedQuoteChar;
    AResult.StrictDelimiter := SavedStrictDel;
  end;
end;

Или так (если хочется руками и/или с множественными разделителями):

procedure Tokenize(const ASource, ADelimiters: String; const AResult: TStrings);
var
  CutPos: Integer;
  Src, Line: String;
begin
  if ASource = '' then
    Exit;

  AResult.BeginUpdate;
  try
    Src := ASource;
    AResult.Clear;
    repeat

      CutPos := LastDelimiter(ADelimiters, Src);
      if CutPos > 0 then
      begin
        Line := Copy(Src, CutPos + 1, MaxInt);
        Src := Copy(Src, 1, CutPos - 1);
      end
      else
      begin
        Line := Src;
        Src := '';
      end;

      AResult.Insert(0, Line);

    until Src = '';
  finally
    AResult.EndUpdate;
  end;
end;

Пример использования:

Tokenize('Test 1;Test 2;Test 3', ';', Memo1.Lines);

или:

var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    Tokenize('Test 1;Test 2;Test 3', ';', SL);
    // что-то делаем с SL
  finally
    FreeAndNil(SL);
  end;
end;

[AlexKhol]

GunSmoker подскажите как можно их по столбцам записать,то есть 1-й столбец в одну группу,второй в другую и тд.Дело в том что таблица кривая,и если в загрузить в Tstringlist, то 0-я строка,отображается нормально,а следующие не полно,а по 2-3 элемента?

[GunSmoker]

Ну так ты покажи наглядно, как ты хочешь представить данные. Например, открой файл в Excel, перегруппируй, покажи скриншот.

Пока что из твоего 1.txt текст

<group value="1">

<tag>Дни</tag>
<tag>Понедельник</tag>
...
</group>


<group value="2">

<tag>Часы</tag>
...
</group>

не следует ну никак.

[AlexKhol]

Вот скрин таблицы.45.jpg
Нужно объединить по столбцам.

[Аватар]

Почему бы из Excel не выгрузить как xml-таблицу? ИМХО проще из xml-файла сделать другой xml-файл, чем ковыряться в текстовом файле с разделителями

[AlexKhol]

просто там куча пустых ячеек,которые тоже выводятся,и не узнаешь,где пустой потому что это окно,то есть занятий нет,а где...