|
ｿｽ@ｿｽｿｽCSVｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ読み搾ｿｽｿｽｿｽ
|
ｿｽ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
WILLDO 2010/02/14(ｿｽｿｽ) 21:54:13
ｿｽGｿｽNｿｽZｿｽｿｽｿｽｿｽCSVｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽﾌゑｿｽADelphiｿｽﾅ読み搾ｿｽｿｽｿｽﾅ、ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽ驍ｻｿｽ黷ｼｿｽｿｽｿｽTEDITｿｽﾉ費ｿｽｿｽfｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽTｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽmｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ轤ｦｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽHdelphi6ｿｽﾅゑｿｽｿｽB
Kenny 2010/02/14(ｿｽｿｽ) 23:37:47
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽButton1ｿｽｿｽEdit1ｿｽｿｽEdit2ｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽﾄ、Button1ｿｽｿｽonClickｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽ
procedure TForm1.Button1Click(Sender: TObject);
var SL, SL2: TStringList;
begin
SL:=TStringList.Create;
try
SL2:=TStringList.Create;
try
SL.LoadFromFile('ｿｽﾇゑｿｽｿｽｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽ.CSV'); //ｿｽ]ｿｽﾝゑｿｽCSVｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽwｿｽｿｽ
SL2.CommaText:=SL.Strings[0]; //ｿｽｿｽｿｽsｿｽﾚのデｿｽ[ｿｽ^ｿｽｿｽﾇむゑｿｽｿｽｿｽwｿｽｿｽ
Edit1.Text:=SL2.Strings[0]; //ｿｽｿｽｿｽｿｽﾚのデｿｽ[ｿｽ^ｿｽｿｽﾇむゑｿｽｿｽｿｽwｿｽｿｽ
Edit2.Text:=SL2.Strings[1] //ｿｽｿｽｿｽｿｽﾚのデｿｽ[ｿｽ^ｿｽｿｽﾇむゑｿｽｿｽｿｽwｿｽｿｽ
finally
SL2.Free
end
finally
SL.Free;
end
end;
ｿｽｿｽｿｽｿｽﾈ包ｿｽｿｽﾉでゑｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽxｿｽｿｽｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
jazzin 2010/02/15(ｿｽｿｽ) 15:28:38
ｿｽ竭ｫｿｽﾅゑｿｽｿｽｿｽｿｽACommaTextｿｽﾅ茨ｿｽｿｽｿｽｿｽｿｽﾌは撰ｿｽｿｽmｿｽﾉゑｿｽSDFｿｽﾆゑｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾍカｿｽｿｽｿｽ}ｿｽﾈ外ｿｽﾉスｿｽyｿｽ[ｿｽXｿｽﾈどゑｿｽｿｽﾘり文ｿｽｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽ驍ｽｿｽﾟ、
123 456,789 10
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
sl[0] = 123
sl[1] = 456
sl[2] = 789
sl[3] = 10
ｿｽﾆ会ｿｽﾟゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉはダｿｽuｿｽｿｽｿｽNｿｽHｿｽeｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾅ包ｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾎ良ゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
("123 456","789 10"ｿｽﾌようｿｽｿｽ)
ExcelｿｽｿｽｿｽoｿｽﾍゑｿｽｿｽｿｽCSVｿｽﾍ（ｿｽｿｽｿｽｿｽｿｽｿｽOｿｽﾅゑｿｽｿｽｿｽｿｽjSDFｿｽﾅはなゑｿｽCSVｿｽﾅゑｿｽｿｽﾌで、
ｿｽ_ｿｽuｿｽｿｽｿｽNｿｽHｿｽeｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅ出ｿｽﾍゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽfｿｽ[ｿｽ^ｿｽﾌ抵ｿｽｿｽﾉスｿｽyｿｽ[ｿｽXｿｽｿｽﾜむゑｿｽｿｽﾆゑｿｽｿｽzｿｽ閧ｳｿｽｿｽｿｽ鼾ｿｽﾍ、
CommaTextｿｽｿｽgｿｽpｿｽｿｽｿｽ驍ｱｿｽﾆでバｿｽOｿｽﾌ鯉ｿｽｿｽﾆなゑｿｽﾜゑｿｽｿｽﾌで抵ｿｽｿｽﾓゑｿｽｿｽKｿｽvｿｽﾅゑｿｽｿｽB
Kenny 2010/02/15(ｿｽｿｽ) 17:17:56
jazzinｿｽｿｽｿｽｿｽAｿｽtｿｽHｿｽｿｽｿｽ[ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽXｿｽyｿｽ[ｿｽXｿｽｿｽﾘゑｿｽﾌゑｿｽｿｽﾆ奇ｿｽｿｽSｿｽﾉ忘ｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Excel2003ｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽlｿｽﾉゑｿｽｿｽ文ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽA" "ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌは値ｿｽﾌ抵ｿｽｿｽﾉカｿｽｿｽｿｽ}ｿｽu,ｿｽvｿｽｿｽ
ｿｽﾜまゑｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽﾉ会ｿｽｿｽｿｽｿｽｿｽﾉは、
if Pos(' ', SL.Strings[0])<>0 then
SL.Strings[0]:=StringReplace(SL.Strings[0], ' ', 'ｿｽ@', [rfReplaceAll]);
ｿｽﾆゑｿｽｿｽｿｽﾄ費ｿｽｿｽpｿｽXｿｽyｿｽ[ｿｽXｿｽｿｽSｿｽpｿｽXｿｽyｿｽ[ｿｽXｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾎ難ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾇ、ｿｽiｿｽDｿｽｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾄどゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
jazzin 2010/02/15(ｿｽｿｽ) 18:11:43
ExtractStringsｿｽｿｽAnsiDequotedStrｿｽﾌ組ｿｽﾝ搾ｿｽｿｽせｿｽﾅどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽPｿｽﾉスｿｽyｿｽ[ｿｽXｿｽｿｽﾘゑｿｽｿｽｿｽｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾈゑｿｽExtractStringsｿｽﾅゑｿｽﾇゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ExtractStrings([','], [], '123 456,"789"" 10"', sl);
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉ、
sl[0] = 123 456
sl[1] = "789"" 10"
ｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽAnsiDequotedStrｿｽﾉ通ゑｿｽｿｽｿｽｿｽﾆで、
sl[0] = 123 456
sl[1] = 789" 10
ｿｽｿｽｿｽﾌようｿｽﾉ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾙゑｿｽｿｽﾙゑｿｽ 2010/02/15(ｿｽｿｽ) 18:13:35
ｿｽｿｽ http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200506/05060108.txt
Kenny 2010/02/16(ｿｽｿｽ) 02:01:07
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽCommatextｿｽﾌ難ｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆ思ｿｽｿｽｿｽｿｽClasses.pasｿｽｿｽSetDelimitedTextｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽA
#1ｿｽｿｽｿｽｿｽ#32ｿｽﾜで全ｿｽｿｽｿｽｿｽﾘり文ｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽﾋ。
#1ｿｽｿｽｿｽｿｽ#31ｿｽｿｽCSVｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉは難ｿｽｿｽﾍでゑｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽｿｽ(ｿｽ{ｿｽｿｽｿｽｿｽ?)ｿｽAｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽﾌ「' 'ｿｽvｿｽｿｽSｿｽｿｽ#31ｿｽｿｽ
ｿｽﾏゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽﾆ思ｿｽｿｽｿｽﾄ、ｿｽﾙゑｿｽｿｽﾙゑｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾝｿｽｿｽｿｽｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽmｿｽRｿｽgｿｽJｿｽ[ｿｽIｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB(^^;
ｿｽﾖ？ 2010/02/17(ｿｽｿｽ) 05:07:19
ｿｽﾇゑｿｽｿｽｿｽｿｽ齒擾ｿｽﾈんだ…ｿｽH
ｿｽざｿｽざｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈんかゑｿｽｿｽｿｽﾓ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾅ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽﾄゑｿｽﾌに気ｿｽtｿｽｿｽｿｽﾄるかｿｽH
ｿｽｿｽｿｽｿｽﾉ撰ｿｽｿｽ苺ｶｿｽｿｽｿｽﾉはタｿｽuｿｽｿｽｿｽﾜまゑｿｽﾄゑｿｽだゑｿｽｿｽAｿｽｿｽｿｽﾊは難ｿｽｿｽﾍでゑｿｽｿｽﾈゑｿｽｿｽﾆでゑｿｽH
KHE00221 2010/02/17(ｿｽｿｽ) 09:38:40
http://khe00221.image.coocan.jp/index.php?FrontPage%2FUnit%2FCSVUtilsUnit.pas
ｿｽﾆゑｿｽ
http://khe00221.image.coocan.jp/index.php?FrontPage%2FComponent2%2FCSV
Kenny 2010/02/17(ｿｽｿｽ) 10:36:48
ｿｽｿｽ?ｿｽｿｽｿｽｿｽ>
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽAExcelｿｽﾌ出ｿｽﾍゑｿｽｿｽｿｽCSVｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾅゑｿｽAｿｽｿｽｿｽ苺ｶｿｽｿｽｿｽﾍ厄ｿｽｿｽﾟ搾ｿｽｿｽﾟゑｿｽｿｽﾅゑｿｽｿｽﾋ。ｿｽCｿｽｿｽｿｽtｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
KHE00221ｿｽｿｽｿｽｿｽ>
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽ謔ｭｿｽﾗ具ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽB
DELPON 2010/02/17(ｿｽｿｽ) 19:00:26
Delphi2006ｿｽﾈ降ｿｽﾈゑｿｽuStrictDelimiterｿｽvｿｽｿｽｿｽﾖ暦ｿｽ
http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200907/09070024.txt
