• From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Topic: Проверить значение в CSV

в csv два поля 
id;e-mail
нужно проверить на совпадение поля e-mail с указанным значением в поле edit..

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Проверить значение в CSV

проверить во время импорта? или просто проверить наличие данного e-mail в CSV файле?

Dmitry.

3 Reply by sibprogsistem (edited by sibprogsistem 2019-02-22 10:23:39)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Проверить значение в CSV

DriveSoft wrote:

проверить во время импорта? или просто проверить наличие данного e-mail в CSV файле?

просто проверить наличие
пока пришел к этому

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
str:TStringList;
i, Pos:integer;
begin
form1.Memo1.clear;
str:=TStringList.create;
str.LoadFromFile('shop_order-21Feb2019_2123-export.csv');
for i := 0 to str.Count-1 do
 begin
    form1.Memo1.Text:= form1.Memo1.Text +(str[i])+' ' ;
 end;
if Pos(form1.Edit1.Text, str)> 0 then begin
  form1.Label1.Caption:='Совпадает';
 end else  form1.Label1.Caption:='He cовпадает';
end;

но Pos ругается (много пораметров).
и еще проблема мне нужно получить csv
из 

http://wp1.sibprogsistem0.140l6.spectrum.myjino.ru/?export=csv

HTTPGetFile(,,);
работает только если имеем обсалютный путь к файлу..

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Проверить значение в CSV

Можно так

function CheckCSV(FileName, Str: string): boolean;
var
    sl: TStringList;
begin
    result := False;
    sl := TStringList.Create;
    sl.LoadFromFile(FileName);
    if Pos(Str, sl.Text) > 0 then Result := True;
    sl.Free;
end;


procedure Form1_Button4_OnClick (Sender: TObject; var Cancel: boolean);
begin
     if CheckCSV('D:\file.csv', 'email@email.com') then ShowMessage('Найдено') else ShowMessage('Ненайдено');
end;
Dmitry.
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Проверить значение в CSV

sibprogsistem wrote:

и еще проблема мне нужно получить csv
из 

http://wp1.sibprogsistem0.140l6.spectrum.myjino.ru/?export=csv

HTTPGetFile(,,);
работает только если имеем обсалютный путь к файлу..

К удаленному файлу?

Dmitry.

6 Reply by sibprogsistem (edited by sibprogsistem 2019-02-22 11:41:55)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Проверить значение в CSV

DriveSoft wrote:
sibprogsistem wrote:

и еще проблема мне нужно получить csv
из 

http://wp1.sibprogsistem0.140l6.spectrum.myjino.ru/?export=csv

HTTPGetFile(,,);
работает только если имеем обсалютный путь к файлу..

К удаленному файлу?

получается Да.
при переходе по 

http://wp1.sibprogsistem0.140l6.spectrum.myjino.ru/?export=csv

формируется csv
Весь день гуглю и примеры только с обсалютным путем к файлу )))

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Проверить значение в CSV

Все таки не пойму, где проблема?

Dmitry.
  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Проверить значение в CSV

DriveSoft wrote:

Все таки не пойму, где проблема?

мне нужно csv получить с этого адреса 

http://wp1.sibprogsistem0.140l6.spectrum.myjino.ru/?export=csv
  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Проверить значение в CSV

извеняюсь моя ошибка... Не обратил внимание, что доступ был закрыт