Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.12.2010, 01:59   #1
arxidevill
Пользователь
 
Регистрация: 11.05.2010
Сообщений: 11
По умолчанию Работа с "Pos"

в общем есть один файл разрешением .txt
я с него скачиваю информацию мне нужную, при этом работает х5, но не работает х20
пример:

procedure CreateAsSting(name: string); //Открытие .txt
var
m_list : TStringList;
begin
m_list := TstringList.Create;
m_list.LoadFromFile(name);
st := m_list.Text;
m_list.Free;
end;

---------------------------------------------------------
a:integer;
st,w:string;
---------------------------------------------------------
кнопка х5

CreateAsSting('server-info.txt');
a:=pos('<div class="info">WoW Circle 3.3.5a x5<br>', st);
work:=copy(st, a-66, 3); //Работает ли сервер
Тут пос работает нормально..и выводит мне on

кнопка х30

CreateAsSting('server-info.txt');
a:=pos('<div class="info">WoW Circle 3.3.5a x30<br>', st);
work:=copy(st, a-66, 3); //Работает ли сервер
в a - не записывает координаты ,получаеться нулевым символом...

.txt код где должен брать:
<div class=" ahx-on showt" title="">
<div class="online">2372</div>
<div class="info">WoW Circle 3.3.5a x5<br><br><br><font color=green><b>Рекомендуется</b></font></div>
</div>

<div class=" ahx-on showt" title="">
<div class="online">469</div>
<div class="info">WoW Circle 3.3.5а x30<br><br><br><font color=green><b>Рекомендуется</b></font></div>
</div>
arxidevill вне форума Ответить с цитированием
Старый 18.12.2010, 08:35   #2
Johnson
кривокодер ;)
Форумчанин
 
Аватар для Johnson
 
Регистрация: 20.06.2008
Сообщений: 707
По умолчанию

POS учитывает регистр символов... пробуйте либо использовать lowercase(), либо согратить поиск к примеру до "x5<br>" и "x30<br>"
"А как написать праграму?, "ришыти задачьку очинь нада" ©с форума. Жить становится интереснее, жить становится веселее...
{Быть или не быть} {Неуспешный суицид}
Johnson вне форума Ответить с цитированием
Старый 18.12.2010, 11:07   #3
arxidevill
Пользователь
 
Регистрация: 11.05.2010
Сообщений: 11
По умолчанию

Цитата:
Сообщение от Johnson Посмотреть сообщение
POS учитывает регистр символов... пробуйте либо использовать lowercase(), либо согратить поиск к примеру до "x5<br>" и "x30<br>"
СПс с сокрощением помогло "x30<br>" , терь интересно почему работает х5)...а х30 забивает
arxidevill вне форума Ответить с цитированием
Старый 18.12.2010, 11:12   #4
Johnson
кривокодер ;)
Форумчанин
 
Аватар для Johnson
 
Регистрация: 20.06.2008
Сообщений: 707
По умолчанию

Pos ищет с начала строки. Возможно, поэтому... конкретно опиши как ты ищешь и что не получается.
"А как написать праграму?, "ришыти задачьку очинь нада" ©с форума. Жить становится интереснее, жить становится веселее...
{Быть или не быть} {Неуспешный суицид}
Johnson вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как обойти "преобразование типа из "string" в "float" невозможно" lexluter1988 Помощь студентам 1 07.08.2010 12:23
"ОКРВВЕРХ", "ОКР", "ЕСЛИ". Как бы их связать. Каравай Microsoft Office Excel 13 17.02.2010 09:53
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" aleksei78 Microsoft Office Excel 13 25.08.2009 12:04
блок "cont" с права не принимает значение "margin: 10px;" которое описано в body tabikA HTML и CSS 5 24.02.2009 21:50