| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Извлечение текста из строки до определёного символа и после [D6, Win2k]
dream © (2004-12-13 09:27:00)Есть строка например 1111111111111 = 22222222222 каким образом можно извлеч из нее текст до = и после = ?
dream (2004-12-13 15:53:00) [1]> Anatoly Podgoretsky © (13.12.04 15:35) [15]
Возможно рано ... Спасибо за содержательный разговор. Думаю данный топик не стоит далее обсуждать.
Anatoly Podgoretsky (2004-12-13 15:35:00) [2]В судьи стремишься, рано.
dream (2004-12-13 15:19:00) [3]> Anatoly Podgoretsky © (13.12.04 13:33) [12]
Я не хотел и не хочу сориться , но своими выскахываниями ты оскорбляешь людей ! если ты это ещё не понял то тогда увы.
Я тебя уважаю . просто не нужно оскорблять всех подряд ..
Kolan (2004-12-13 14:02:00) [4]А я почти всегда изврашаюсь со строкой по ривычке наверное.
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. Но врядли это хороший вариант.
Anatoly Podgoretsky (2004-12-13 13:33:00) [5]Я тебя не спрашивал- а кого спрашивал? Ты будь добр точно укаживать, чтобы не было конфуза.
Извини, но это я сам решу, на чьи посты не оствечать или заведи свой форум где ты будешь хозяном. При том это не оскорбление а констатация простого факта.
Или ты хочешь именно оскорблений? Не дождешься!
Тебе надо для начала буквари почитать, тогда можно будет хоть както отвечать, а сейчас в пустую. Не хочешь учиться, ну что же это не единственная профессия.
Учитьс, учиться и еще раз учиться. (с) не мое.
dream (2004-12-13 13:27:00) [6]> Anatoly Podgoretsky © (13.12.04 12:06) [10]
Я тебя не спрашивал , не отвечай пожалуйста на мои посты ! я не хочу с тобой разговаривать, ты меня уже не раз оскорбил :(
Извиняюсь перед всеми за этот ответ , но ничего другого я сказать не могу !
Anatoly Podgoretsky (2004-12-13 12:06:00) [7]Рано работой заниматься
dream (2004-12-13 10:22:00) [8]> begin...end © (13.12.04 10:05) [8]
Спасибо !
Спасибо так же всем кто ответил , вы очень меня выручили :)
begin...end (2004-12-13 10:05:00) [9]> [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.
KSergey (2004-12-13 09:59:00) [10]> [6] dream (13.12.04 09:51)
> не понял как использовать copy( , , )
F1 нажимал?
dream (2004-12-13 09:51:00) [11]> KSergey © (13.12.04 09:46) [4]
не понял как использовать copy( , , ) ну не работал я раньше со строками , а работу срочно нужно сделать.
KSergey (2004-12-13 09:46:00) [12]> [3] dream (13.12.04 09:42)
> Хм ... что то не хочет
Хочет. Просто ты этого не понимаешь.
Конкретно в чем проблема сказать- не судьба?
grom (2004-12-13 09:46:00) [13]p = 15 всё работает
dream (2004-12-13 09:42:00) [14]> grom (13.12.04 09:32) [1]
p:=pos('=','1111111111111 = 22222222222');
Хм ... что то не хочет
grom (2004-12-13 09:35:00) [15]Далее copy( , , );
grom (2004-12-13 09:32:00) [16]p:integer;
p:=pos('=','1111111111111 = 22222222222');
| |
