Разделение строки

← →
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-а просто искать в цикле ":" с правой стороны строки

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

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

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

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