Парсеры. Преобразуем текст в HTML таблицу

Для начала, поместим на форму два компонента Memo (mmo1 и mmo2) и один компонент Button (btn1). Теперь перейдем к редактированию значений параметров компонентов при помощи панели Object Inspector. У компонентов класса TMemo изменим значение параметра ScrollBars на ssBoth и отредактируем значение параметра Lines - уберем из текста название компонента. Изменим значение параметра Caption для кнопки на "Создать таблицу". (см. Рис. 1).

Рис.1

Дважды щелкаем на кнопку btn1 и заменяем процедуру на приведенную ниже:

procedure TForm1.btn1Click(Sender: TObject); var i,j,mx,fw,ftd:Integer; s,title:String; ar:TArray; begin mx:=0; //Обнуляем переменную Mx, которая будет содержать информацию о максимальном количестве столбцов таблицы fw:=0; //Переменная, предназначенная для хранения информации о том, был ли выведен заголовок таблицы mmo2.Lines.BeginUpdate; //Останавливаем построчное обновление текстового поля компонента mmo2 mmo2.Clear; //Очищаем текстовое поле mmo2 for i:=0 to mmo1.Lines.Count-1 do //В цикле перебираем строки исходного текста. Выясняем максимальное количество колонок таблицы. begin ar:=explode(Char(9), mmo1.Lines.Strings[i],0);//Разбиваем строку исходного текста на подстроки (заносим строки в массив ar). В данном случает разделителем является знак табуляции - Char(9) if (Length(mmo1.Lines.Strings[i])>0) and (i=0) then title:=ar[0]; //Если длина строки больше 0 и это первая строка, то запоминаем Заголовок таблицы в переменную title if mx<Length(ar) then mx:= Length(ar); //Если максимум меньше чем количество строк массива ar, то присваеваем переменной mx новое значение. end; mmo2.Lines.Add('<h2 class="li4">'+title+'</h2>');//Выводим заголовок таблицы mmo2.Lines.Add('<center><table border="0" cellspacing="2" cellpadding="2" summary="'+title+'" width="100%">');//Вставляем HTML код таблицы mmo2.Lines.Add('<tbody>'); //Начинаем выводить тело HTML таблицы for i:=0 to mmo1.Lines.Count-1 do //В цикле перебираем строки исходного текста. begin if ((title<>'') and (i=0)) then //Если уже вывели название таблицы, то пропускаем первую строку begin end else begin ar:=explode(Char(9), mmo1.Lines.Strings[i],0);//Разбиваем строку исходного текста на подстроки (заносим строки в массив ar). В данном случает разделителем является знак табуляции - Char(9) ftd:=0;//Обнуляем переменную которая выводит дополнительную информацию в определенные столбцы s:='<tr>';//Начинаем строку HTML таблицы for j:=0 to mx-1 do //Цикл, в котором благодаря переменной mx, элементы будут выводится в независимости от количества элементов массива ar begin if (j>Length(ar)-1) then //Сверка количества элементов массива ar и номера текущего элемента s:=s+'<td> </td>' //Если номер текущего элемента больше чем количество элементов массива ar, то выводим пустую ячейку else begin if (Trim(ar[j])='') then s:=s+'<td> </td>' else //Если текущий элемент массива ar - пустая строка, то выводим пустую ячейку HTML таблицы begin if fw=0 then s:=s+'<td width="47%">'+trim(ar[j])+'</td>' else //Задаем ширину первой ячейки таблицы (47%) if (ftd=0) or (ftd=2) then s:=s+'<td class="col1">'+trim(ar[j])+'</td>' else //Если есть данные для 1 и 3 ячейки то выводим ячейки с оформлением s:=s+'<td>'+trim(ar[j])+'</td>'; //Если не выполнились все предыдущие условия, просто выводим текущий элемент массива ar Inc(fw);//Увеличиваем переменную fw на 1 (счетчик ячеек) Inc(ftd);//Увеличиваем переменную ftd на 1 (счетчик столбцов) end; end; end; mmo2.Lines.Add(s+'</tr>'); //Закрываем строку HTML таблицы end; end; SetLength(ar,0); //Обнуляем массив строк mmo2.Lines.Add('</tbody>');//Закрываем тело HTML таблицы mmo2.Lines.Add('</table></center>');//Закрываем HTML таблицу mmo2.Lines.EndUpdate;//Включаем обновление текстового поля end;

Для работы этого кода необходимо добавить функцию которая будет разбивать разделителем строку на массив строк. Код функции вставляем выше кода процедуры обрабатывающей нажатие на кнопку.

function explode(cDelimiter, sValue : string; iCount : integer) : TArray; //Функции передаются параметры cDelimiter - символ-разделитель, sValue - строка которую необходимо разбить на подстроки, iCount - ограничитель массива (0 - без ограничения) var s : string; i,p : integer; begin s := sValue; i := 0; while length(s) > 0 do begin inc(i); SetLength(result, i); p := pos(cDelimiter,s); if ( p > 0 ) and ( ( i < iCount ) OR ( iCount = 0) ) then begin result[i - 1] := copy(s,0,p-1); s := copy(s,p + length(cDelimiter),length(s)); end else begin result[i - 1] := s; s:= ''; end; end; end;

Вот в принципе и все. Компилируем программу (F9).

Предполагается, что исходный текст будет помещаться в mmo1 а после обработки HTML таблица будет выводится в mmo2.

Для удобства, мы добавили еще необязательный обработчик нажатия сочетания клавиш Ctrl+A на компоненте mmo2 (Событие onKeyDown).

procedure CopyStringToClipboard(const Value: String);//Процедура корректно копирующая кириллический текст в буфер обмена const RusLocale = (SUBLANG_DEFAULT shl $A) or LANG_RUSSIAN; var hMem: THandle; pData: Pointer; begin Clipboard.Open; try Clipboard.AsText := Value; hMem := GlobalAlloc(GMEM_MOVEABLE, SizeOf(DWORD)); try pData := GlobalLock(hMem); try DWORD(pData^) := LANG_UKRAINIAN; finally GlobalUnlock(hMem); end; Clipboard.SetAsHandle(CF_LOCALE, hMem); finally GlobalFree(hMem); end; finally Clipboard.Close; end; end;

Сам обработчик события onKeyDown компонента mmo2

if((Key=Ord('A')) and (ssCtrl in Shift)) then // begin mmo2.SelectAll; //Выделить весь текст HTML таблицы CopyStringToClipboard(mmo2.Text);//Скопировать текст в буфер обмена end;

Такая простая, но очень полезная программа очень пригодилась при написании статьи Самые популярные поисковые запросы 2009 года. Данные копировались через буфер обмена в Excel, там подготавливались, потом вставлялись в mmo1 (после копирования в Excel текст автоматически преобразовывался в текст с разделителем - знак табуляции) и при помощи программы преобразовывались в HTML таблицу.

Если возникнут вопросы, пишите, с радостью ответим!

P.S. Для работы процедуры копирoвания в буфер обмена понадобится добавить модуль Clipbrd в список подключаемых модулей (список uses в самом начале программного кода)

Теги:
парсер, html таблица, текст в таблицу, delphi, текст с разделителями, код, программа, пишем программу, парсер текста