掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
空白のあるｃｓｖファイルをStringGridに取り込むには？ (ID：15798)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
StlingListとExtractHTTPFieldsを使って、簡単にＣＳＶを読み込む方法があります。 usesにHttpAppを追加して、 var Lista : TStringList; Listb : TStringList; s,w: TSysCharSet; i : Integer; begin if OpenDialog1.Execute = false then exit; Lista := TStringList.Create; Lista.LoadFromFile(OpenDialog1.FileName); //一旦Listaに読み込む Listb := TStringList.Create; s := [',']; w := ['"']; for i := 0 to Lista.Count-1 do begin ExtractHTTPFields(s,w,PChar(Lista[i]),Listb);//Listbに格納 end; Lista.Free; : ://Listbを使用してコード化 : Listb.free;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.