Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.09.2018, 20:02   #1
Mazahaka_lab
 
Регистрация: 08.11.2015
Сообщений: 9
По умолчанию Парсинг строк

Всем привет! Нужна помощь! Имеем текст (сам текст прикрепил к сообщению).
В нём есть колонки Date Time Attr Size Compressed Name со списком. Нужно после парсинга , чтобы я мог выводить отдельно по желанию список каждой колонки в memo например
Пример :
Код:
 
Список колонки Name:
------------------- 
sevenzip
sevenzip\Win32
sevenzip\Win32\Debug
sevenzip\__history
sevenzip\__recovery
sevenzip\Project1.dproj
 sevenzip\Project1.dproj.local
sevenzip\Project1.identcache
sevenzip\Project1.res
sevenzip\Project1.stat
....
У меня получилось вывести список под Date, Time , Attr, Size, а вот с колонками Compressed, Name проблемы , так как в колонке Compressed есть пустые строки и у меня колонки Compressed и Name совмещаются =(

Мой код :
Код:
procedure TForm1.Button2Click(Sender: TObject);
VAR
F,D: TStringList;
I:INTEGER;
begin
d := TStringList.Create;
F:= TStringList.Create;
d.LoadFromFile('C:\ping.txt');
d.Delete(D.Count-1);
d.Delete(D.Count-1);
for i := 19 to D.Count-1 do BEGIN
F.Clear;
F.CommaText:= D.Strings[I];
MEMO1.Lines.Add(F.Strings[4]);
END;
F.Free;
d.Free;
end;
end.
Вложения
Тип файла: txt ping.txt (2.1 Кб, 117 просмотров)
Mazahaka_lab вне форума Ответить с цитированием
Старый 29.09.2018, 22:03   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,442
По умолчанию

Используйте ключ -slt вкупе с командой l и вывод будет более техническим,
типа такого:
Цитата:

7-Zip 17.01 beta (x64) : Copyright (c) 1999-2017 Igor Pavlov : 2017-08-28

Scanning the drive for archives:
1 file, 1370820 bytes (1339 KiB)

Listing archive: 7Zip.7z

--
Path = 7Zip.7z
Type = 7z
Physical Size = 1370820
Headers Size = 1662
Method = LZMA2:6m LZMA:20 BCJ2
Solid = +
Blocks = 2

----------
Path = Lang
Size = 0
Packed Size = 0
Modified = 2017-12-21 01:44:03
Attributes = D
CRC =
Encrypted = -
Method =
Block =

Path = 7-zip.chm
Size = 107552
Packed Size = 341339
Modified = 2017-08-28 14:47:37
Attributes = A
CRC = 7630116B
Encrypted = -
Method = LZMA2:6m
Block = 0

....
Человек_Борща вне форума Ответить с цитированием
Старый 30.09.2018, 13:12   #3
Mazahaka_lab
 
Регистрация: 08.11.2015
Сообщений: 9
По умолчанию

Цитата:
Сообщение от Человек_Борща Посмотреть сообщение
Используйте ключ -slt вкупе с командой l и вывод будет более техническим,
типа такого:
Большое спасибо, не знал об таком, но свою проблемы я уже решил.
Mazahaka_lab вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Парсинг строк РоманВас Visual C++ 3 01.04.2016 10:16
Парсинг строк. updaite C# (си шарп) 1 12.11.2013 01:16
Парсинг строк в pascal Night_Devil Помощь студентам 2 03.04.2012 17:07
Парсинг повторяющихся строк cashmail PHP 25 21.02.2012 18:52
Парсинг строк в Мемо Lauri Помощь студентам 7 04.12.2011 02:59