Delphi6で、CSVファイルを読み込みたい。プログラムのソースを教えてください。

未確認ですが だいたい このようにすればいいかと思います。

Publicで宣言

A: TStrings;

B: TStrings;

procedure TForm1.btnOpenClick(Sender: TObject);

var

f: TextFile;

s: string;

i, n: Integer;

Strings: TStrings;

begin

// TStrings は抽象クラスなので

// TStringList を生成する

Strings := TStringList.Create;

A := TStringList.Create;

B := TStringList.Create;

try

// ファイルオープン

AssignFile(f, ”kamoku.csv”);

Reset(f);

try

n := 1;

while Eof(f) = False do

begin

// １行読み込んで CommaText に代入

Readln(f, s);

Strings.CommaText := s;

// Strings[i] にそれぞれの列が展開される

A.Add(Strings[1]);

B.Add(Strings[2]);

end;

finally

// Strings 破棄

Strings.Free;

end;

finally

// ファイルクローズ

CloseFile(f);

end;

end;

URLはサンプルソース。

本当は

function ChooseString(const Text, Separator: string; Index: integer): string;

var

S : string;

i, p : integer;

begin

S := Text;

for i := 0 to Index - 1 do begin

if (AnsiPos(Separator, S) = 0) then S := ’’

else S := Copy(S, AnsiPos(Separator, S) + Length(Separator), Length(S));

end;

p := AnsiPos(Separator, S);

if (p > 0) then Result := Copy(S, 1, p - 1) else Result := S;

end;

この様なコードを使って展開するところですが、ブラケットの処理など色々と面倒くさいのでTStrings.CommaTextの機能を使います。

サンプルはDelphi5で作成されているため、Delphi6ではそのままコンパイルできるかどうかわかりません。

その時はフォームにTMemoとTButtonを一つずつ配置し、TButton.OnClickイベントにサンプルソースのコードをコピーしてあげてください。

#URLはダミーです。

文字列処理の勉強をしたいわけではないのであれば、エクセルOLEもしくはFomula1コンポーネントをフォームに貼り付けて、そのコンポーネントからCSVファイルを開くというのはどうでしょうか？

＃ちょっとコードは書きにくいのでヘルプかなにかを参照してほしいのですが。