Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 01.06.2015
Сообщений: 23
1

Парсер

28.06.2015, 19:57. Просмотров 507. Ответов 5
Метки нет (Все метки)

Здравствуйте! Хочу сделать для себя программу-парсер раздач на трекер.
Двумя полями и одной кнопочкой. В первое поле пишем исходные данные, например:
Код
Год: 2015
Страна: Россия
Далее нажимаем кнопочку и исходный текст преобразуется в текст с нужным кодом во втором поле, вот так:
Код
[b]Год:[/b] [color=green]2015[/color]
[b]Страна:[/b] [color=blue]Россия[/color]
Чтобы по завершении операции можно было просто скопировать полученный текст и вставить на сайте.


Знающие люди, подскажите пожалуйста как такое можно сделать.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.06.2015, 19:57
Ответы с готовыми решениями:

Парсер
Между этими тэгами есть текст как его прописать в memo1? <p...

Парсер
Привет всем Как можно спарсить инвентари игр (либо игры) со страницы вида...

Парсер
Помогите пожалуйста спарсить. Есть вот такой текст в мемо "- Яниночка 35535396 -3 hb/65_ 0 -77 33 0...

Парсер
У меня такая проблема решил спарсить id пользователей но у меня такая проблема вот отчет от...

5
Модератор
61667 / 46164 / 31854
Регистрация: 18.05.2008
Сообщений: 111,325
28.06.2015, 20:18 2
Ну для данного конкретного случая можно так.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Button1Click(Sender: TObject);
var s1,s2:string;
begin
s1:='Год: 2015';
s2:='Страна: Россия';
with Memo1 do
 begin
  lines.Add(s1);
  lines.Add(s2);
 end;
insert('[/b] [color=green]',s1,5);
s1:='[b]'+s1+'[/b][/color][b]';
insert('[/b] [color=blue]',s2,7);
s2:=s2+'[/color]';
with Memo2 do
 begin
  lines.Add(s1);
  lines.Add(s2);
 end;
end;
А вообще нужно знать что может вводиться в 1 поле.
0
0 / 0 / 0
Регистрация: 01.06.2015
Сообщений: 23
28.06.2015, 21:15  [ТС] 3
Цитата Сообщение от Puporev
А вообще нужно знать что может вводиться в 1 поле.
Ну тогда, согласитесь, в данном софте и смысл теряется.
Через Memo кракозябли получаются. Рвёт текст как хочет.

Код
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: string;
begin
  a:=Edit1.text;
  Edit1.text:='[b]Страна:[/b] '+a;
  b:=Edit2.text;
  Edit2.text:='[b]Год выпуска:[/b] '+b;
  c:=Edit3.text;
  Edit3.text:='[b]Жанр:[/b] '+c;
end;
end.
А как, после заполнения эдитов, полученную инфо вывести в txt файле?
0
Модератор
61667 / 46164 / 31854
Регистрация: 18.05.2008
Сообщений: 111,325
28.06.2015, 21:18 4
Цитата Сообщение от TiGeR_333 Посмотреть сообщение
А как, после заполнения эдитов, полученную инфо вывести в txt файле?
Да напиши сразу в файл и не пудри мозг.
0
0 / 0 / 0
Регистрация: 01.06.2015
Сообщений: 23
28.06.2015, 21:26  [ТС] 5
Я хочу всё это сделать для себя, чтобы каждый раз не тыкаться с bb-кодами, там же не только
Код
[b]...[/b]
Для упрощения всё это и создаётся.

Ладно. И на том спасибо.
0
0 / 0 / 1
Регистрация: 27.06.2015
Сообщений: 6
30.06.2015, 17:03 6
Чтобы не было крякозяблов в Memo я делаю так:

Delphi
1
2
3
a1:=TStringStream.Create(temp1);
myhttp.Get(URL, a1);
text:=a1.DataString;
Потом text кидаю в Мemo, ну а там хоть редактируй, хоть сохраняй, кириллица отображается нормально.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.06.2015, 17:03

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

парсер
пытался переделать исходники парсера из delphi xe3 в delphi 7, выдает ошибку:

Парсер(наброски)
Доброго времени суток, помогите мне написать парсер с регулярной формулой r.Expression...

Delphi парсер
Помогите найти ошибку в коде и дописать его. Необходимо что бы из исходного кода который...

Парсер текста
Здравствуйте Уважаемы кодеры помогите решить задачку так как сам с ней не в состоянии справится:(...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.