Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.26;
Скачать: CL | DM;

Вниз

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

 
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]

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

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


 
Anatoly Podgoretsky ©   (2004-12-13 13:33) [12]

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

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

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

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


 
Kolan ©   (2004-12-13 14:02) [13]

А я почти всегда изврашаюсь со строкой по ривычке наверное.
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]

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

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


 
Anatoly Podgoretsky ©   (2004-12-13 15:35) [15]

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


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

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

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



Страницы: 1 вся ветка

Текущий архив: 2004.12.26;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.026 c
1-1102673686
Klopan
2004-12-10 13:14
2004.12.26
Parent


4-1100368684
Cheburek
2004-11-13 20:58
2004.12.26
Быстро получить список директории с его подкатал-ми и файлами?


1-1102714908
Larisa
2004-12-11 00:41
2004.12.26
По умолчанию, в Делфи используется MS San Serif,


1-1103014668
korvin
2004-12-14 11:57
2004.12.26
Вроде число не 13-е, а с датой глюки???


8-1096484028
X-RayMan
2004-09-29 22:53
2004.12.26
OpenGL