|
ｿｽ@ｿｽｿｽTStringListｿｽﾌ抵ｿｽｿｽﾉ重ｿｽｿｽｿｽｿｽｿｽ髟ｶｿｽｿｽｿｽがゑｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉは？
|
ｿｽ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
Kirameki 2010/09/16(ｿｽｿｽ) 09:19:05
500ｿｽsｿｽｿｽｿｽ轤｢ｿｽｿｽcsvｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽTStringListｿｽﾉ読み搾ｿｽｿｽｿｽﾅ、1ｿｽsｿｽﾚゑｿｽ3ｿｽﾔ目の包ｿｽｿｽｿｽｿｽが、TStringListｿｽﾌ抵ｿｽｿｽﾉ重ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽ2ｿｽsｿｽﾚゑｿｽ3ｿｽﾔ目の包ｿｽｿｽｿｽｿｽが重ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾌようｿｽﾉ最終ｿｽsｿｽﾜで重ｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽTStringListｿｽｿｽCSVｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾇみ搾ｿｽｿｽﾞとゑｿｽｿｽｿｽﾜででゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ鯉ｿｽﾇのようｿｽﾉ、ｿｽdｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔｢ｿｽｿｽｿｽAｿｽhｿｽoｿｽCｿｽXｿｽ頂ゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾂ具ｿｽｿｽﾍ、XPｿｽADelphi7ｿｽﾅゑｿｽｿｽB
TS 2010/09/16(ｿｽｿｽ) 11:35:45
>1ｿｽsｿｽﾚゑｿｽ3ｿｽﾔ目の包ｿｽｿｽｿｽｿｽｿｽ
3ｿｽﾔ目の包ｿｽｿｽｿｽｿｽﾅは厄ｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽﾌ的ｿｽﾉゑｿｽ1ｿｽsｿｽｿｽｿｽﾇゑｿｽﾈデｿｽ[ｿｽ^ｿｽｿｽ
ｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
>ｿｽｿｽｿｽﾌ鯉ｿｽﾇのようｿｽﾉ、ｿｽdｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔｢ｿｽｿｽ
500ｿｽsｿｽｿｽｿｽ轤｢ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAｿｽPｿｽｿｽｿｽﾉ行ｿｽｿｽｿｽｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
kirameki 2010/09/16(ｿｽｿｽ) 11:58:42
1ｿｽsｿｽﾌデｿｽ[ｿｽ^ｿｽﾍ、
12345,aabbcc,555,456123,789456,ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ,012345,ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ,789456,ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ,ｿｽEｿｽEｿｽEｿｽEｿｽE
ｿｽﾌようｿｽﾉ、50ｿｽﾂゑｿｽｿｽ轤｢ｿｽｿｽｿｽｿｽｿｽがゑｿｽｿｽｿｽﾜゑｿｽｿｽB
take 2010/09/16(ｿｽｿｽ) 14:06:42
ｿｽRｿｽﾔ目のデｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽdｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ鼾ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽﾆテｿｽLｿｽXｿｽgｿｽGｿｽfｿｽBｿｽ^ｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾌでスｿｽyｿｽｿｽｿｽ‾ｿｽXｿｽﾆゑｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽ
var
t,ts,tc : TStringList;
i : Integer;
s : string;
begin
t := TStringList.Create; // ｿｽJｿｽｿｽｿｽ}ｿｽｿｽﾘり分ｿｽｿｽp
ts := TStringList.Create; // CSVｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾇみ搾ｿｽｿｽﾝ用
tc := TStringList.Create; // ｿｽdｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽp
try
ts.LoadFromFile('test.csv'); // CSVｿｽｿｽﾇみ搾ｿｽｿｽだとゑｿｽｿｽｿｽ
for i := 0 to ts.Count-1 begin // ｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽv
t.Commatext := ts[i]; // ｿｽJｿｽｿｽｿｽ}ｿｽｿｽﾘゑｿｽﾅ包ｿｽｿｽｿｽ
s := t[2]; // ｿｽRｿｽﾔ目のデｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽoｿｽｿｽ
if tc.IndexOf(s) <> -1 then begin // ｿｽdｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ鼾
// ｿｽｿｽｿｽｿｽｿｽﾉ重ｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
end;
tc.Add(s); // ｿｽdｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽXｿｽgｿｽﾉ追会ｿｽ
end;
finaly
tc.Free;
ts.Free;
t.Free;
end;
end;
ｿｽｿｽ 2010/09/16(ｿｽｿｽ) 21:39:41
slｿｽ@(stringlist)ｿｽ@ｿｽｿｽｿｽｿｽ
ｿｽｿｽslｿｽ@ｿｽﾉ 3ｿｽﾔ目の要ｿｽfｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝ抵ｿｽAObjectsｿｽ@ｿｽﾉ鯉ｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽRｿｽ[ｿｽhｿｽﾔ搾ｿｽｿｽｿｽﾝ抵ｿｽB
ｿｽｿｽslｿｽｿｽ¥ｿｽ[ｿｽgｿｽB
ｿｽｿｽsl[i] = sl[i -1]ｿｽ@ｿｽﾈゑｿｽAinteger(sl.objects[i]) ｿｽsｿｽﾚゑｿｽinteger (sl.objects[i-1]) ｿｽsｿｽﾚのｿｽｿｽRｿｽ[ｿｽhｿｽﾍ重ｿｽｿｽｿｽB
kirameki 2010/09/21(ｿｽｿｽ) 20:36:10
takeｿｽｿｽｿｽｿｽAｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽdｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
IndexOfｿｽﾆゑｿｽｿｽｿｽｿｽﾖ撰ｿｽｿｽﾍとてゑｿｽﾖ暦ｿｽｿｽﾅゑｿｽｿｽﾋ！
