Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как разбить строку по разделителю ""

Страницы: 1 2 >
WebSqlNeederr © (2006-05-22 12:52:00)
например есть строка, как мне из нее сделать массив, элементами которого был бы текст из строки, который разделяется в ней пробелом?

Понимаю что это глупый вопрос, но вот что заступорился :)

Сергей М. (2006-05-23 09:56:00) [1]

> Ни у кого нет никаких идей?

Идея тут одна - не допускай дублирования строк в стринглисте, тогда и проверять ничего не нужно будет.

см. св-во TStringList.Duplicates

WebSqlNeederr (2006-05-23 09:50:00) [2]
Удалено модератором
Примечание: Создание пустых сообщений

WebSqlNeederr (2006-05-23 02:04:00) [3]
Удалено модератором
Примечание: Создание пустых сообщений

WebSqlNeederr (2006-05-22 18:48:00) [4]
Удалено модератором
Примечание: Создание пустых сообщений

WebSqlNeederr (2006-05-22 18:11:00) [5]
Удалено модератором
Примечание: Создание пустых сообщений

WebSqlNeederr (2006-05-22 16:14:00) [6]
Удалено модератором
Примечание: Создание пустых сообщений

Ega23 (2006-05-22 16:07:00) [7]
Эка ты фонтанируешь!

WebSqlNeederr (2006-05-22 15:39:00) [8]
А как мне проверить сколько совпадений есть в списке доменов в моем Стринглисте? Я вот составил код, но он что то коряво работает :(

procedure TForm1.Button3Click(Sender: TObject);
var i,j:integer;
begin
for i:=0 to urls2.Count-1 do
begin
for j:=0 to i-1 do
begin
if urls2.Strings[j]=urls2.Strings[i] then
begin
urls2.Strings[i]:=urls2.Strings[i]+' +1 совпадение';
//urls2.Delete(i);
break;
end;
end;
end;
memo2.Text:=urls2.Text;
end;

В urls2 хранятся сами домены.

Сергей М. (2006-05-22 14:31:00) [9]
sl.Delimiter := '\';

sl[2]

WebSqlNeederr (2006-05-22 14:30:00) [10]
..

WebSqlNeederr (2006-05-22 14:00:00) [11]
А еще может кто то уже такое делал - как из урла оставить только домен? например http://ref.a.org.ua/?id=217472 оставить только http://ref.a.org.ua??

Хочу узнать сколько совпадений по доменам у меня в статистике есть ...

WebSqlNeederr (2006-05-22 13:55:00) [12]
Плохиш, спасибо. Действительно WordWrap в FALSE нужно было ...

Плохиш (2006-05-22 13:39:00) [13]
У Memo1 надо установить свойство WordWrap в FALSE.

Сергей М. (2006-05-22 13:38:00) [14]
URL не может содержать пробелы.

WebSqlNeederr (2006-05-22 13:33:00) [15]
Ошибка List index out of bounds (2)

WebSqlNeederr (2006-05-22 13:31:00) [16]
А как быть с переносами на новую строку? В общем у меня есть статистика помещения моего сайта, она составлена в таком вот формате, пример

2006-05-19 09:51:28 http://www.menshealth.kiev.ua/q.php22739 0 73.96.199.82
2006-05-19 09:44:33 http://www.ofoto.com.ua/ru/32569 0 230.128.153.194
2006-05-19 08:53:47 http://ref.a.org.ua/?id=21747225218 0 118.41.40.212

Когда я пытаюсь во второе мемо вывести только урлы то получается сделать для всех кроме тех у кого длинный урл и он переновится на новую строку, пример моего кода:

procedure TForm1.Button2Click(Sender: TObject);
var sl: TStringList; i,j:integer;
begin
for j:=0 to memo1.Lines.Count-1 do
begin
sl:=TStringList.Create;
sl.Delimiter := ' ';
sl.DelimitedText := memo1.Lines.Strings[j];
Memo2.Lines.Add(sl[2]);
sl.Destroy;
end;
end;

В мемо1 я закидываю ту общую статистику и вот обрывается вывод когда строка например :

http://infostore.org/search?s=%D0%A0%D1%96%D1%88%D0%B5%D0%BD%D0%BD%D1%8F+%D0%9A%D0%B8%D1%97%D0%B2%D1%80%D0%B0%D0%B4%D0%B8+%E2%84%96+164%2F885+%D0%B2%D1%96%D0%B4+08.06.2000+%D1%80.&type=0&flag_files=123379 0 50.251.64.195

WebSqlNeederr (2006-05-22 13:20:00) [17]
Протупил :) Спасибо за помощь!

Fay (2006-05-22 13:19:00) [18]
LOL

MBo (2006-05-22 13:17:00) [19]
sl создал?

Сергей М. (2006-05-22 13:17:00) [20]

> Ошибка на сколько я понял здесь

Интересен ход твоих мыслей при этом умозаключении ..

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »