My Visual Database — [Script] Regular expression

Re: [Script] Regular expression

null@example.com (DriveSoft) — Mon, 30 Jan 2017 13:30:13 +0000

RZ-007
Попробуйте вместо этого

Form1.Memo1.Lines.Add(RegExp.Match[i]);

сделать так

if RegExp.Match[i]<>'' then Form1.Memo1.Lines.Add(RegExp.Match[i]);

т.к. метод Form1.Memo1.Lines.Add добавляет строку, даже если нет текста для добавления.

Re: [Script] Regular expression

null@example.com (RZ-007) — Sun, 29 Jan 2017 19:36:49 +0000

Доброго времени суток Дмитрий!!!
При использования Regular expression имею:

++++++++++++++++++++++++++++++++++
Form1.Memo1.Lines.Add(RegExp.Match[i]);
========== 2 часть =================
         T :=Form1.Memo1.Text;
          if T <>''  then   // если данные есть   
          Telefon:= (T)    else Telefon :='НЕТ';
          Form1.Memo2.Text := Telefon;

Когда в Form1.Memo1 попадает реально <<число или текст аль символы >> , то вторая часть скрипта работает!!!
...НО когда благодаря Regular expression возвращае в Form1.Memo1 ничего из <<числа или текста аль символов >>...
то в МЕМО мы не чего не видим...получается в нём НЕТ значений...
(но если поставить курсор от мыши, то он будет находиться как бы на второй сточки в МЕМО,
хя значений в нём НЕТ!!!)...и тогда вторая часть НЕ РАБОТАЕТ!!!
Дмитрий подскажите как это можно вылечить???(может как то сделать проверку в переменной "T" на предмет
пустые строки...или есть ли числа или символы???)

Re: [Script] Regular expression

null@example.com (RZ-007) — Thu, 12 Jan 2017 12:46:37 +0000

Огромное СПАСИБО!!!

Re: [Script] Regular expression

null@example.com (DriveSoft) — Thu, 12 Jan 2017 12:36:56 +0000

К сожалению я близко не знаком с регулярными выражениями, попробуйте так

http:\/\/(.*?)[<>]

протестировать ваше регулярное выражение можно здесь
http://www.rubular.com/

также рекомендую прочитать введение в регулярные выражения
https://habrahabr.ru/post/115825/
http://www.codenet.ru/webmast/php/regexps.php

Re: [Script] Regular expression

null@example.com (RZ-007) — Wed, 11 Jan 2017 17:26:39 +0000

Дмитрий прошу прощения...немножко на путал...
kjhkgjhuy....http:// привет 1<...kjhkgjhuy....http:// привет 2>...kjhkgjhuy
kjhkgjhuy....http:// привет 3>...kjhkgjhuy....http:// привет 4<...kjhkgjhuy

RegExp := TRegExp.Create('http://(.*?)



Re: [Script] Regular expression
null@example.com (DriveSoft) — Wed, 11 Jan 2017 12:08:24 +0000
попробуйте так
RegExp := TRegExp.Create('http://(.*?)



Re: [Script] Regular expression
null@example.com (RZ-007) — Wed, 11 Jan 2017 09:25:12 +0000
Дмитрий это просто СУПЕР...всё заработало на УРА!!!...Спасибочки!!!
микро вопросик:
есть текст:
kjhkgjhuy....http:// привет 1...kjhkgjhuy....http:// привет 2...kjhkgjhuy
kjhkgjhuy....http:// привет 3...kjhkgjhuy....http:// привет 4...kjhkgjhuy
Вопрос:
есть способ использовать "Регулярное выражения" 
RegExp := TRegExp.Create('http://(.*?)???????');
итог
привет 1
привет 2
привет 3
привет 4


Re: [Script] Regular expression
null@example.com (DriveSoft) — Thu, 05 Jan 2017 21:32:07 +0000
попробуйте так
Email := '';
if RegExp.Exec then
  repeat
        // Матчи
        Form1.Memo2.Lines.Add( RegExp.Match[0] );

        // группы
        for i := 1 to RegExp.Match.Count-1 do
        begin    
            Email:= Email + 'Group'+IntToStr(i)+': '+RegExp.Match[i] + #10#13;           
            Form1.Memo3.Lines.Add('Group'+IntToStr(i)+': '+RegExp.Match[i]);
        end;            

  until not RegExp.ExecNext;
  SQLExecute ('INSERT INTO AAA (aaa) VALUES ("'+ Email +'");');
  Form1.TableGrid1.dbUpdate;


Re: [Script] Regular expression
null@example.com (RZ-007) — Wed, 04 Jan 2017 17:39:40 +0000
Дмитрий прошу прощения...скорей всего за мой не корректный вопрос!!!
Пост № 3
1.) Сделал TableGrid1 читаемость-многострочный...работает ОК!!!
2.) Form1.Memo3.Lines.Add(Email);   // Email: String;
Group1: tdlite.exe
Group1: js.exe
Вопрос:
Как сохранить многострочный текст из переменной  (Email) в одно поле???
рисунок прилагается...


Re: [Script] Regular expression
null@example.com (DriveSoft) — Wed, 04 Jan 2017 10:20:02 +0000
попробуйте так
if RegExp.Exec then
  repeat
        // Матчи
        Form1.Memo2.Lines.Add( RegExp.Match[0] );


        // группы
        for i := 1 to RegExp.Match.Count-1 do
        begin    
            Email:=  'Group'+IntToStr(i)+': '+RegExp.Match[i];           
            Form1.Memo3.Lines.Add(Email);
            SQLExecute ('INSERT INTO AAA (aaa) VALUES ("'+ Email +'");');
        end;            

  until not RegExp.ExecNext;
  Form1.TableGrid1.dbUpdate;


Re: [Script] Regular expression
null@example.com (RZ-007) — Wed, 04 Jan 2017 07:05:35 +0000
DriveSoft wrote:Приветствую.

Извиняюсь за задержку с ответом. Вопрос все еще актуален для вас?
Здравствуйте Дмитрий!!!
Да...вопрос актуален??? пост №3...???


Re: [Script] Regular expression
null@example.com (DriveSoft) — Mon, 02 Jan 2017 11:05:11 +0000
Приветствую.

Извиняюсь за задержку с ответом. Вопрос все еще актуален для вас?


Re: [Script] Regular expression
null@example.com (RZ-007) — Thu, 29 Dec 2016 16:46:27 +0000
Здравствуйте Дмитрий!!!
Используя Ваш скрипт "Регулярное выражения" 
Попытался сделать запись в Б.Д...MVD...
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
  RegExp: TRegExp;
  i: integer;
  Email: String;
begin
  RegExp := TRegExp.Create(Form1.Edit1.Text);
  RegExp.InputString := Form1.Memo1.Text;

  if RegExp.Exec then
  repeat
        // Матчи
        Form1.Memo2.Lines.Add( RegExp.Match[0] );


        // группы
        for i := 1 to RegExp.Match.Count-1 do
            Form1.Memo3.Lines.Add('Group'+IntToStr(i)+': '+RegExp.Match[i]);

        // запись в Б.Д...MVD...
            Email:=Form1.Memo3.Text;
            SQLExecute ('INSERT INTO AAA (aaa) VALUES ("'+ Email +'");');
            Form1.TableGrid1.dbUpdate;

  until not RegExp.ExecNext;

  RegExp.Free;
end;
1.) Сделал TableGrid1 читаемость-многострочный...работает ОК!!!
2.) У Вас в Form1.Memo3.Text видим:
Group1: tdlite.exe
Group1: js.exe
Проблема в том, что в таблицу "AAA" происходит две записи:
1.  Group1: tdlite.exe
---------------------------------------------------------
2. Group1: tdlite.exe
    Group1: js.exe
Вопрос: Как сохранить запись из переменой "Email" в таблицу "AAA", 
что бы в гриде увидеть только ???
Group1: tdlite.exe
Group1: js.exe
Всех ФОРУМЧАН  <>


Re: [Script] Regular expression
null@example.com (mathmathou) — Mon, 12 Dec 2016 22:47:15 +0000
Dmitry, you are a GOD !!

That's not quite a HTML parser, but what a progress and what a time gain already !!!

I guess I  just have to buy that 3.0 when it's out now   

Thank you Dmitry, that's awesome

Cheers

Mathias


[Script] Regular expression
null@example.com (DriveSoft) — Mon, 12 Dec 2016 10:43:01 +0000
Example how to use regular expression (version 3.06b and later)

Script:
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
  RegExp: TRegExp;
  i: integer;
begin
  RegExp := TRegExp.Create(Form1.Edit1.Text);
  RegExp.InputString := Form1.Memo1.Text;

  if RegExp.Exec then
  repeat
        // matches
        Form1.Memo2.Lines.Add( RegExp.Match[0] );

        // groups
        for i := 1 to RegExp.Match.Count-1 do
            Form1.Memo3.Lines.Add('Group'+IntToStr(i)+': '+RegExp.Match[i]);

  until not RegExp.ExecNext;

  RegExp.Free;
end;

Project example: