|
ｿｽ@ｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾘゑｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽﾌゑｿｽｿｽｿｽｿｽﾍ？
|
ｿｽ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
ｿｽｿｽｿｽﾈゑｿｽｿｽ 2005/03/30(ｿｽｿｽ) 19:51:20
ｿｽｿｽｿｽﾈゑｿｽﾌと申ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈ前ｿｽﾉゑｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽﾄゑｿｽかｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽc
ｿｽﾈ単ｿｽﾉ申ｿｽｿｽｿｽ繧ｰｿｽｿｽﾆ、Perlｿｽﾌ会ｿｽｿｽLｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽﾈ奇ｿｽｿｽｿｽｿｽﾌ難ｿｽeｿｽｿｽA
Delphiｿｽｿｽﾅ再鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽ@$String = ｿｽiｿｽｿｽｿｽpｿｽXｿｽyｿｽ[ｿｽXｿｽｿｽｿｽｿｽsｿｽｿｽﾜんだ１ｿｽﾂの包ｿｽｿｽｿｽｿｽｿｽj;
ｿｽ@@data = split(/¥n/,$String);
ｿｽ@foreach(@data){
ｿｽ@ｿｽ@if (ｿｽｿｽｿｽｿｽｿｽ検搾ｿｽｿｽｿｽｿｽ) {
ｿｽ@ｿｽ@$DataList[i] = $_:
i = i + 1;
ｿｽ@ｿｽ@}
ｿｽ@}
ｿｽｿｽｿｽｿｽｿｽﾙど鯉ｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽﾄわかｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
TStringList.Delimiterｿｽ@ｿｽﾅ、#13ｿｽｿｽｿｽﾘゑｿｽﾆゑｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽpｿｽXｿｽyｿｽ[ｿｽXｿｽｿｽｿｽﾘゑｿｽﾆゑｿｽｿｽﾄ認ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽが包ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾝ会ｿｽｿｽﾌ擾ｿｽﾔゑｿｽTMemoｿｽｿｽｿｽﾉ茨ｿｽｿｽｿｽｿｽLｿｽﾎゑｿｽｿｽﾄ、
ｿｽｿｽｿｽLｿｽﾌようｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅ使ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
str1 := ｿｽiｿｽｿｽｿｽpｿｽXｿｽyｿｽ[ｿｽXｿｽｿｽｿｽｿｽsｿｽｿｽﾜんだ１ｿｽﾂの包ｿｽｿｽｿｽｿｽｿｽj;
Memo1.Lines.Add(str);
for i := 0 to Memo1.Lines.Count -1 do
begin
if (ｿｽｿｽｿｽｿｽｿｽ検搾ｿｽｿｽｿｽｿｽ) then
begin
DataList[j] := Memo1.Lines.Strings[i];
j := j + 1;
end;
end;
end;
ｿｽﾇゑｿｽｿｽｿｽｿｽAｿｽFｿｽlｿｽﾌゑｿｽｿｽﾍゑｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽが托ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎ、ｿｽﾇゑｿｽｿｽﾄゑｿｽｿｽ告致ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
OSｿｽFWindowsXP SP2
VerｿｽFDelphi 6 Personal
... 2005/03/30(ｿｽｿｽ) 20:27:14
TStringListｿｽｿｽ@ｿｽﾂゑｿｽｿｽｿｽｿｽﾌゑｿｽmｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽｿｽｿｽsｿｽﾅゑｿｽｿｽｿｽｿｽ閧ｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾆ ｿｽｿｽｿｽﾜぬゑｿｽｿｽﾈ趣ｿｽｿｽｿｽﾅゑｿｽｿｽB
st := TStringList.create
try
st.text := text;
for i := 0 to st.count-1 do
memo1.lines.add(st[i])
finally
st.free
end;
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ 2005/03/30(ｿｽｿｽ) 21:38:45
TextｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾉゑｿｽｿｽﾌまま会ｿｽｿｽｿｽｿｽｿｽｿｽﾟばゑｿｽｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾆではなゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾋ？
ｿｽｿｽｿｽﾈゑｿｽｿｽ 2005/03/30(ｿｽｿｽ) 22:31:43
ｿｽｿｽｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Memo1.Lines.Add(str);
ｿｽｿｽｿｽ黷ｾｿｽｿｽOKｿｽﾈのでゑｿｽｿｽｿｽｿｽA
var
lines:TStrings;
begin
lines := TStrings.create;
lines.Text := str;
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ、Textｿｽﾌ擾ｿｽｿｽﾅエｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾗてみゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾗ具ｿｽｿｽsｿｽｿｽｿｽﾅ申ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽ閧ｨｿｽ閧ｨ 2005/03/30(ｿｽｿｽ) 22:35:34
TStrings ｿｽﾍ抵ｿｽｿｽﾛクｿｽｿｽｿｽXｿｽﾅゑｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽﾂゑｿｽｿｽｿｽｿｽﾄはゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽﾌクｿｽｿｽｿｽX TStringlist ｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾈゑｿｽｿｽ 2005/03/31(ｿｽｿｽ) 01:24:56
ｿｽｿｽｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
var
lines:TStringList;
begin
lines := TStringList.create;
lines.Text := str;
ｿｽｿｽｿｽｿｽﾅ托ｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾅ４ｿｽｿｽｿｽｿｽYｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽcｿｽB
ｿｽｿｽｿｽﾍ、TStringList ｿｽｿｽ Text ｿｽgｿｽｿｽｿｽﾌ（ｿｽｿｽｿｽｿｽﾌパｿｽ^ｿｽ[ｿｽｿｽｿｽj
ｿｽｿｽｿｽｿｽｿｽﾟてでゑｿｽｿｽﾄ、ｿｽｿｽｿｽ閧ｪｿｽSｿｽRｿｽかｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽcｿｽB
ｿｽｿｽｿｽﾛクｿｽｿｽｿｽXｿｽEｿｽｿｽﾌクｿｽｿｽｿｽXｿｽﾆゑｿｽｿｽｿｽｿｽﾌは、ｿｽｿｽｿｽﾟて趣ｿｽｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽﾗ具ｿｽｿｽsｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽﾜゑｿｽTStringsｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌで、
ｿｽｿｽｿｽｿｽﾍ間違いｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾗ具ｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
