Непростая загрузка из CSV файла в StringGrid, а затем в БД

[artemavd]

Вот, нашел и сделал код загрузки из CSV файла в StringGrid:

procedure LoadCSVFile(FileName: string; separator: char);
var
 f: TextFile;
 s1,s2: string;
 i,j: integer;
begin
 i:=0;
 AssignFile(f,FileName);
 Reset(f);
 while not EOF(f) do
 begin
  ReadLn(f,s1);
  i:=i + 1;
  j:=0;
  while Pos(Separator,s1) <> 0 do
  begin
   s2:=Copy(s1,1,Pos(Separator,s1)-1);
   j:=j + 1;
   Delete(s1,1,Pos(Separator,s1));
   Form1.StringGrid1.Cells[j-1,i-1]:=s2;
  end;
  if Pos(Separator,s1)=0 then
  begin
   j:=j+1;
   Form1.StringGrid1.Cells[j-1,i-1]:=s1;
  end;
  Form1.StringGrid1.ColCount:=j;
  Form1.StringGrid1.RowCount:=i+1;
 end;
 CloseFile(f);
end;

procedure TForm1.BtnOpen1Click(Sender: TObject);
begin
 Form1.OpenDialog2.FileName:='*.csv';
 if Form1.OpenDialog2.Execute = True then
 begin
  LoadCSVFile('1.csv',';');
 end;
end;

Помогите переделать его так, чтобы из файла 1, который в первом посте, получался файл "Результат в StringGrid" ??? Очень нужна ваша помощь в этом.

[Mad_Cat]

нашел и сделал код загрузки из CSV файла в StringGrid

получался файл "Результат в StringGrid"

а этот код как грузит7

[artemavd]

В смысле какой предыдущий? Все CSV файлы грузит отлично как надо! . Но мне нужно, например, из файла 1, который в первом посте, получался файл "Результат в StringGrid". Иными словами загрузка-то работает, а вот как сделать грамотную сортировку, или перестановка это, я не знаю.

[Stilet]

Что ниасилил мою идею с провайдером? )

[artemavd]

Да, там не получилось . Внатуре замутно. Охотно как-нибудь поразбираюсь, но, сейчас нужно как-то пробовать переставлять/сортировать эти строки, чтобы получилось то, что нужно . Неужели ни у кого нету никаких мыслей? ((((

[XeruH]

Немного потыкал в ConnectionString и вот как она выглядит у меня.

Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DefaultDir=D:\Program Files\Borland\Delphi7\Projects\AdditionTools\bin;Driver={Microsoft Text Driver (*.txt; *.csv)};DriverId=27;FIL=text;FILEDSN=D:\Program Files\Borland\Delphi7\Projects\AdditionTools\bin\1.csv.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"

Может конечно и не так все должно быть. Но во всяком случае в DBGrid вывести получилось

[artemavd]

так вывести то туда и у мменя получилось. Я про то, что не получается привести таблицы к тому результату, который я выложил в файле "Результат в Stringgrid"

-------------
К CSV файлам легко можно подключиться через компоненты от JEDI. Это у меня получилось. Но мне по-прежнему нужно для этого получить таблицу, о которой я говорил). Вот бы было замечательно вообще)

[karrikon]

procedure LoadCSVFile(FileName: string; separator: char);
var
 f: TextFile;
 s1,s2: string;
 i,j: integer;
begin
 i:=0;
 AssignFile(f,FileName);
 Reset(f);
 while not EOF(f) do
 begin
  ReadLn(f,s1);
  i:=i + 1;
  j:=0;
  while Pos(Separator,s1) <> 0 do
  begin
   s2:=Copy(s1,1,Pos(Separator,s1)-1);
   j:=j + 1;
   Delete(s1,1,Pos(Separator,s1));
   Form1.StringGrid1.Cells[j-1,i-1]:=s2;
  end;
  if Pos(Separator,s1)=0 then
  begin
   j:=j+1;
   Form1.StringGrid1.Cells[j-1,i-1]:=s1;
  end;
  Form1.StringGrid1.ColCount:=j;
  Form1.StringGrid1.RowCount:=i+1;
 end;
 CloseFile(f);
end;

procedure TForm1.BtnOpen1Click(Sender: TObject);
begin
 Form1.OpenDialog2.FileName:='*.csv';
 if Form1.OpenDialog2.Execute = True then
 begin
  LoadCSVFile('1.csv',';');(вот здесь *.csv)
 end;
end;

Пожалуйста помогите точно такой функция только не точный файл а любой СSV файл



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.