Скачать: CL | DM;

Распознование ссылок в тексте   Найти похожие ветки 

← →
vidiv ©   (2005-09-18 11:31) [0]

Есть текст, надо найти в нем ссылки и выдилить соответственно! Главное - надо делать очень быстро на большом тексте (100кб)!
У когонибудь есть стоющие предложения как это сделать? Желательно без регулярных выражений. (Нормальную реализацию последних я еще не видел для дельфи)

---

← →
Илья Бобров   (2005-09-18 11:56) [1]

Используй  JVCL300CompleteJCL195-Build1848 набор компонентов, там есть RishEdit с автоматическим выделением ссылок и возможностью перехода по ним.

---

← →
vidiv ©   (2005-09-18 12:40) [2]

> Илья Бобров   (18.09.05 11:56) [1]

Это немного не то, как я понимаю! Мое приложение не имеет ни форм ни визуальных окон. Требуется просто обработка текста.

---

← →
Anatoly Podgoretsky ©   (2005-09-18 13:55) [3]

Это простой POS по шаблону и смещением начала текста

---

← →
vertal ©   (2005-09-18 21:44) [4]

Можно например так

var
 SrcText, SrcHyperlink: Pchar;
 HyperlinkChars: set of char = ["A".."Z","a".."z",".","/",что там еще];
 DelimiterChars:  set of char = [все, что отделяет гиперссылки от окружающего их текста];
begin
0. SrcText := SourceText;
1. while SrcText^ in DelimiterChars do Inc(SrcText);
2. Если SrcText = #0, то GOTO 10
4. SrcHyperlink := SrcText
5. while not (SrcText in [DelimiterChars, ":",".","/",#0]) do Inc(SrcText);
6. Если ((SrcText^ = ".") или (SrcText^ = ":") и ((SrcText + 1)^ = "/") и ((SrcText + 2)^ = "/")) и при этом SrcHyperlink указывает на префикс начала гиперссылки, то найдена гиперссылка, иначе GOTO 9
7. while (SrcText^ in HyperlinkChars) do Inc(SrcText));
8. Найдена ссылка SrcHyperlink, ее длина равна SrcText - SrcHyperlink: обработать ее
9. GOTO 1
10. Конец
end

В пункте 6. определять, указывает ли SrcHyperlink на префикс начала гиперссылки, можно через
SetString(HyperlinkPrefix, SrcHyperlink, SrcText - SrcHyperlink);
ValidPrefixes.IndexOf(HyperlinkPrefix) <> -1, где в ValidPrefixes типа THashedStringList загружены все допустимые префиксы.

---

← →
vidiv ©   (2005-09-19 06:51) [5]

> vertal ©   (18.09.05 21:44) [4]

Логику понял... Надо будет подумать....


> Anatoly Podgoretsky ©   (18.09.05 13:55) [3]
> Это простой POS по шаблону и смещением начала текста

Pos по шаблону, это как?

---

← →
Anatoly Podgoretsky ©   (2005-09-19 11:10) [6]

Это значит (Template, src)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c