[Elza]

Сообщение от Uniq!

У вас круглые скобки являются оператором "выноса" из твоей строки "значений".
Т.е. если тебе нужно второе значение, возьми его в скобки круглые.

= '"date": "(.*?)" ещё какие-то символы (.*?) ещё символы'
Дайте реальный пример строки:

Код:

"date": "13.09.2013", "Time": 06:20:41", "Name": "user", "Type": "other", "chislo": 1,

[Uniq!]

"date": "13.09.2013", "Time": "06:20:41", "Name": "user", "Type": "other", "chislo": 1,
"date":\s"(.*?)",\s"Time":\s"(.*?)",\s"Name":\s"(. *?)",\s"Type"\s"(.*?)","chislo":\s(.*?),

Всё, что он найдёт в круглых скобках - вернёт в ваш массив Match

поправил

\s - символ пробела(и ему подобных)
. в скобках - любой из символов.

[Elza]

ругается на

Код:

[DCC Error] Undeclared identifier: 'TMatch'

[Uniq!]

Сообщение от Elza

ругается на

Код:

[DCC Error] Undeclared identifier: 'TMatch'

TMatches может. Или uses забыли добавить.

[Elza]

Сообщение от Uniq!

TMatches может. Или uses забыли добавить.

В delphi XE4 нормально компилит, а в 2007 не могло.

Осталось понять как прочитать этот Match массив

[M.A.D.M.A.N.]

Все таки хотите с регэкспами совокупиться? Не хотите на простейшем автомате сделать?

[Elza]

хочу хоть как. Но та ссылка, что вы дали, я там ничего не поняла

[M.A.D.M.A.N.]

Почитайте на википедии, там более-менее доступно.
Где-то была книженция по ним, там вообще на пальцах разбиралось. Если найду - выложу.

[Elza]

случайно не эта?

Джулиан Бакнелл Фундаментальные алгоритмы и структуры данных в Delphi

Блин... тема на столько для меня не ясна, что я залипла

На счет вашего сообщения в начале темы, что формат похож на json!
Это действительно очень похоже, сейчас копаю в эту сторону

[M.A.D.M.A.N.]

Да. Эта самая книга. Там вроде доступно все. 388 страница.

[Elza]

Спасибо вам, схема вроде понятная, я просто затрудняюсь это воплотить в коде. По этому ищу другие способы.

сделала через попу, но вроде работает. Хотя думаю так не правильно делать

Код:

function Pars(TextIn, Text, TextOut:string):string;
var
TempStr: string;
begin
  Result:='';
  TempStr:=Text;
  TempStr:=Copy(TempStr, Pos(TextIn, TempStr) +Length(TextIn), Length(TempStr));
  Delete(TempStr, Pos(TextOut, TempStr), Length(TempStr));
  Result := TempStr;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
list:TStrings;
ItData: TListItem;
d:integer;
begin
list :=TStringList.Create;
ItData := ListView1.Items.Add;
list.LoadFromFile('12.test');
for d := 0 to list.Count-1 do
begin
ItData.Caption := pars('"date": "', list[d], '",');
ItData.SubItems.Add(pars('"Time": "', list[d], '",'));
ItData.SubItems.Add(pars('"Name": "', list[d], '",'));
ItData.SubItems.Add(pars('"Type": "', list[d], '",'));
ItData.SubItems.Add(pars('"chislo": ', list[d], ',')); 

А кто знает, как считать тоже самое только через TMemoryStream???

Просто если, файл 12.test будет иметь в себе по мимо нужного текста, такое

/߿Ė����羶Ƴ0Αᾠq=ǼMۜK4'͏̴Lq.��ŮЊмA߁Ȭ;;ퟹ�սѪǍ檼����B䇟
5ͼ pP׌\aؿ

То ничего ничего не выходит=(