разбор строк

[Djeka(c)]

помогите пожалуйста разобрать это


[10:18:40] > Received: 353 1 = хрЪ :АНИМЕ +]{imoto 4032569 35 31 0 Nippon @Namikiri 5881565 29 24 40 - Makyo 9933627 29 31 80

[10:18:40] > Received: 366 :end of names


353 - начало списка. 1, знак равенства ( = ) - пропускаем. хрЪ - название планеты.


ПОСЛЕ ДВОЕТОЧИЯ

Персонаж-смотр:
АНИМЕ - клан пользователя
+]{imoto - ник (плюсик перед ником - значит, что он смотр)
4032569 - ID пользователя
35 - голова персонажа
31 - тело персонажа.
0 - позиция на планете (координата X ) персонажа

ДАЛЕЕ ЗАНОВО СЛЕДУЮЩИЙ ПЕРС, БЕЗ ДВОЕТОЧИЯ:

Персонаж-король планеты:
Nippon - клан
@Namikiri - ник (собака значит, что это король/владелец)
5881565 - ID
29 - голова персонажа
24 - тело
40 - позиция

Простой посетитель:
- минус вместо клана значит, что пользователь не состоит в клане
Makyo - ник персонажа
9933627 - ID персонажа
29 - голова персонажа
31 - тело персонажа
80 - место (позиция) на планете


366 :end of names - сообщает, что кончились персонажи. Учтите, что ответ 353 бывает не один раз.

[Sanprof]

я думаю здесь ничего сложного нету, если вам знакомы такие функции работы со строками как Copy(), Pos(), Delete().

еще бы хотелось увидеть по-больше вариантов таких строк, а не всего лишь одну

[Djeka(c)]

можете помочь с исходным кодом??? тут всеголишь одна

[IliaIT]

выводит на экран только последнюю запись. но распознаёт все, если надо все то создавай 2 мерный массив либо пиши сразу в таблицу , например в StringGrid;

procedure TForm1.Button1Click(Sender: TObject);
var
str1:string;
i,j,k,l:integer;
a:array [1..8] of string;
begin
  str1:=Edit1.Text;
  plan.Caption:='';
  if pos('=',str1)>1 then
  begin
    i:=pos('=',str1);
    repeat
      i:=i+1;
      plan.Caption:=plan.Caption+str1[i];
    until str1[i]=':';
  end;
  k:=1;
  for j:=i to length(str1) do
  begin
    if str1[j]=' 'then k:=k+1
    else
    begin
      if (k=1) then a[k]:=a[k]+str1[j];
      if (k=2) then a[k]:=a[k]+str1[j];
      if (k=3) then a[k]:=a[k]+str1[j];
      if (k=4) then a[k]:=a[k]+str1[j];
      if (k=5) then a[k]:=a[k]+str1[j];
      if (k=6) then a[k]:=a[k]+str1[j];
    end;
    if k=7 then
    begin
      Label1.Caption:=a[1];

      Label3.Caption:=a[3];
      Label4.Caption:=a[4];
      Label5.Caption:=a[5];
      Label6.Caption:=a[6];
      case a [2][1] of
         '@':begin
                Label7.Caption:='король/владелец';
                Delete(a[2],1,1);
             end;
         '+':begin
                Label7.Caption:='смотр';
                Delete(a[2],1,1);
             end;
      else
        Label7.Caption:='';
      end;
      Label2.Caption:=a[2];
      for l:=1 to 8 do a[l]:='';
      k:=1;
    end;
  end;
end;

[Djeka(c)]

спасибо большое

тебе 7 знак нужен?

собери пожалуйста проект =) брат

это не игра Галактика Знакомств =)

[ДаниярЛ2]

[10:18:40] > Received: 353 1 = хрЪ :АНИМЕ +]{imoto 4032569 35 31 0 Nippon @Namikiri 5881565 29 24 40 - Makyo 9933627 29 31 80

[10:18:40] > Received: 366 :end of names
353 - начало списка. 1, знак равенства ( = ) - пропускаем. хрЪ - название планеты.


ПОСЛЕ ДВОЕТОЧИЯ

Персонаж-смотр:
АНИМЕ - клан пользователя
+]{imoto - ник (плюсик перед ником - значит, что он смотр)
4032569 - ID пользователя
35 - голова персонажа
31 - тело персонажа.
0 - позиция на планете (координата X ) персонажа

Эти данные надо на StringGrid загрузить например

StringGrid1.cells[0,0]:='Кланы';
StringGrid1.Cells[1,0]:='' //<- Сюда должен загружаться ник

[Djeka(c)]

мне исходка нужна чтоб понять всё помогите грузить не послёднею строчку а се строчки

прошраммисты вы где

[Dj_smart]

С таким отношением к программистам вам никто не поможет!
Не стоит принимать нас за людей, которые обожают выполнять такого рода пожелания, при том чуть ли не в требовательной форме.
Тем более с таким отношением. Здесь помогают, если вы в чем то не можете разобраться, а не решают за вас - "Вот, держите, кушайте. Нет, спасибо, не-надо, вам спасибо за ваши требования!".

[Djeka(c)]

Да я не знаю, Честно помогите пожалуйста очень нужно (((

[Mad_Cat]

так надо было?