|
ｿｽ@ｿｽｿｽTStringListｿｽｿｽQuoteCharｿｽｿｽoｿｽﾍゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ@ｿｽﾍ？
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽ^ｿｽO 2006/08/01(ｿｽｿｽ) 11:59:26
TStringListｿｽｿｽpｿｽｿｽｿｽﾄカｿｽｿｽｿｽ}ｿｽｿｽﾘゑｿｽeｿｽLｿｽXｿｽgｿｽｿｽoｿｽﾍゑｿｽｿｽ髀茨ｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽiｿｽｿｽｿｽｿｽｿｽｿｽﾌ茨ｿｽｿｽpｿｽｿｽｿｽﾍ出ｿｽﾍゑｿｽｿｽﾜゑｿｽｿｽｿｽj
ｿｽｿｽｿｽﾌ趣ｿｽｿｽAAppendｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ費ｿｽｿｽpｿｽXｿｽyｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽQuoteCharｿｽｿｽｿｽoｿｽﾍゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
TSTringListｿｽﾅ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽpｿｽｿｽｿｽｿｽoｿｽﾍゑｿｽｿｽｿｽｿｽﾉカｿｽｿｽｿｽ}ｿｽｿｽﾘゑｿｽeｿｽLｿｽXｿｽgｿｽｿｽoｿｽﾍゑｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ex.
lstCSV := TStringList.Create;
try
lstCSV.Delimiter := ',';
lstCSV.Append('aaa');
lstCSV.Append('999');
lstCSV.Append('1');
lstCSV.Append(' 99');
lstCSV.Append('99 ');
lstCSV.Append('ｿｽｿｽｿｽｿｽ');
lstCSV.Append('ｿｽ@ｿｽｿｽ');
ShowMessage(lstCSV.DelimitedText);
finally
lstCSV.Free;
end;
ｿｽｿｽｿｽsｿｽｿｽｿｽﾊ「aaa,999,1," 99","99 ",ｿｽｿｽｿｽｿｽ,ｿｽ@ｿｽｿｽｿｽv
ｿｽﾂ具ｿｽ
ｿｽ@OSｿｽFWindows2000 Professional SP4
ｿｽ@Delphi7(Build 8.1)
Ru 2006/08/01(ｿｽｿｽ) 12:47:46
ｿｽｿｽｿｽｿｽｿｽﾈ擾ｿｽｿｽｿｽｿｽﾍ包ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが，
lstCSV.QuoteChar := #32;
ｿｽﾌ一文ｿｽﾇ会ｿｽｿｽﾅ茨ｿｽｿｽpｿｽｿｽｿｽﾌ変更ｿｽｿｽｿｽﾂの趣ｿｽiｿｽH
ｿｽﾊ目擾ｿｽｿｽ@ｿｽ@ｿｽｿｽ ｿｽfｿｽ[ｿｽfｿｽｿｽ 2006/08/01(ｿｽｿｽ) 12:51:52
ｿｽﾝなゑｿｽｿｽｿｽﾊ目擾ｿｽｿｽ@ｿｽ@ｿｽｿｽ ｿｽfｿｽ[ｿｽfｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾌ環具ｿｽｿｽﾅは「StringReplaceｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽﾖ撰ｿｽｿｽｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽA
{CSVｿｽtｿｽ@ｿｽCｿｽｿｽ}
procedure TForm1.CreateCSVFiles;
begin
try
lstCSV := TStringList.Create;
lstCSV.Delimiter := ',';
lstCSV.Append('aaa');
lstCSV.Append('999');
lstCSV.Append('1');
lstCSV.Append(' 99');
lstCSV.Append('99 ');
lstCSV.Append('ｿｽｿｽｿｽｿｽ');
lstCSV.Append('ｿｽ@ｿｽｿｽ');
ｿｽ@ｿｽ@//ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽ@//:*:ｿｽEｿｽB,ｿｽｿｽｿｽK'ｿｽE:*:ｿｽEｿｽB,ｿｽR(ｿｽEｿｽﾍ・)ｿｽl(ｿｽEｿｽﾍ・)ｿｽm ,ｿｽBｿｽE:*:'ｿｽｿｽ,ｿｽBｿｽE:*:
ShowMessage(StringReplace(lstCSV.DelimitedText,'"','',[rfReplaceAll]));
ｿｽ@ｿｽ@//:*:ｿｽEｿｽB,ｿｽｿｽｿｽK'ｿｽE:*:ｿｽEｿｽB,ｿｽR(ｿｽEｿｽﾍ・)ｿｽl(ｿｽEｿｽﾍ・)ｿｽm ,ｿｽBｿｽE:*:'ｿｽｿｽ,ｿｽBｿｽE:*:
lstCSV.SaveToFile(Edit1.Text);
finally
lstCSV.Free;
end;
end;
ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ^ｿｽO 2006/08/01(ｿｽｿｽ) 13:10:03
RuｿｽｿｽｿｽｿｽAｿｽﾊ目擾ｿｽｿｽ@ｿｽ@ｿｽｿｽ ｿｽfｿｽ[ｿｽfｿｽｿｽ ｿｽｿｽｿｽｿｽ
ｿｽ答有ｿｽうｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽﾅはデｿｽ[ｿｽ^ｿｽﾉダｿｽuｿｽｿｽｿｽNｿｽHｿｽ[ｿｽeｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽﾍなゑｿｽｿｽA
ｿｽﾆ思ｿｽｿｽｿｽ驍ｽｿｽﾟ、StringReplaceｿｽnｿｽﾌ擾ｿｽｿｽｿｽｿｽﾅ対会ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB
Ruｿｽｿｽｿｽｿｽﾉゑｿｽｿｽ示抵ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍ以前ｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽｿｽpｿｽXｿｽyｿｽ[ｿｽXｿｽｿｽｿｽOｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾟ断ｿｽOｿｽｿｽｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
