Форум: "Основная";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];
ВнизИзвлечение текста из строки до определёного символа и после Найти похожие ветки
← →
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)
Не боитесь, что появится очередная ветка в "Потрепаться"? ;-)
> dreamuses 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;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.036 c