テキストファイルを読み込むには？ (ID:16188)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

>墓場のように避けている(^^)TFileStreamあたりを...

procedure TForm1.Button1Click(Sender: TObject);
var
  ms: TMemoryStream;
  pS, pD, pT: PChar;
  iCol, iRow: Integer;
  dCord: Boolean;
begin
  ms := TMemoryStream.Create;
  ms.LoadFromFile('__src.txt');   // 元のDATAファイル(20フィールド、複数レコード)
  pS := ms.Memory;
  pS[ms.Size] := #0;
  dCord := True;
  iCol := 0;
  iRow := 0;
  pD := pS;
  pT := pD;
  while pS^ <> #0 do begin
    if pS^ in [#9,#10,#13,#32] then begin
      if not dCord then begin
        pD^ := ',';
        inc(pD);
        inc(iCol);
      end;
      dCord := True;
    end else begin
      pD^ := pS^;
      inc(pD);
      dCord := False;
    end;
    inc(pS);
    // １レコード分をStringGridにセット
    if iCol >= 20 then begin
      if (pD-1)^ = ',' then dec(pD);
      pD^ := #0;
      inc(iRow);
      StringGrid1.ColCount := 21;
      StringGrid1.RowCount := iRow + 1;
      StringGrid1.Rows[iRow].CommaText := 'レコード,'+ pT;
      pD^ := #13; inc(pD);
      pD^ := #10; inc(pD);
      pT := pD;
      iCol := 0;
    end;
  end;
  pD^ := #0;
  ms.Size := pD - ms.Memory;
  ms.SaveToFile('__dst.txt');     // CSV変換ファイル
  Memo1.SetTextBuf(ms.Memory);
  ms.Free;
end;

←解決時は質問者本人がここをチェックしてください。

戻る