| 
| 
 | Вопрос # 102/ вопрос открыт / | 
 |  Виталий Лещенко мне писал, что ето можно зднлать. А как, я так и не въехал. Объясните кто может.(или дайте кусок кода). 
|  |   Вопрос задал: Наземнов Вячеслав (статус: Посетитель)Вопрос отправлен: 14 августа 2006, 09:51
 Состояние вопроса: открыт, ответов: 2.
 |  Ответ #1. Отвечает эксперт: Помфюк Владимир Степанович Здравствуйте, Наземнов Вячеслав!С помощью функции pos() Вы можете определить позицию символов [ и ] , а потом вырезать "с ... по ..." с помощью copy()
 ip:=copy(fullStr,Pos('[',fullStr),Pos(']',fullStr)-Pos('[',fullStr));
 Возможно где-то надо будет дописать +1 -1 чтобы [ и ] не попали в результат
 Ответ #2. Отвечает эксперт: Виталий Лещенко Здравствуйте, Наземнов Вячеслав!Первое с чем следует разобраться это как Вы получаете этот текст в Memo...
 Пусть у Вас есть некоторая функция которая возвращает эти строки. И пусть в перный раз она вернула строку:
 "blah-blah [123.45.123.76] sdf dsf s"
 
 тогда смотрим на код внизу...
 эта программа выдирает из строки S текст заключенный в "[","]".
 В Вашем случае там также находится IP.
 Приложение:Переключить в обычный режим var  s: string;  i, j: integer;begin  s := 'blah-blah [123.45.123.76] sdf dsf s';  i := pos('[',s);  j := pos(']',s);  writeln(copy(s, i+1, j-i-1));end.
|  | Ответ отправил: Виталий Лещенко (статус: 4-ый класс)Время отправки: 15 августа 2006, 00:11
 
 |  
 Мини-форум вопросаМини-форум пуст. Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте. |