Конференции:  3D графика Delphi Игры Бизнес Потрепаться PHP&MySQL QuarkXPress Turbo Pascal WEB-дизайн 
<<<    Конференция "Delphi"   >>>
Max*s [2005-04-19 08:07:37]
Работа с файлами и строками
Есть файлик со строками:
*подразделение*+IP+
Нужно выбрать из файлика Название подразделения (между звездочками), создать файлик с его наименованием и сложить туда все IP(между плюсиками), относящиеся к ентому подразделению.
ПОМОЖИТЕ чем можите!!!

Man In Black ® [2005-04-19 22:21:02]    [1]
Получаем подразделение.
for i:= 0 to Length(Str)-1
do begin
if Str[i]='"' then
begin
 A:=StrToInt(Copy(Str,i,Pos('"', Str));
 IP_Poz:=Pos('"', Str);
end;

IPs:=Copy(Str,IP_Poz,Length(Str));

Сейчас А должно равняться "подразделение", А IPs должно содержать все IP.
Пользуясь процедурой Str_Replace ты можешь заменить плюсы на "#13#10" (напрмиер) и записать это в файл.
Говорю "должно", потому что написано навскидку. К примеру, вместо цикла можно использовать функцию POS.

SomeOne [2006-02-04 17:27:00]    [2]
рг


ПОДПИСАТЬСЯ НА ТЕМУ

E-mail
7+8?



приветя улыбаюсьхадаподмигиваюя тащусьмое почтениесчастливоцелуюбухаемужас
не понялплачуфупечальзлойстесняюсьсогласеннетгыкурю
суперязыкмузонпыворыдаю


Ваше имя: 
     Осталось: 

 

Допускается форматирование текста:
[•B]полужирный[B•] [•I]наклонный[I•] [•U]подчеркнутый[U•] [•‹]URL картинки[›•].
Для кода программ используйте [•¤] код программы [¤•]
Количество открывающих и закрывающих тэгов форматирования текста должно быть равным, иначе форматирование не осуществится.


Adelavida Link       Рейтинг@Mail.ru