Запись в StringGrid из текстового файла

[Polarman]

Здравствуйте! Я новичок в Delphi, никак не получается загрузить данные из текстового файла в таблицу! Вроде бы должно быть элементарно, но никак не получается. Кое что я конечно сделал, а вот дальше не продвинуться. Высылаю сам текстовый файл и код. Если не трудно, помогите!

[DIONISKA]

procedure TForm1.N2Click(Sender: TObject);
var
  l:TStringList;
  s:string;
  i,j,a,b:Integer;
begin
if OpenDialog1.Execute Then
begin
  l:=TStringList.Create;
   try
   l.LoadFromFile(OpenDialog1.FileName);
   //удаляем лишние строки (в файле CR LF LF)
   for J := l.Count-1 downto 0 do
     if trim(l[J])='' then l.Delete(J);
   with StringGrid1 do
   begin
     ColCount:=17;
     RowCount:=l.Count+2;
     for I := 1 to l.Count do
       begin
         Cells[0,i]:=Format('%u',[i]);
         a:=1;
         j:=1;
         if (l[i-1]='') then Continue;
         while true do
          begin
            b:=pos(#9,l[i-1],a);
            if b=0 then b:=Length(l[i-1]);
            s:=Copy(l[i-1],a,b-a);
            if (j<ColCount)and(i<RowCount) then
            Cells[j,i]:=s;
            a:=b+1;
            inc(j);
            if b=Length(l[i-1]) then Break;
          end;
       end;
   end;
  finally
    l.free;
  end;
end;
end;

Набросал на досуге. Вы же в курсе что в вашем файле строки разделены CL RF RF?

[Polarman]

Здравствуйте. Компилятор ругается на эту строку

b:=pos(#9,l[i-1],a);

Мол перед а надо ставить скобку, а не запятую. Я пробнул, не помогает.

[DIONISKA]

Сообщение от Polarman

Компилятор ругается на эту строку

не D7 часом? Там PosEx() тогда вместо pos()

[Polarman]

Здравствуйте. Ну с этим я вроде разобрался. Теперь другая проблема! Например я загрузил в StringGrid файл, (он как Вы правильно заметили с CR и LF) поменял там некоторые значения и теперь мне надо его сохранить, но сохраняется он уже совсем по другому. Не посмотрите мой код, где там неправильно. У меня Delphi 7.

[DIONISKA]

Сообщение от Polarman

Вы правильно заметили с CR и LF

Не просто CR LF, а "CR LF LF", страшно представить того сумрачного гения, кто это соорудил.

я-бы сделал всё чуть проще:

procedure TForm1.save(filename: string);
var
  I: Integer;
  L,R:TStringList;
begin
  L:=TStringList.Create;
  R:=TStringList.Create;
  try
  for I := 1 to StringGrid1.RowCount-1 do
   begin
      R.Assign(StringGrid1.Rows[i]);
      R.Delete(0); //Ячейка с порядковым номером
      L.Add(Trim(StringReplace(r.Text,sLineBreak,#9,[rfReplaceAll]))+#10); //добавляем лишний LF в конце 
   end;
  finally
   R.Free;
  end;
  L.SaveToFile(filename);
  L.Free;
end;

Сообщение от Polarman

Delphi 7

Не понимаю я тех, кто пользуется IDE, которой больше 20 лет. Стандарты языка уже давно поменялись, завезли кучу плюшек, дженерики, хелперы, юникод, анонимные методы и тп Даже сделали бесплатную community версию, но нет.

[Polarman]

Я сейчас объясню почему так и почему я что то пытаюсь сделать в Delphi 7. Немного не по теме конечно, но думаю модераторы меня простят. Дело в том что я на данный момент работаю в Антарктиде. И вот у нас имеется автоматическая метеостанция которая ежеминутно снимает показания различных параметров и записывает их в log-файл. Далее идет обработка этого файла в другой программе, а она никак не хочет принимать даже немного измененный файл. Сама же станция периодически дает сбои, пропуски бывают и по 3-5 часов. Так что интерполировать ручками такие промежутки времени... так себе удовольствие!!! Вот я и решил для себя написать программку. До интерполяции еще не дошел :-). Когда то давно писал программы на Delphi 7. Так что тут старое бы вспомнить, на изучение чего то нового просто времени нет. Кстати, станция финская и ПО разрабатывали они.

[DIONISKA]

Сообщение от Polarman

не хочет принимать даже немного измененный файл

Посмотрите в ваш лог в любом HEX-редакторе: Там разделитель между столбцами $0x09(табуляция), а между строками 0x0D, 0x0A, 0x0A или #13 #10 #10 (CR LF LF) и сравните с результатом работы вашей программы. Там вместо 0x0D, 0x0A, 0x0A будет 0x0D, 0x0A, 0x0D, 0x0A, т.е. лишний CR, также лишние пробелы перед табуляцией, поэтому скорее всего сторонняя программа отказывается работать с отредактированным файлом.

[Polarman]

Сообщение от DIONISKA

Не просто CR LF, а "CR LF LF", страшно представить того сумрачного гения, кто это соорудил.

я-бы сделал всё чуть проще:

procedure TForm1.save(filename: string);
var
  I: Integer;
  L,R:TStringList;
begin
  L:=TStringList.Create;
  R:=TStringList.Create;
  try
  for I := 1 to StringGrid1.RowCount-1 do
   begin
      R.Assign(StringGrid1.Rows[i]);
      R.Delete(0); //Ячейка с порядковым номером
      L.Add(Trim(StringReplace(r.Text,sLineBreak,#9,[rfReplaceAll]))+#10); //добавляем лишний LF в конце 
   end;
  finally
   R.Free;
  end;
  L.SaveToFile(filename);
  L.Free;
end;

Не понимаю я тех, кто пользуется IDE, которой больше 20 лет. Стандарты языка уже давно поменялись, завезли кучу плюшек, дженерики, хелперы, юникод, анонимные методы и тп Даже сделали бесплатную community версию, но нет.

DIONISKA, Доброго времени суток! Послушал Вашего совета и установил себе Embarcadero.Delphi.12.2 Буду осваивать новую IDE.

[DIONISKA]

Сообщение от Polarman

Embarcadero.Delphi.12.2 Буду осваивать новую IDE

Хороший выбор, удачи.

К слову новые версии IDE позволяет существенно сократить труд, например процедура открытия с проверками может быть такой:

begin
  if not(OpenDialog1.Execute(Handle)) then Exit;
     var sl:TStringList:=TStringList.Create;
         StringGrid1.BeginUpdate;
         StringGrid1.RowCount:=sl.Count;
         sl.LoadFromFile(OpenDialog1.FileName,TEncoding.UTF8);
     var rowcnt:integer:=1;
      try
           for var i:Integer := 0 to Pred(sl.Count) do
             begin
                if trim(sl[i])='' then Continue;
                StringGrid1.Rows[rowcnt].CommaText:=rowcnt.ToString+#9+sl[i];
                inc(rowcnt);
             end;
      finally
        StringGrid1.RowCount:=rowcnt;
        StringGrid1.EndUpdate;
        sl.Free;
      end;
end;