Проблемы с разбиением файла

[Аватар]

А тип какой у этой v и как в неё присваиваешь?

[Алексей0001]

Сообщение от Аватар

А тип какой у этой v и как в неё присваиваешь?

тип

  v: char;

присваивание

v := form1.Edit1.Text[1];

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
var xListFromFile,xListTemp: TStringList;
    i: Integer;
begin
  //допустим сюда загружен твой файл, у меня просто заполнил строками
  xListFromFile:=TStringList.Create;
  xListFromFile.Add('12^333^124^sdd^AAAAA^~~~~');
  xListFromFile.Add('o12^o333^o124^щsdd^AAAAA^~~~~^ку-ку');
  xListFromFile.Add('1^2');
  xListFromFile.Add('5555');

  //подготовил StringGrid1
  StringGrid1.FixedCols:=0;
  StringGrid1.FixedRows:=0;
  StringGrid1.RowCount:=xListFromFile.Count;

  //теперь разбить по строкам и столбцам разделенных символом ^
  xListTemp:=TStringList.Create;
  xListTemp.Delimiter:='^';
  for i:=0 to xListFromFile.Count-1 do begin
    xListTemp.Clear;
    xListTemp.DelimitedText:=xListFromFile.Strings[i];
    if StringGrid1.ColCount<xListTemp.Count then StringGrid1.ColCount:=xListTemp.Count;
    StringGrid1.Rows[i].Assign(xListTemp);
  end;
  //все

  xListTemp.Free;
  xListFromFile.Free;
end;

[Алексей0001]

Сообщение от Аватар

procedure TForm1.Button1Click(Sender: TObject);
var xListFromFile,xListTemp: TStringList;
    i: Integer;
begin
  //допустим сюда загружен твой файл, у меня просто заполнил строками
  xListFromFile:=TStringList.Create;
  xListFromFile.Add('12^333^124^sdd^AAAAA^~~~~');
  xListFromFile.Add('o12^o333^o124^щsdd^AAAAA^~~~~^ку-ку');
  xListFromFile.Add('1^2');
  xListFromFile.Add('5555');

  //подготовил StringGrid1
  StringGrid1.FixedCols:=0;
  StringGrid1.FixedRows:=0;
  StringGrid1.RowCount:=xListFromFile.Count;

  //теперь разбить по строкам и столбцам разделенных символом ^
  xListTemp:=TStringList.Create;
  xListTemp.Delimiter:='^';
  for i:=0 to xListFromFile.Count-1 do begin
    xListTemp.Clear;
    xListTemp.DelimitedText:=xListFromFile.Strings[i];
    if StringGrid1.ColCount<xListTemp.Count then StringGrid1.ColCount:=xListTemp.Count;
    StringGrid1.Rows[i].Assign(xListTemp);
  end;
  //все

  xListTemp.Free;
  xListFromFile.Free;
end;

у меня задача стоит немного по больше, еще нужно отсортированные данные сохранять в файл, ну при этом чтобы в гриде был первичный вариант файла

[Аватар]

Из xListTemp перезапись в другой стринглист с сортировкой, потом в Text замена всех переводов строки и курсора на колпачек и запись полученной строки в выходной файл, можно посредством еще одного стринглиста

[Алексей0001]

сделал по вашему коду + моему, вот что получилось

procedure TForm2.Button1Click(Sender: TObject);
var xListFromFile,xListTemp: TStringList;
    i: Integer;
    fname:string;
begin
    xListFromFile:=TStringList.Create;
  if not OpenDialog1.Execute then
    exit;
  xListFromFile.LoadFromFile(OpenDialog1.FileName);
    StringGrid1.FixedCols:=0;
  StringGrid1.FixedRows:=0;
  StringGrid1.RowCount:=xListFromFile.Count;
  xListFromFile.Sort;
   fName := ChangeFileExt(OpenDialog1.FileName, '.result');
  //теперь разбить по строкам и столбцам разделенных символом ^
  xListTemp:=TStringList.Create;
  xListTemp.Delimiter:='-';
  for i:=0 to xListFromFile.Count-1 do begin
    xListTemp.Clear;
    xListTemp.DelimitedText:=xListFromFile.Strings[i];
    if StringGrid1.ColCount<xListTemp.Count then StringGrid1.ColCount:=xListTemp.Count;
    StringGrid1.Rows[i].Assign(xListTemp);
  end;
  try
    if not FileExists(fName) then // если нет файла, имя которого определено переменной fName
      xListFromFile.SaveToFile(fName) // тогда сохраняем в файл с именем fName
    else if (MessageBox(Handle, // иначе открывается диалоговое окно с предложение записть под другим именем
        'Обработанный файл с таким именем уже существует.'#13'Вы хотите сохранить файл под другим именем?', 'Запрос.', mb_YesNo or mb_IconQuestion) = idNo) or (not SaveDialog1.Execute) then
    begin
      ShowMessage('Операция отменена. Файл не сохранен!'); // в случаем не согласия сохранить файл с другим именем выводим сообщение на экран
      exit; // прерываем выполнение
    end
    else
      xListFromFile.SaveToFile(SaveDialog1.FileName);
    // иначе сохраняем файл с новым именем
    ShowMessage('Сохранение выполнено успешно!');
  finally
    FreeAndNil(xListFromFile);
    FreeAndNil(xListTemp); // освобождаем память
  end;
end;

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

[Алексей0001]

Сообщение от Аватар

Из xListTemp перезапись в другой стринглист с сортировкой, потом в Text замена всех переводов строки и курсора на колпачек и запись полученной строки в выходной файл, можно посредством еще одного стринглиста

спасибо вам, ваш вариант на много проще чем я использовал

procedure TForm2.Button1Click(Sender: TObject);
var ListFromFile,ListTemp, list: TStringList;
    i: Integer;
    fname:string;

begin
v := Edit1.Text[1];
    ListFromFile:=TStringList.Create;
  if not OpenDialog1.Execute then
    exit;
  ListFromFile.LoadFromFile(OpenDialog1.FileName);
    StringGrid1.FixedCols:=0;
  StringGrid1.FixedRows:=0;
  StringGrid1.RowCount:=ListFromFile.Count;
  list:=ListFromFile;

   fName := ChangeFileExt(OpenDialog1.FileName, '.result');
  //теперь разбить по строкам и столбцам разделенных символом ^
  ListTemp:=TStringList.Create;
  ListTemp.Delimiter:=v;
  for i:=0 to ListFromFile.Count-1 do begin
    ListTemp.Clear;
    ListTemp.DelimitedText:=ListFromFile.Strings[i];
    if StringGrid1.ColCount<ListTemp.Count then StringGrid1.ColCount:=ListTemp.Count;
    StringGrid1.Rows[i].Assign(ListTemp);
  end;
  try
  List.Sort;
    if not FileExists(fName) then // если нет файла, имя которого определено переменной fName
      ListFromFile.SaveToFile(fName) // тогда сохраняем в файл с именем fName
    else if (MessageBox(Handle, // иначе открывается диалоговое окно с предложение записть под другим именем
        'Обработанный файл с таким именем уже существует.'#13'Вы хотите сохранить файл под другим именем?', 'Запрос.', mb_YesNo or mb_IconQuestion) = idNo) or (not SaveDialog1.Execute) then
    begin
      ShowMessage('Операция отменена. Файл не сохранен!'); // в случаем не согласия сохранить файл с другим именем выводим сообщение на экран
      exit; // прерываем выполнение
    end
    else
      ListFromFile.SaveToFile(SaveDialog1.FileName);
    // иначе сохраняем файл с новым именем
    ShowMessage('Сохранение выполнено успешно!');
  finally
    FreeAndNil(ListFromFile);
    FreeAndNil(ListTemp); // освобождаем память
  end;
end;