Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.45 MB
Время: 0.03 c
1-1093240722
[BAD]Angel
2004-08-23 09:58
2004.09.12
Как вывести текст на рабочий стол чтобы он не затирался окнами?


4-1091041350
Sulimxar
2004-07-28 23:02
2004.09.12
Окно между курсором и формой


1-1093847121
samumka
2004-08-30 10:25
2004.09.12
Функция InputBox()


11-1080499633
nester
2004-03-28 22:47
2004.09.12
Как в рантайм у EditBox а добраться до свойства Options ?


4-1090070812
BVV
2004-07-17 17:26
2004.09.12
Управление чюжим приложением





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский