Search options (Page 1 of 8)

Дмитрий огромное СПАСИБО Вам за поддержку!!!
не бросайте на пол-пути...("я начал городить огород")

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);

var
    OpenDialog: TOpenDialog;
    HTML : TStringList;
    SourceVerNumber : String;     //Исходный код страницы для поиска номера версий
    PosVerNumber1 : Integer;      //Положение начало тега перед номером версии
    PosVerNumber2 : Integer;      //Положение начала метки после номера версии

    i,c: integer;
    s: string;

begin

        OpenDialog := TOpenDialog.Create(Form1);
     if OpenDialog.Execute then


begin
         HTML := TStringList.Create;
         HTML.LoadFromFile(OpenDialog.FileName);

         Form1.Memo1.Text:= (HTML.Text);

         c := Form1.Memo1.Lines.Count-1;
     for i := 0 to c do
begin

           s:= Form1.Memo1.Lines[i]; // в переменной s поочередно будет попадать каждая строка,
 //====================== ОТСЮДА У МЕНЯ ТЁМНЫЙ ЛЕС ==============================================================
           if s[0] <> '' then //SourceVerNumber[0] := //''''+ ReplaceStr(s[0], '''', '''''') + ''''
                   //else s[0] := 'NULL';

    {1}    SourceVerNumber := (s);
    {2}    PosVerNumber1 := Pos('right><td>',SourceVerNumber);
    {3}    Delete (SourceVerNumber,1,PosVerNumber1-1+Length('right><td>'));
    {4}    PosVerNumber2 := Pos('</td>',SourceVerNumber);
    {5}    Delete (SourceVerNumber,PosVernumber2,1000000);
    {6}    SourceVerNumber := Trim(SourceVernumber);
    {7}    //Form1.Memo2.Text := SourceVerNumber;

           s[0] :=SourceVerNumber;

          // else s[0] := 'NULL';

          SQLExecute ('INSERT INTO base (lastname) VALUES ('+ SourceVerNumber[0] +');');

            end;
        end;
        OpenDialog.Free;
end;

помогите откорректировать мой "чудо скрипт" ПОЖАЛУЙСТА...
                                               С Уважением и Благодарностью Роман!!!

Дмитрий...СПАСИБО...это РАБОТАЕТ!!!
следующий этап..........
Загрузив в Memo1 (исходный код)...ищем значения, которые равны требованию...вставляем вMemo2

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);

var
    OpenDialog: TOpenDialog;

    SourceVerNumber : String;     //Исходный код страницы для поиска номера версий
    PosVerNumber1 : Integer;      //Положение начало тега перед номером версии
    PosVerNumber2 : Integer;      //Положение начала метки после номера версии
begin

        OpenDialog := TOpenDialog.Create(Form1);
     if OpenDialog.Execute then
        Form1.Memo1.Lines.LoadFromFile(OpenDialog.FileName);
begin

    {1}    SourceVerNumber := Form1.Memo1.Text;
    {2}    PosVerNumber1 := Pos('right><td>',SourceVerNumber);
    {3}    Delete (SourceVerNumber,1,PosVerNumber1-1+Length('right><td>'));
    {4}    PosVerNumber2 := Pos('</td>',SourceVerNumber);
    {5}    Delete (SourceVerNumber,PosVernumber2,1000000);
    {6}    SourceVerNumber := Trim(SourceVernumber);
    {7}    Form1.Memo2.Text := SourceVerNumber;

        end;
        OpenDialog.Free;
end;

   
ПРОБЛЕМА в том, что в Memo2 попадает только одно значение(самое первое)...,
а в исходном коде их много...
я понимаю...надо прописать переменные...но методом "народного-тыка" у меня не получилось!
Дмитрий помогите дописать скрипт, что бы в Memo2 попали все значения
найденные в исходном коде?????????????????????????????????????????????????????????
                                                                              С Уважением и Благодарностью Роман!!!

Друзья.....
у кого нибудь есть проект-пример на ПОСТ №17 или ПОСТ №18???
С Уважением и Благодарностью Роман!!!

Всем привет!!!
iacovlogicaВам отдельное огромное спасибо!!!
Вы на протяжении моей проблемки стараетесь помочь!!!
Друзья помогите заполнить вычисл.поле???(что бы подсчитать: сумму  id_CCC за дату)
------------таблица "ААА"--------------------------------------------------               
id_CCC  |     data_A     |  profit     |     (вычислительное поле)                                                       
----------------------------------------------------------------------------------                 
    111      |  01.01.2016  |    10      |                  30
    111      |  01.01.2016  |    20      |                  30
    222     |  01.01.2016  |     5      |                   5     
    111      |  02.01.2016  |    7      |                   7
    222      |  02.01.2016  |    6      |                  17
    222      |  02.01.2016  |   11      |                  17
    333     |  03.01.2016  |    50      |                   50   
С Уважением и Благодарностью Роман!!!
тест-проект прилагается...

Доброго времени суток!!!
1.)

Дмитрий при таком запросе в вычислительном поле получаю все "нули"...
т.е. получается моё поле не видит условие "BBB.data_В=AAA.data_A"
как ещё можно написать,что бы условие с датой осталось такое же???
ИСХОДНИК ПОСТ№40
2.)

(SELECT TOTAL(AAA.profit) FROM AAA  WHERE ?????????????????????)

это вычислительное поле
Вопрос: что надо дописать чтоб получить сумму за дату???
------------таблица "ААА"--------------------------------------------------               
id_CCC  |     data_A     |  profit     |     (вычислительное поле)                                                       
----------------------------------------------------------------------------------                 
    111      |  01.01.2016  |   10      |                  35
    111      |  01.01.2016  |   20      |                  35 
    222     |  01.01.2016  |     5      |                  35     
    111      |  02.01.2016  |   50      |                   50

С Уважением и Благодарностью Роман!!!

Дмитрий при таком запросе в вычислительном поле получаю все "нули"...
изменял "AND" на "OR", тогда считает общею сумму для id_CCC в таблице "ВВВ" т.е. получается
моё поле не видит условие "BBB.data_В=AAA.data_A"
как ещё можно написать,что бы условие осталось такое же???

(SELECT TOTAL(AAA.profit) FROM AAA WHERE AAA.id_CCC=BBB.id_CCC AND BBB.data_В=AAA.data_A)

ИСХОДНИК ПОСТ№40

Доброго времени суток!!!
Проблема состоит в следующем:
с формы делаю запись в две таблицы....с проверкой на дубликат в таблица BBB, что имею:
------------таблица "ААА"------------                    ------------таблица "ВВВ"-------------
id_CCC  |     data_A     |  profit                       id_CCC  |     data_В     |  profits (вычислительное поле)                                                       
------------------------------------------                    --------------------------------------------
    111      |  01.01.2016  |   10                             111      |  01.01.2016  |   30    (хотелось бы так)
    111      |  01.01.2016  |   20                             222     |  01.01.2016  |    5      (хотелось бы так)
    222     |  01.01.2016  |     5                             111      |  02.01.2016  |   50     (хотелось бы так)
    111      |  02.01.2016  |   50       
=============================================================================
P./S.   заполнил вычислительное поле...оно считает общею сумму для id_CCC в таблице "ВВВ"

(SELECT TOTAL(AAA.profit) FROM AAA WHERE AAA.id_CCC=CCC.id)

   
ВОПРОС:
Что надо дописать в  вычислительное поле,что бы оно считало
общею сумму у "data_A"  с такой же датой "data_В" для id_CCC в таблице "ВВВ"...   

                                             С Уважением и Благодарностью Роман!!!

Ура!!!! заработало!!!
Благодарю Вас Xexrby Tdutybq!!!

Благодарю....Работает!!!