|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
16.10.2008, 00:09 | #1 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 225
|
територия мемо и хтмл.а живущего в нём
извините меня пожалуйста я поиском ползоваться умею нашёл но так и ничего не понял скоко перечитывал сам поражаюсь отдыхать уже пора наверное .Вот что мне надо я достаю хтмл и записую в мемо потом убираю низ и верх остаёться таблица (но на хтмле) что надо написать чтобы найти текст между "<b>"81.45 и "</b>" скопировать его и вставить к примеру в бд (вставить я сумею)потом продолжить ещё такую строчку искать и тоже копирывать и тоже в ставить в бд и т.д. обьясните подробно или дайте код (лучше ко и обьяснение))))
|
16.10.2008, 00:41 | #2 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 225
|
где-то нашёл исходник там ищется от пробела до @ и до проблела а мне надо от <b> до </b> и тто что внутри скопировать
Последний раз редактировалось IvaniuS; 16.10.2008 в 19:54. |
16.10.2008, 13:02 | #3 |
Форумчанин
Регистрация: 06.06.2007
Сообщений: 282
|
Вот как вариант (но тут оба тега должны быть в одной строке):
Код:
Код:
Не важно, как часто вы падаете. Важно, как часто вы поднимаетесь. Винс Ломбарди.
|
16.10.2008, 17:52 | #4 |
Регистрация: 02.10.2008
Сообщений: 7
|
Можно сделать так:
var i, j: integer; tag_table: OleVariant; begin tag_table := WebBrowser1.OleObject.Document.all. tags('b).item(0); for i := 0 to (tag_table.Rows.Length - 1) do begin for j := 0 to (tag_table.Rows.Item(i).Cells.Lengt h - 1) do begin Memo1.Lines.Add(tag_table.Rows.Item (i).Cells.Item(j).InnerText); end; end; |
16.10.2008, 19:38 | #5 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 225
|
спасибо как проверю забам вопросы я понемаю если у меня несколько мемо то можно поставить цикл и задать условие как
if (s <> 0) and (e <> 0) and (I < 7)then begin i:=i+1; if i=1 then begin ListBox1.Items.Add(copy(Memo1.Lines .Strings[i], s + length(Since), e - s - length(Till) - 1)); end; if i=2 then begin ListBox2.Items.Add(copy(Memo1.Lines .Strings[i], s + length(Since), e - s - length(Till) - 1)); end; s := 0; e := 0; end else i:=i-6; и т.д. терь ещё 1 вопрос как все что в листбоксе, все столбци скопировать или експортировать в фаил??? (лучше скопировать пусть даже в буфер просто потом в екслеь вставлять я то потом додумаю главное как все скопить или по 1???) |
16.10.2008, 22:34 | #6 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 225
|
VVM а можно отвязать её от регистра а то у меня иногда вот так </B> или авто замену придумать?
Последний раз редактировалось IvaniuS; 17.10.2008 в 00:52. |
17.10.2008, 00:52 | #7 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 225
|
да и и у мня числа некоторые между б и \б с точками то что после точки он не видит(
|
17.10.2008, 09:28 | #8 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Проще поищите по ключевым словам парсеры html в гугле
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
17.10.2008, 12:13 | #9 | ||||
Форумчанин
Регистрация: 06.06.2007
Сообщений: 282
|
Цитата:
Цитата:
Код:
Цитата:
Код:
Цитата:
Не важно, как часто вы падаете. Важно, как часто вы поднимаетесь. Винс Ломбарди.
Последний раз редактировалось VVM; 17.10.2008 в 12:16. |
||||
18.10.2008, 02:37 | #10 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 225
|
слушай спасибо разобрался в коде почти, всё норм уже немного переделал, короче так: у меня всеравно после последней точки между б и \б нету чисел та и букав ну например : это в коде "<b>76.85</B>" а это он выдаёт и в мемо и в лист боксе : "76." я работаю с числами и точность нужна может всётаки есть решение я уже пробую щас от б до точки и до \б вот так ну посмотрим отпишусь потом
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создать текстовой файл и подсчитать количество символов в нём. | GN_ | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 26.05.2010 19:45 |
Строки в Мемо | anymol | Помощь студентам | 5 | 03.10.2008 20:44 |
StpServer (or TopServer) не могу на нём запустить скрипт | _kT | PHP | 1 | 12.07.2008 01:32 |
мемо | ben95 | Общие вопросы Delphi | 1 | 29.01.2008 10:10 |