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

Вниз

Разделение строки   Найти похожие ветки 

 
Lord de Mon ©   (2004-08-30 21:26) [0]

Уважаемые Мастера! Подскажыте пожалуйста как разделить строку "192.168.158.157:3128" на "192.168.158.157" и "3128".


 
begin...end ©   (2004-08-30 21:36) [1]

uses StrUtils;

var
 S, S1, S2: String;

begin
 S := "192.168.158.157:3128";
 S1 := LeftStr(S, Pos(":", S) - 1);
 S2 := RightStr(S, Length(S) - Pos(":", S));
end.


 
Lord de Mon ©   (2004-08-30 21:43) [2]

Дорогой begin...end. Ти даже не представляешь как я тебе благодарен. Откуда у Тебя терпение столько помогать такому незнайке как я? Большое Тебе спасибо.


 
begin...end ©   (2004-08-30 22:03) [3]


> [2] Lord de Mon ©   (30.08.04 21:43)


Кстати, вот ещё вариант:

var
 S, S1, S2: String;
 Position: Integer;
begin
 S := "192.168.158.157:3128";
 Position := Pos(":", S);
 S1 := Copy(S, 1, Position - 1);
 S2 := Copy(S, Position + 1, Length(S) - Position);
end.



Ти даже не представляешь как я тебе благодарен.
Большое Тебе спасибо.

Ну вот теперь мне можно пойти спать с хорошим настроением :-)


 
default ©   (2004-08-30 22:16) [4]

begin...end ©   (30.08.04 22:03) [3]
лучше вместо Pos-а просто искать в цикле ":" с правой стороны строки


 
begin...end ©   (2004-08-30 22:23) [5]


> [4] default ©   (30.08.04 22:16)

Согласен, для данной строки - лучше.
Кстати, для неё (и подобных IP) можно и вообще не искать: Position = 16 :-)


 
default ©   (2004-08-30 23:44) [6]

begin...end ©   (30.08.04 22:23) [5]
я тоже сначала так подумал зачем искать...но увидев твой код подумал что последнее число переменно по числу разрядов



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

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

Наверх




Память: 0.48 MB
Время: 0.045 c
1-1093589612
dim-
2004-08-27 10:53
2004.09.12
Почему повторный вызов dll вызывает ошибку?


4-1090747632
race1
2004-07-25 13:27
2004.09.12
keys


1-1093883188
Lord de Mon
2004-08-30 20:26
2004.09.12
Хочу переменной типа стринг присвоить значение с реестра


3-1092387386
DmitryMN
2004-08-13 12:56
2004.09.12
Аналог IsNull а Firebird?


3-1092375996
tERRORist
2004-08-13 09:46
2004.09.12
DefaultExpression в ADODataSet