Извлечение текста из строки до определёного символа и после

← →
dream (2004-12-13 09:27) [0]

Есть строка например 1111111111111 = 22222222222 каким образом можно извлеч из нее текст до = и после = ?

← →
grom (2004-12-13 09:32) [1]

p:integer;
p:=pos("=","1111111111111 = 22222222222");

← →
grom (2004-12-13 09:35) [2]

Далее copy( , , );

← →
dream (2004-12-13 09:42) [3]

> grom (13.12.04 09:32) [1]

p:=pos("=","1111111111111 = 22222222222");

Хм ... что то не хочет

← →
KSergey © (2004-12-13 09:46) [4]

> [3] dream (13.12.04 09:42)
> Хм ... что то не хочет

Хочет. Просто ты этого не понимаешь.
Конкретно в чем проблема сказать- не судьба?

← →
grom (2004-12-13 09:46) [5]

p = 15 всё работает

← →
dream (2004-12-13 09:51) [6]

> KSergey © (13.12.04 09:46) [4]

не понял как использовать copy( , , ) ну не работал я раньше со строками , а работу срочно нужно сделать.

← →
KSergey © (2004-12-13 09:59) [7]

> [6] dream (13.12.04 09:51)
> не понял как использовать copy( , , )

F1 нажимал?

← →
begin...end © (2004-12-13 10:05) [8]

> [7] KSergey © (13.12.04 09:59)

Не боитесь, что появится очередная ветка в "Потрепаться"? ;-)

> dream

uses StrUtils; var S, SL, SR: String; P: Integer; begin P := Pos("=", S); if P > 0 then begin SL := LeftStr(S, P - 1); SR := RightStr(S, Length(S) - P) end end.

← →
dream (2004-12-13 10:22) [9]

> begin...end © (13.12.04 10:05) [8]

Спасибо !

Спасибо так же всем кто ответил , вы очень меня выручили :)

← →
Anatoly Podgoretsky © (2004-12-13 12:06) [10]

Рано работой заниматься

← →
dream (2004-12-13 13:27) [11]

> Anatoly Podgoretsky © (13.12.04 12:06) [10]

Я тебя не спрашивал , не отвечай пожалуйста на мои посты ! я не хочу с тобой разговаривать, ты меня уже не раз оскорбил :(

Извиняюсь перед всеми за этот ответ , но ничего другого я сказать не могу !

Я тебя не спрашивал - а кого спрашивал? Ты будь добр точно укаживать, чтобы не было конфуза.

Извини, но это я сам решу, на чьи посты не оствечать или заведи свой форум где ты будешь хозяном. При том это не оскорбление а констатация простого факта.
Или ты хочешь именно оскорблений? Не дождешься!

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

Учитьс, учиться и еще раз учиться. (с) не мое.

А я почти всегда изврашаюсь со строкой по ривычке наверное.
function TCalculation.ExtractIniExpression(S: string): string; var I: Integer; Answer: string; WasEqualLexem: Boolean; begin Answer := ""; KillSpaces(S); WasEqualLexem := False; for I := 1 to length(S) do begin if WasEqualLexem then Answer := Answer + S[I]; if S[I] = "=" then WasEqualLexem := True; end; Result := Answer; end;
Вот это выдернет из строки вида Smthing=AntThing Anything. Но врядли это хороший вариант.

← →
dream (2004-12-13 15:19) [14]

> Anatoly Podgoretsky © (13.12.04 13:33) [12]

Я не хотел и не хочу сориться , но своими выскахываниями ты оскорбляешь людей ! если ты это ещё не понял то тогда увы.

Я тебя уважаю . просто не нужно оскорблять всех подряд ..

В судьи стремишься, рано.

← →
dream (2004-12-13 15:53) [16]

> Anatoly Podgoretsky © (13.12.04 15:35) [15]

Возможно рано ... Спасибо за содержательный разговор. Думаю данный топик не стоит далее обсуждать.

Извлечение текста из строки до определёного символа и после Найти похожие ветки