Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проверить вхождение любой строки из списка в текст 
:(
    Опции темы
muratboy31
  Дата 13.1.2010, 14:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
Я хочу кодом, добавив слово я хочу научиться, но мне интересно, как я могу использовать текст или INI-файл или БД делать! от одного из этих файлов будет привлекать Yane слов!

Код

var
i,j:Integer;
aranan:AnsiString;
begin
aranan:=ComboBox1.Text;
Form2.Text:=aranan;
i:=Pos('Admin',aranan);
j:=Pos('Member',aranan);
if (i<>0)or(j<>0) Then
begin
ShowMessage(No View !!!');
WebBrowser1.GoHome;
ComboBox1.Text:='about:blank';
exit;
end;


Это сообщение отредактировал(а) muratboy31 - 13.1.2010, 14:18
PM MAIL   Вверх
bems
Дата 13.1.2010, 18:03 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88
Еще раз и помедленней.


--------------------
Обижено школьников: 8
PM MAIL   Вверх
profesiachuvak
Дата 13.1.2010, 18:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 283
Регистрация: 7.11.2009
Где: Беларусь, Минск

Репутация: 1
Всего: 4
Цитата(muratboy31 @  13.1.2010,  14:18 Найти цитируемый пост)
Я хочу кодом, добавив слово я хочу научиться, но мне интересно, как я могу использовать текст или INI-файл или БД делать! от одного из этих файлов будет привлекать Yane слов!


Это Вы англо-русским переводчиком пользовались? Where are you from? smile 


--------------------
Закон Мерфи :если есть вероятность того, что какая-нибудь неприятность может случиться, то она обязательно произойдет.
PM MAIL   Вверх
muratboy31
  Дата 13.1.2010, 19:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
Sorry for my bad Russian...
I am from Turkey
 smile

what I wanted to ask was;

with the code below I can block words I want but I have more words to block and I want to know how can I load more words from a file ???

 
Код

var
i,j:Integer;
aranan:AnsiString;
begin
aranan:=ComboBox1.Text;
Form2.Text:=aranan;
i:=Pos('Admin',aranan);
j:=Pos('Member',aranan);
if (i<>0)or(j<>0) Then
begin
ShowMessage(No View !!!');
WebBrowser1.GoHome;
ComboBox1.Text:='about:blank';
exit;
end;


Это сообщение отредактировал(а) muratboy31 - 13.1.2010, 19:39
PM MAIL   Вверх
RomanEEP
Дата 13.1.2010, 20:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 424
Регистрация: 18.5.2006
Где: Коломна

Репутация: 1
Всего: 8
Код

var
  i, j: Integer;
  aranan: AnsiString;
  BlockedUsers: TStringList;
begin
  aranan:=ComboBox1.Text;
  Form2.Text:=aranan;
  BlockedUsers := TStringList.Create;
  try
    BlockedUsers.LoadFromFile('users.txt');
    if BlockedUsers.IndexOf(aranan) <> -1 then
    begin
      ShowMessage(No View !!!');
      WebBrowser1.GoHome;
      ComboBox1.Text:='about:blank';
     exit;
  end;
  finally
    BlockedUsers.Free;
  end;

users.txt is an ordinary text file where each line is the blocked word


--------------------
Электронные экзамены
PM MAIL   Вверх
Данкинг
Дата 13.1.2010, 20:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
You've to create and use TStringList:
Код

var
rrr:TStringList;
begin
rrr.create;
rrr.loadfromfile('spisok.txt');
....
rrr.free;
end;

('spisok.txt' is the file you keep your "banned" words in)
 smile 



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
profesiachuvak
Дата 13.1.2010, 20:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 283
Регистрация: 7.11.2009
Где: Беларусь, Минск

Репутация: 1
Всего: 4
Load from INI file :

Код

var IniFile: TIniFile; 
begin 
IniFile := TIniFile.Create('Notebook.ini');
s:=IniFile.ReadString('MainOptions', 'Base', '');


INI file must contain "Base ...anything here...''.


--------------------
Закон Мерфи :если есть вероятность того, что какая-нибудь неприятность может случиться, то она обязательно произойдет.
PM MAIL   Вверх
muratboy31
Дата 13.1.2010, 20:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
thanks for helps but there is a problem !!! lets say i have xxx in users.txt file, if i type www.xxx.com to  combobox1 then it doesnt block it... it only blocks if i type xxx... but i want it to block anything with xxx for example: www.xxx.com, xxx.com, http://xxx.com, http://www.xxx.com     like wildcard        thanks in advance

Код

procedure TForm2.WebBrowser1DownloadBegin(Sender: TObject);
var
aranan:AnsiString;
BlockedUsers: TStringList;
begin
aranan:=ComboBox1.Text;
Form2.Text:=aranan;
BlockedUsers := TStringList.Create;
  try
    BlockedUsers.LoadFromFile('users.txt');
    if BlockedUsers.IndexOf(aranan) <> -1 then
    begin
      if RadioButton2.Checked Then
      begin
      ShowMessage('No View');
      WebBrowser1.GoHome;
      ComboBox1.Text:='http://www.google.com';
      exit;
      end;
    end;
finally
    BlockedUsers.Free;
end;
end;
PM MAIL   Вверх
artsb
Дата 13.1.2010, 21:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
Цитата(muratboy31 @  13.1.2010,  20:32 Найти цитируемый пост)
but i want it to block anything with xxx for example: www.xxx.com, xxx.com, http://xxx.com, http://www.xxx.com  

Код

as: AnsiString;
// insert string into as
// ...
if as.Pos('xxx') then
begin
 // some operations
end



--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 13.1.2010, 21:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
it didnt work like that !!!  smile 

Код

procedure TForm2.WebBrowser1DownloadBegin(Sender: TObject);
var
aranan:AnsiString;
BlockedUsers: TStringList;
begin
aranan:=ComboBox1.Text;
Form2.Text:=aranan;
BlockedUsers := TStringList.Create;
  try
    BlockedUsers.LoadFromFile('users.txt');
    if aranan.pos(BlockedUsers.IndexOf) then
    begin
      if RadioButton2.Checked Then
      begin
      ShowMessage('No View');
      WebBrowser1.GoHome;
      ComboBox1.Text:='http://www.google.com';
      exit;
      end;
    end;
finally
    BlockedUsers.Free;
end;
end;


Это сообщение отредактировал(а) muratboy31 - 13.1.2010, 21:21
PM MAIL   Вверх
Демо
Дата 13.1.2010, 21:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 7
Всего: 50
Цитата(muratboy31 @  13.1.2010,  21:16 Найти цитируемый пост)
it didnt work like that !!! 


Код

BlockedUsers := TStringList.Create;
BlockedUsers.Sorted := True;



--------------------
    
PM MAIL ICQ Skype   Вверх
muratboy31
Дата 13.1.2010, 21:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
no no it gives error here ;

 
Код

if aranan.pos(BlockedUsers.IndexOf) then


Код

procedure TForm2.WebBrowser1DownloadBegin(Sender: TObject);
var
aranan:AnsiString;
BlockedUsers: TStringList;
begin
aranan:=ComboBox1.Text;
Form2.Text:=aranan;
BlockedUsers := TStringList.Create;
  try
    BlockedUsers.LoadFromFile('users.txt');
  if aranan.pos(BlockedUsers.IndexOf) then
    begin
      if RadioButton2.Checked Then
      begin
      ShowMessage('No View');
      WebBrowser1.GoHome;
      ComboBox1.Text:='http://www.google.com';
      exit;
      end;
    end;
finally
    BlockedUsers.Free;
end;
end;



Это сообщение отредактировал(а) muratboy31 - 13.1.2010, 21:34
PM MAIL   Вверх
Демо
Дата 13.1.2010, 21:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 7
Всего: 50
Цитата(muratboy31 @  13.1.2010,  21:31 Найти цитируемый пост)
 if aranan.pos(BlockedUsers.IndexOf) then



Compare your code and 
RomanEEP - 

Код

if BlockedUsers.IndexOf(aranan) <> -1 then






--------------------
    
PM MAIL ICQ Skype   Вверх
muratboy31
Дата 13.1.2010, 21:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
i used this code 
Код

if BlockedUsers.IndexOf(aranan) <> -1 then  
but if i have xxx in users.txt file and if i type www.xxx.com to  combobox1 then it doesnt block it... it only blocks if i type xxx... but i want it to block anything with xxx for example: www.xxx.com, xxx.com, http://xxx.com, http://www.xxx.com            thats why i was looking for a help with wildcards        




Это сообщение отредактировал(а) muratboy31 - 13.1.2010, 21:41
PM MAIL   Вверх
Демо
Дата 13.1.2010, 21:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 7
Всего: 50
Код

var
  aranan:AnsiString;
  BlockedUsers: TStringList;
  i: Integer;
begin
  aranan:=ComboBox1.Text;
  Form2.Text:=aranan;
  BlockedUsers := TStringList.Create;
  try
    BlockedUsers.LoadFromFile('users.txt');
    for i := 0 to BlockedUsers.Count-1 do
    begin
      if (Pos(BlockedUsers[i],aranan)>0) and (RadioButton2.Checked) then
      begin
        ShowMessage('No View');
        WebBrowser1.GoHome;
        ComboBox1.Text:='http://www.google.com';
        exit;
      end;
    end;
  finally
    BlockedUsers.Free;
  end;
end;




--------------------
    
PM MAIL ICQ Skype   Вверх
Страницы: (3) Все [1] 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1181 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.