全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1864
推到 Plurk!
推到 Facebook!

如何將2個MEMO中的字串取出來並存檔?

答題得分者是:jow
eric2339
一般會員


發表:21
回覆:14
積分:7
註冊:2007-11-27

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-08-10 02:16:52 IP:118.167.xxx.xxx 訂閱
各位大大…目前想要在程式中,將2個MEMO裡的字串比對並取出後存在.CSV檔,想請各位大大幫忙,謝謝。


MEMO1 MEMO2
1= 1345 1=222
2= 436 2=567

取出後為:
1= 1345,222
2=436,567
jow
尊榮會員


發表:66
回覆:751
積分:1253
註冊:2002-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-08-10 11:32:49 IP:123.193.xxx.xxx 未訂閱
善用元件的特性, 請自行用BCB改寫

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
I, J: Integer;
L1, L2, L3: TStringList;
Key, Value: string;
begin
L1 := TStringList.Create;
L2 := TStringList.Create;
L3 := TStringList.Create;
try
L1.Text := Memo1.Lines.Text;
L2.Text := Memo2.Lines.Text;
for I := 0 to L1.Count-1 do
begin
Key := L1.Names[I];
Value := L1.Values[Key];
for J := 0 to L2.Count-1 do
if Key = L2.Names[J] then
Value := Value ',' L2.Values[Key];
L3.Values[Key] := Value;
end;
Memo3.Lines.Text := L3.Text;
L3.SaveToFile('D:\RESULT.TXT');
finally
FreeAndNil(L3);
FreeAndNil(L2);
FreeAndNil(L1);
end;
end;
[/code]

eric2339
一般會員


發表:21
回覆:14
積分:7
註冊:2007-11-27

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-08-11 00:23:30 IP:118.169.xxx.xxx 訂閱
謝謝你的幫忙!
系統時間:2024-03-29 16:46:42
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!