[Регина]

тектовый файл содержит не просто набор слов, там таблица многострочная с столбцами естетственно и подстолбцами. в коде написала что создаю excel application как обычно, сначала открываю файл для чтения (заранее указав путь) затем открываю снова и построчно с помощью цикла считываю строки в переменную buf. у меня 2 вопроса: при отладке выходят какие-то закорючки, видимо кодировка глючит и как в цикле можно указать чтобы каждая строка сбрасывалась в каждую строку excel?

[Kailon]

Код и файл в студию

[Регина]

вот файл, в коде думаю нет необходимости ничего ценного там нет (

[Kailon]

тектовый файл содержит не просто набор слов, там таблица многострочная с столбцами естетственно и подстолбцами

Что-то особой структуры файла я не увидел там. Прям извращение какое-то Может я просто не сталкивался с этим (это мысли в слух..)

при отладке выходят какие-то закорючки, видимо кодировка глючит

Да дело в кодировке.

как в цикле можно указать чтобы каждая строка сбрасывалась в каждую строку excel?

Попробуй как-нибудь так:

Код:

var
  InFile: TextFile;
  k: Integer;
  Str: String;
begin
  k := 1;
  AssignFile(InFile, 'C:\InFile.txt');
  Excel.Workbooks.Add('C:\OutFile.xls', 0);
  Reset(InFile);
  while not EOF(InFile) do
    begin
      Readln(InFile, Str);
      Excel.Cells.Item[k, 1] := Str;
      Inc(k);
    end;
  CloseFile(InFile);

[Регина]

нет там не так все просто как кажется или мне тока так кажется...вот что у меня есть по этой теме

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
  D = [#9];
var
  F : TextFile;
  Str1, StrFld,Fn : String;
  i,k, Pos1, Pos2, Col, Row : Integer;
  EndRow : Boolean;
  exApp : Variant;
  exBook : Variant;
  exSheet : Variant;
begin
  try
    if OpenDialog1.Execute=false then exit;
    Fn:=OpenDialog1.FileName;

    exApp := CreateOleObject('Excel.Application');
    exApp.Visible := True;
    exBook := exApp.WorkBooks.Add;
    exSheet := exBook.WorkSheets[1];

    AssignFile(F, Fn);
    Reset(F);

    Pos1 := 0;
    Pos2 := 0;
    Col := 1;
    Row := 1;
    k:=0;
    EndRow := False;

    while not Eof(F) do
    begin
      Readln(F,Str1);
      for i := 1 to Length(Str1) do
      begin
        k:=k+1;
        if i = 1 then
          Pos1 := i
        else
          if Str1[i - 1] in D then
            Pos1 := i;
        if i = Length(Str1) then
        begin
          Pos2 := i;
          EndRow := True;
        end else
        if Str1[i + 1] in D then
          Pos2 := i;
        if Pos2 > 0 then
        begin
          StrFld := Copy(Str1, Pos1, Pos2 - Pos1 + 1);
          OemToChar(PChar(StrFld),pchar(StrFld));

{
          if k>12 then // позиция конца шапки(№ строки)
          begin

          exSheet.Cells[Row,1].Value :=copy(StrFld,1,23);
          exSheet.Cells[Row,2].Value :=copy(StrFld,24,3);
          exSheet.Cells[Row,3].Value :=copy(StrFld,27,8);
          exSheet.Cells[Row,4].Value :=copy(StrFld,35,8);
          end;
}
          Pos2 := 0;
          Inc(Col);
          if EndRow then
          begin
            Inc(Row);
            Col := 1;
            EndRow := False;
          end;
        end;
      end;
    end;
  finally
    try CloseFile(F) finally end;

    exSheet := Unassigned;
    exBook := Unassigned;
    exApp := Unassigned;
  end;
end;

в этом коде все данные в excel скидываются в одну ячейку книги, листа. а мне нужно чтобы получилось более менее похожее на таблицу, чтобы потом в экселе можно было проводить расчеты с помощью этих данных. для этого я начала кое-что делать это прописано в комментарии - но это тоже не особо верно, потому что шапка отчета тоже разделяется (и получаются обрывки слов, пустые места). помогите пожалуйста, дело еще в том, что после конца таблицы, шапка вновь будет повторятся с таблицей несколько раз, просто я выложенный файл сократила, так он весит 3 метров.

[Kailon]

просто я выложенный файл сократила, так он весит 3 метров.

Из-за большого файла тебе хочется автоматизировать перевод из текстового файла в Excel и дальше уже работать с ним, т.к. ручками это все перебивать долго? Я тебя правильно понял?

[Регина]

нет это задание такое...видимо никаких предложений нет?

[Kailon]

Если не сложно, то сделай пример файла excel как должно быть. Хотя бы одну запись, а то я не очень пойму шапку таблицы.

[Страдалецъ]

Не запихать ваш отчет в эксель и в ворд через лексиконовский фильтр тоже не будет работать. Обработать ручками разово это еще можно, но вот написать конвертер для чтения данных в эксель из такого файла дело уже непростое и явно тянет на тему в Работе.
Если хочется сделать самой, то могу предложить такой алгоритм. Убрать все лишние строки которые не содержат данных, затем заменить все пробелы в определенных позициях на символ табуляции. Результат сохранить в новый файл. Вот такой файл вы уже сможете открывать в экселе и данные будут раскиданы по столбцам.