掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
CSV出力時にすべての項目にダブルクォートをつけるには？ (ID：12471)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
function DoubleQuoteText(Text : String) : string; var s : string; i:integer; begin if Length(Text)>0 then for i := 1 to Length(Text) do if Text[i]='"' then s := s+ Text[i] + '"' else s := s+ Text[i]; Result := '"' +s+ '"'; end; function CommaText(Text : String) : string; var sl : TStringList; i:integer; begin if Length(Text)=0 then Result := '""' else Result := ''; sl := TStringList.Create; try sl.Text := Text; for i := 0 to sl.Count-1 do if (i=0) then Result := Result + DoubleQuoteText(sl.Strings[i]) else Result := Result +','+ DoubleQuoteText(sl.Strings[i]); finally sl.Free end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.