Форум: "Основная";
Текущий архив: 2004.09.12;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.032 c