如何 用 Delphi 讀取某 文字檔 中的某個資料 ? |
答題得分者是:cclin
|
crlin
一般會員 發表:47 回覆:57 積分:20 註冊:2002-07-23 發送簡訊給我 |
|
cclin
一般會員 發表:5 回覆:11 積分:8 註冊:2002-11-30 發送簡訊給我 |
|
00156
高階會員 發表:45 回覆:195 積分:112 註冊:2002-06-01 發送簡訊給我 |
|
ko
資深會員 發表:28 回覆:785 積分:444 註冊:2002-08-14 發送簡訊給我 |
crlin你好:
//--這是找字串的
procedure TMainFrm.AbcClick(Sender: TObject);
var
pos,leng:integer;
begin
RichEdit2.Lines.LoadFromFile('test.txt');
if RichEdit1.SelLength<>0 then pos:=RichEdit1.selstart RichEdit1.SelLength
else pos:=0;
leng:=length(RichEdit1.Text)-pos;
if RichEdit1.FindText('字串名稱',pos,leng,[stMatchCase])<>-1 then
begin
RichEdit1.SetFocus;
RichEdit1.SelStart:=RichEdit1.FindText('字串名稱',pos,leng,[stMatchCase]);
RichEdit1.SelLength:=length('字串名稱');
end
else
MessageDlg('已到最後一筆。',mtInformation, [mbok], 0);
end;
//----如果要指定第n行的第幾個字
copy(RichEdit1.Lines.String[2](這裡代表第幾行從0開始),3(這裡代表從第幾個字開始),1(這裡代表要幾格))
------
====================== 昏睡~ 不昏睡~ 不由昏睡~ |
crlin
一般會員 發表:47 回覆:57 積分:20 註冊:2002-07-23 發送簡訊給我 |
|
Jeffrey
初階會員 發表:10 回覆:58 積分:38 註冊:2002-04-15 發送簡訊給我 |
引言: 請問我該如何知道是否己指到檔案的結尾呢 ? Eoln 這個 function 如何使用(該給什麼參數呢 ?) ? thanks ! Assignfile(openFile,'FileName'); Reset(openfile); while Eoln ??? do begin Readln(openfile , ls); ...... end; While not SeekEof(openfile) do begin Readln(openfile , ls); ...... end; |
banson1716
高階會員 發表:55 回覆:182 積分:167 註冊:2002-04-14 發送簡訊給我 |
procedure TForm1.Button3Click(Sender: TObject);
var
Openfile : Textfile;
ls ,Cs1,Cs2,Cs3,Cs4:string;
begin
Assignfile(openFile,'D:\Delphi K_Top討論區\1234.txt');
Reset(openfile);
Readln(openfile , LS);
Readln(openfile , ls);
RichEdit2.Lines.add(Ls); //顯示參考字串
CS1 := LS[1] LS[2]; //取得第一字串
CS2 := LS[3] LS[4]; //取得第二字串
CS3 := LS[5] LS[6]; //取得第三字串<====你要的字串
CS4 := LS[7] LS[8]; //取得第四字串<====你要的字串 RichEdit2.Lines.add(Cs1);//列出取得字串
RichEdit2.Lines.add(Cs2);
RichEdit2.Lines.add(Cs3);
RichEdit2.Lines.add(Cs4);
CloseFile(openfile);
End;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |