вырезать часть строки

[влад1991]

Подскажите плз новичку - как извлечь фрагмент строки произвольной длины(строка записанна в memo), заключённый между двумя словами "Слово1" и "Слово2"....и присвоить эпеременной значение этой вырезанной строки! заранее спасибо)

[Вадим Мошев]

1. Узнать позицию конца слова1 и позицию начала слова2.
2. Получить подстроку с помощью функции copy

[влад1991]

Дело в том что позицию узнать не так просто-т.к. строчка все время разной длины

надо по словам разделителям смотреть

я пробовал так

procedure TForm1.Button6Click(Sender: TObject);
 var
  s: string;

  m,m2,n,n2: string;


begin
    m:=memo1.Text;
    m2 := Copy (m,1,Pos(' nodes',m)-1);

      n:=memo1.Text;
    n2 := Copy (n,1,Pos(' mode',n)-1);
s :=Copy(m,n);
    memo2.Text:= s;
end;

но так не работает

можно вывести так
s :=Copy(m,Pos('nodes',m)+7,Length(m) );
Но тогда только начало обрезает, а концовку нет..а мне надо чтоб именно часть строки между этих слов)

[BDA]

Примерно так:

k:=Pos('nodes',m)+7;
s :=Copy(m,k,Pos('mode',m)-k);

Если есть уверенность, что слово mode строго после слова nodes.

Иначе придется использовать Posex (http://programmersforum.ru/showpost....91&postcount=4).

UPD
Пожалуйста

На будущее - редактируйте свое последнее сообщение, а не плодите подряд несколько сообщений.

[влад1991]

да mode полюбому после слова nodes


сейчас попробую

Все получилось! большое спасибо!))

Блин , не могу понять почему не работает:

procedure TForm1.Button5Click(Sender: TObject); //СТРОИМ ТАБЛИЦУ!
var
  k,n:integer;
  s,m:string;
  L : TStringList;

begin
  m:=memo1.Text;
  n:=Pos('nodes',m)+7;
  s :=Copy(m,n,Pos('mode',m)-n);
  memo2.Text:= s;

     L := TStringList.Create;
  try
    L.CommaText := StringReplace(s, '-', ',', [rfReplaceAll]);
    i := 0;
    repeat
      StringGrid1.Cells[StrToInt(L[i]), StrToInt(L[i + 1])] := MidStr(L[i + 2], 2, Length(L[i + 2]) - 2);
      Inc(i, 3);
    until i >= L.Count;
  finally
    L.Free;
  end;



 end.

подскажите плиз че не так)

[eval]

а что не работает-то?

[влад1991]

оно должно автоматически по нажатию на кнопку таблицу заполнять- а не заполняет выскакивает ошибка

пишет:

progect 1.exe raised exception class EStringListError width message 'List index out of bounds 9125)'. Process stopped.

[BDA]

А так?

i := 2;
while i < L.count do
begin
  StringGrid1.Cells[StrToInt(L[i - 2]), StrToInt(L[i - 1])] := MidStr(L[i], 2, Length(L[i]) - 2);
  Inc(i, 3);
end;

UPD
Пожалуйста

На будущее - редактируйте свое последнее сообщение, а не плодите подряд несколько сообщений.

[влад1991]

Пишет:
progect 1 .exe raised exception class ESTringListError with message 'List index out of bounds (125) ' Process stopped.

ща попробую

да заработало!) ура!) спасибо-очень признателен!