Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 29.06.2012, 18:13
Ardinvest Ardinvest вне форума
Прохожий
 
Регистрация: 29.06.2012
Сообщения: 1
Репутация: 10
По умолчанию Работа с .txt

Имеется txt файл.
Его содержимое:
Код:
300384	29.06.2012 13:58:59	176.52.56.9	        cfkfdfn96	1
300357	29.06.2012 13:55:33	37.52.34.151	lulcak1995	1
300273	29.06.2012 13:47:29	46.72.4.115	        dgenifer	1
300224	29.06.2012 13:41:41	83.149.21.106	andrej3005	1
300152	29.06.2012 13:31:29	31.181.236.215	nirs326	1
300120	29.06.2012 13:27:43	95.52.39.217	lokomat82	1
300096	29.06.2012 13:24:59	46.138.179.188	Moytwin01	1
300086	29.06.2012 13:23:53	77.40.103.125	zhirovmax	1
300016	29.06.2012 13:18:27	188.162.8.0	        dion	1
300015	29.06.2012 13:18:24	178.45.155.4	dima13reg	1
299978	29.06.2012 13:14:45	95.32.184.107	vfhufhbnf	1
299973	29.06.2012 13:14:27	176.52.17.54	roll555	1
299956	29.06.2012 13:12:43	195.58.246.42	Undervot	1
299918	29.06.2012 13:08:52	46.200.200.106	portya97	1
299878	29.06.2012 13:05:59	46.63.192.248	roman26	1
299836	29.06.2012 13:03:06	2.92.102.117	explor	1
299829	29.06.2012 13:02:37	77.37.225.164	fedak2	1
299807	29.06.2012 13:00:18	178.206.26.169	bampir1402	1
299754	29.06.2012 12:54:51	178.49.49.217	slik1996	1
299747	29.06.2012 12:54:05	94.77.163.213	monf009	1
299713	29.06.2012 12:50:56	81.198.37.42	masjkaaa	1
Задача:Удалить всё до слова(string).Например до cfkfdfn96.Подскажите способ это реализовать.В гугле рыл,толком ничего не нашёл.Заранее спасибо!
Ответить с цитированием
  #2  
Старый 29.06.2012, 18:41
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

регулярные выражения
Ответить с цитированием
  #3  
Старый 29.06.2012, 21:59
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

-bash-3.00$ cat file.txt | awk '{ print $5 " " $6 }'
Ответить с цитированием
  #4  
Старый 30.06.2012, 20:05
PS11011010 PS11011010 вне форума
Новичок
 
Регистрация: 30.03.2012
Сообщения: 98
Репутация: 282
По умолчанию

Вот такая вот попытка...
Код:
mas: array [0..13] of char = ('0','1','2','3','4','5','6','7','8','9','.',':',' ');
ListBox1.Items.LoadFromFile('.txt');
For i:=0 to ListBox1.Count-1 do
Begin
 s:=ListBox1.Items[i];
 While s[1] in mas delete(s, 1, 1); //вот тут удаляем все служебные символы
 ListBox1.Items[i]:=s;
End;
Ответить с цитированием
  #5  
Старый 30.06.2012, 21:21
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Используя PosEx, ищешь нужный по счёту пробел (вроде 4), далее Copy, Trim. Voila. И никаких регулярных выражений, которые так любят некоторые (без попыток обидеть).
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #6  
Старый 01.07.2012, 18:18
Аватар для @Rafa3L
@Rafa3L @Rafa3L вне форума
Начинающий
 
Регистрация: 09.11.2011
Адрес: Москва
Сообщения: 144
Версия Delphi: XE2
Репутация: 11216
По умолчанию

Цитата:
Сообщение от Ardinvest
Имеется txt файл.
Его содержимое:
Код:
300384	29.06.2012 13:58:59	176.52.56.9	        cfkfdfn96	1
300357	29.06.2012 13:55:33	37.52.34.151	lulcak1995	1
300273	29.06.2012 13:47:29	46.72.4.115	        dgenifer	1
300224	29.06.2012 13:41:41	83.149.21.106	andrej3005	1
300152	29.06.2012 13:31:29	31.181.236.215	nirs326	1
300120	29.06.2012 13:27:43	95.52.39.217	lokomat82	1
300096	29.06.2012 13:24:59	46.138.179.188	Moytwin01	1
300086	29.06.2012 13:23:53	77.40.103.125	zhirovmax	1
300016	29.06.2012 13:18:27	188.162.8.0	        dion	1
300015	29.06.2012 13:18:24	178.45.155.4	dima13reg	1
299978	29.06.2012 13:14:45	95.32.184.107	vfhufhbnf	1
299973	29.06.2012 13:14:27	176.52.17.54	roll555	1
299956	29.06.2012 13:12:43	195.58.246.42	Undervot	1
299918	29.06.2012 13:08:52	46.200.200.106	portya97	1
299878	29.06.2012 13:05:59	46.63.192.248	roman26	1
299836	29.06.2012 13:03:06	2.92.102.117	explor	1
299829	29.06.2012 13:02:37	77.37.225.164	fedak2	1
299807	29.06.2012 13:00:18	178.206.26.169	bampir1402	1
299754	29.06.2012 12:54:51	178.49.49.217	slik1996	1
299747	29.06.2012 12:54:05	94.77.163.213	monf009	1
299713	29.06.2012 12:50:56	81.198.37.42	masjkaaa	1
Задача:Удалить всё до слова(string).Например до cfkfdfn96.Подскажите способ это реализовать.В гугле рыл,толком ничего не нашёл.Заранее спасибо!
Хм...
IP разных городов, ники тоже не связаны.

Список игроков онлайн-игры?

Хм... чет по ним много инфы в сети. Переходы на сайты...
Наследили они

например
Код:
PLAYER BANNED
Detail info http://redacid.org.ua/bans/ban_details.php?bid=5109
Server: Redacid.org.ua - .:DM FFA:.
IP: 195.58.246.42
Nick: [^~*glow*~^]
Reason: WH
Date: 2009-03-10 18:50:46
Time: 0
Admin: h2m.ShaRhaN

Код:
http://www.stopforumspam.com/ipcheck/83.149.21.106 
83.149.21.106 appears in our database

Код:
Статистика игрока :: del
 del занимает в статистике ранг #6889 из 13,679
IP адреса игрока
использовано
31.181.22.17
31.181.236.215

Код:
AMXBans - Список банов
IP адрес, 77.40.103.125. Добавлен, 26-02-2012 - 21:35. Время бана, 10080 минут. Истекает, 04-03-2012 - 21:35 (6 дней 3 часа/ов 51 минут осталось) ...
ul.j-zone.ru/cs/amxbans/ban_list.php?...


Итог - список игроков в Counter-Strike?


Вывод - люди добрые - не светите своими IP что зря.
__________________
Помогаю платно.
Помогаю иногда бесплатно.

Последний раз редактировалось @Rafa3L, 01.07.2012 в 18:42.
Ответить с цитированием
Этот пользователь сказал Спасибо @Rafa3L за это полезное сообщение:
Pyro (01.07.2012)
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:59.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025