|
ｿｽ@ｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾄエｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
|
ｿｽ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
ｿｽｿｽｿｽSｿｽﾒ２ 2005/03/02(ｿｽｿｽ) 20:07:48
ｿｽｿｽｿｽﾟゑｿｽDelphiｿｽﾅプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽLｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽiｿｽ齦費ｿｽjｿｽﾅエｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾄでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾅゑｿｽｿｽB
procedure TForm1.comb_data();
var Fname_out, Fname_backup: String;
ii, jj: Integer;
Fdata,Logdata: TStringList;
data_line, Logdata_line: String;
begin
data := nil;
Logdata := nil;
try
Fdata := TStringList.Create;
Logdata:= TStringList.Create;
Fdata.LoadFromFile('Fdata.csv');
Logdata.LoadFromFile('log-out.tmp');
while data.Text[ii] <> '' do
begin
data_line := Fdata.Text[ii];
while Logdata.Text[jj] <> '' do
begin
Logdata_line := Logdata.Text[jj];
if Logdata_line[5] = Fdata_line[5] then
Fdata.Text[ii] := Logdata.Text[jj]; //<-----ｿｽｿｽｿｽｿｽｿｽﾅエｿｽｿｽｿｽ[
jj := jj +1;
end;
ii := ii + 1;
end;
finally
Fdata.Free;
Logdata.Free;
end;
end;
HOta 2005/03/02(ｿｽｿｽ) 20:33:52
>Fdata.Text[ii] := Logdata.Text[jj]; //<-----ｿｽｿｽｿｽｿｽｿｽﾅエｿｽｿｽｿｽ[
Fdata[ii] := Logdata[jj];
ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽSｿｽﾒ２ 2005/03/02(ｿｽｿｽ) 21:09:37
ｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽwｿｽEｿｽﾌとゑｿｽｿｽｿｽﾉ変更ｿｽｿｽｿｽｿｽﾆ確ｿｽｿｽｿｽﾉエｿｽｿｽｿｽ[ｿｽﾍ出ｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾜひとつわかｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾂまゑｿｽAｿｽｿｽｿｽｿｽ.Textｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾉゑｿｽｿｽｿｽ 2005/03/02(ｿｽｿｽ) 21:57:03
ｿｽwｿｽｿｽｿｽvｿｽｿｽQｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽ轤ｭｿｽATextｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾆ、StringsｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽﾔ違えｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
StringsｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾍ、defaultｿｽwｿｽ閧ｳｿｽｿｽﾄゑｿｽｿｽｿｽﾌで、
Fdata[ii]
ｿｽﾆゑｿｽｿｽｿｽｿｽLｿｽqｿｽﾍ、
Fdata.Strings[ii]
ｿｽﾆ難ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽSｿｽﾒ２ 2005/03/03(ｿｽｿｽ) 08:58:57
HOtaｿｽｿｽｿｽｿｽAｿｽﾉゑｿｽｿｽﾌゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽSｿｽﾒ２ 2005/03/06(ｿｽｿｽ) 11:30:11
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾌ出ｿｽﾍを得るこｿｽﾆゑｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
>TextｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾆ、StringsｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽﾔ違えｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾉ、ｿｽGｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾈゑｿｽｿｽﾆゑｿｽAｿｽｿｽｿｽ痰｢ｿｽｿｽｿｽﾄゑｿｽｿｽ髟費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
