Последние записи
- Windows 10 сменить администратора
- Рандомное слайдшоу
- Событие для произвольной области внутри TImage
- Удаление папки с файлами
- Распечатка файла
- Преобразовать массив байт в вещественное число (single)
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
8th
Май
Функция, для разбивки строки с разделителями в stringlist
Posted by Chas under Delphi
Необходимо из xls файла сделать xml.Сам xls представляет собой довольно большую таблицу,расписание занятий.Пробовал обращаться к таблице через Variant,но дело в том,что программа должна быть универсальной для любого количества столбцов и строк,а также любой разметки.Поэтому пришлось сохранять как Текстовый документ(с разделителем табуляцией).Подскажите как мне вытащить данные и записать их в группы,по столбцам.
GunSmoker
Например, так (режем строчку, используя 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;
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)