Вывод данных из текстового файла в StringGrid

@lerandivan · Регистрация: 26.08.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте, помогите новичку кодом) Имеется таблица StringGrid(фото прикреплено ниже) нужно начиная со второй строки в таблицу, также выводились данные второй строки файла(прикреплен ниже) и далее по порядку. Заранее спасибо за помощь!)

@Puporev · 31.08.2015, 13:33

Например так.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a,b:TStringlist;
    i,j:integer;
begin
a:=TStringlist.Create;
a.LoadFromFile('1.txt'); //Ваш файл в папке с программой
StringGrid1.RowCount:=a.Count;
StringGrid1.ColCount:=5;
for i:=1 to a.Count-1 do
 begin
  b:=TStringlist.Create;
  b.Delimiter:=' ';
  b.DelimitedText:=a.Strings[i];
  StringGrid1.Cells[0,i]:=b.Strings[0];
  StringGrid1.Cells[1,i]:=b.Strings[1]+'  '+b.Strings[2];
  for j:=2 to 4 do
  StringGrid1.Cells[j,i]:=b.Strings[j+1];
  b.Free;
 end;
a.Free;
end;

@lerandivan · 31.08.2015, 14:01 **[ТС]**

Спасибо, работает!) Можно еще вопрос? У меня исходная таблица состоит из 8 строк, как сделать так, чтобы после этих 2 двух строк заполненных из файла, остальные 6 оставались пустыми?

@Puporev · 31.08.2015, 14:04

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

У меня исходная таблица состоит из 8 строк,

Тогда уж с учетом фиксированной строки буде 2+6+1=9.

Delphi

1	StringGrid1.RowCount:=9;

Добавлено через 1 минуту
Или просто задать количество строк и столбцов в инспекторе объектов.

@lerandivan · 31.08.2015, 14:18 **[ТС]**

Спасибо большое, Вам!) Очень сильно выручили)

@lerandivan · 31.08.2015, 21:32 **[ТС]**

Опять сел... Со второй таблицей не могу разобраться(на фото) Загружаю в нее файл(прикреплен) программа выдает ошибку 'List index out of bounds(5)'. Что делаю не так?

Delphi

begin
a:=TStringlist.Create;
a.LoadFromFile('work\2.txt'); //Ваш файл в папке с программой
StringGrid1.RowCount:=6;
StringGrid1.ColCount:=5;
for i:=1 to a.Count-1 do
 begin
  b:=TStringlist.Create;
  b.Delimiter:=' ';
  b.DelimitedText:=a.Strings[i];
  StringGrid1.Cells[0,i]:=b.Strings[0];
  StringGrid1.Cells[1,i]:=b.Strings[1]+'  '+b.Strings[2];
  for j:=2 to 4 do
  StringGrid1.Cells[j,i]:=b.Strings[j+1];
  b.Free;
 end;
a.Free;
end;

@D1973 · 01.09.2015, 05:52

Если просто загрузить данные из приложенного файла в СтрингГрид, то все делается проще... Или ты чего-то не договариваешь...

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a : TStringList;
     i : Integer;
begin
 a:=TStringlist.Create;
 a.LoadFromFile('c:\1\2.txt'); //Ваш файл в папке с программой
 StringGrid1.RowCount:=6;
 StringGrid1.ColCount:=5;
 for i := 0 to a.Count - 1 do
  StringGrid1.Rows[i].CommaText := a.Strings[i];
end;

@lerandivan · 01.09.2015, 07:39 **[ТС]**

Да, извините, не договорил... Нужно чтобы таблица заполнялась со второй строки, а данные брались также начиная со второй строки файла.

@Sergio Leone · 01.09.2015, 08:05

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

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

если я тебя правильно понял, то достаточно индекс изменить:

Delphi

1 2	for i := 1 to a.Count - 1 do StringGrid1.Rows[i].CommaText := a.Strings[i];

@lerandivan · 01.09.2015, 09:59 **[ТС]**

Спасибо, заработало!) Чтобы не создавать лишних тем опять же спрошу здесь.. Как сделать, чтобы в определенную ячейку таблицы выводилась из файла информация после знака '=' определенного параметра( например в ячейку [2,1] информация из файла после 'AvgBurningByOutLoading=')?? Вот мой код, но он выдает не то что надо... фото таблицы и файл прикреплены

Delphi

begin
   a:=TStringlist.Create;
   a.LoadFromFile('work\3.txt');
   StringGrid2.RowCount:=34;
   StringGrid2.ColCount:=3;
   for i:=1 to a.Count-1 do
    StringGrid2.Cells[2,1]:=Copy(a[1],Pos('AvgBurningByOutLoading=',a[1])+1,4);
 end;

@Kitayets · 01.09.2015, 10:37

если бы не первая и последняя строка в файле (begin/end), то можно было одним вызовом загрузить в stringlist поочередно строки типа:
1. параметр 1
2. значение
3. параметр 2
4. значение
а так нужно самому писать код разбора.

@Puporev · 01.09.2015, 12:00

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var a:TStringlist;
    i:integer;
begin
a:=TStringlist.Create;
a.LoadFromFile('3.txt'); //Ваш файл в папке с программой
StringGrid1.RowCount:=a.Count;
StringGrid1.ColCount:=3;
for i:=1 to a.Count-1 do
StringGrid1.Cells[2,i]:=copy(a.Strings[i],pos('=',a.Strings[i])+1,
                             length(a.Strings[i])-pos('=',a.Strings[i]));
a.Free;
end;

@lerandivan · 01.09.2015, 12:35 **[ТС]**

Это работает, только вот параметры в файле раскиданы и не соответствуют строкам в таблице, поэтому и хотел узнать как выделить часть после 'параметр=' до запятой?

@Puporev · 01.09.2015, 12:52

Да Вам хрен знает что вообще нужно. Параметров после знака = то 1,то с десяток, а колонка в таблице одна. Сами придумали, сами и творите, как делать Вам написали. А если не знаете даже основ Делфи,то и не лезьте.

Добавлено через 11 минут
Если между знаком = и первой запятой, то так

Delphi

1 2	StringGrid1.Cells[2,i]:=copy(a.Strings[i],pos('=',a.Strings[i])+1, pos(',',a.Strings[i])-pos('=',a.Strings[i])-1);

@lerandivan 0 / 0 / 0 Регистрация: 26.08.2015 Сообщений: 9
	31.08.2015, 14:01 [ТС]	3
	Спасибо, работает!) Можно еще вопрос? У меня исходная таблица состоит из 8 строк, как сделать так, чтобы после этих 2 двух строк заполненных из файла, остальные 6 оставались пустыми? 0

@lerandivan 0 / 0 / 0 Регистрация: 26.08.2015 Сообщений: 9
	31.08.2015, 14:18 [ТС]	5
	Спасибо большое, Вам!) Очень сильно выручили) 0

@lerandivan 0 / 0 / 0 Регистрация: 26.08.2015 Сообщений: 9
	01.09.2015, 07:39 [ТС]	8
	Да, извините, не договорил... Нужно чтобы таблица заполнялась со второй строки, а данные брались также начиная со второй строки файла. 0

@Kitayets 438 / 367 / 132 Регистрация: 09.09.2011 Сообщений: 1,334
	01.09.2015, 10:37	11
	если бы не первая и последняя строка в файле (begin/end), то можно было одним вызовом загрузить в stringlist поочередно строки типа: 1. параметр 1 2. значение 3. параметр 2 4. значение а так нужно самому писать код разбора. 0

@lerandivan 0 / 0 / 0 Регистрация: 26.08.2015 Сообщений: 9
	01.09.2015, 12:35 [ТС]	13
	Это работает, только вот параметры в файле раскиданы и не соответствуют строкам в таблице, поэтому и хотел узнать как выделить часть после 'параметр=' до запятой? 0

Вывод данных из текстового файла в StringGrid

Решение