怎样实现把不同行的语句加入文件 |
尚未結案
|
小丫123
初階會員 發表:85 回覆:62 積分:29 註冊:2004-08-31 發送簡訊給我 |
|
Zard
尊榮會員 發表:24 回覆:396 積分:539 註冊:2003-11-26 發送簡訊給我 |
引言: 我想将下列不同行的语句加入到test.txt 中,恳求前辈指点 <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd"> <svg width="169.33mm" height="127mm" </BLOCKQUOTE id=quote> 不太懂您的意思, 您的意思是要把svg11.dtd append到test.txt中嗎??procedure TForm1.Button1Click(Sender: TObject); var slSrcText, slDestText: TStringList; i: Integer; begin slSrcText := TStringList.Create; slDestText := TStringList.Create; try // 將 svg11.dtd資料取出 slSrcText.LoadFromFile('c:\svg11.dtd'); // 將 Test.txt資料取出 slDestText.LoadFromFile('c:\test.txt'); for i := 0 to slSrcText.Count - 1 do begin // 把svg11.dtd的每行資料加到test.txt slDestText.Add(slSrcText.Strings[i]); end; // 回存test.txt slDestText.SaveToFile('c:\test.txt'); finally slSrcText.Free; slDestText.Free; end; end; |
小丫123
初階會員 發表:85 回覆:62 積分:29 註冊:2004-08-31 發送簡訊給我 |
|
Zard
尊榮會員 發表:24 回覆:396 積分:539 註冊:2003-11-26 發送簡訊給我 |
引言: 如果这先语句不是放在文件里,而是在程序中产生如 if i=1 then '<svg xml....>'//加这段语句<svg xml....> else '<xml...>' ;//加这段语句'<xml...>' 那该怎样实现呢? procedure TForm1.Button1Click(Sender: TObject); var slDestText: TStringList; i: Integer; begin slDestText := TStringList.Create; try // 將 Test.txt資料取出 slDestText.LoadFromFile('c:\test.txt'); if i = 1 then slDestText.Add('〈svg xml....〉') else slDestText.Add('〈xml....〉') // 回存test.txt slDestText.SaveToFile('c:\test.txt'); finally slSrcText.Free; slDestText.Free; end; end; |
Zard
尊榮會員 發表:24 回覆:396 積分:539 註冊:2003-11-26 發送簡訊給我 |
引言: 如果这先语句不是放在文件里,而是在程序中产生如 if i=1 then '<svg xml....>'//加这段语句<svg xml....> else '<xml...>' ;//加这段语句'<xml...>' 那该怎样实现呢?修正一下 procedure TForm1.Button1Click(Sender: TObject); var slDestText: TStringList; i: Integer; begin slDestText := TStringList.Create; try // 將 Test.txt資料取出 slDestText.LoadFromFile('c:\test.txt'); if i = 1 then slDestText.Add('〈svg xml....〉') else slDestText.Add('〈xml....〉') // 回存test.txt slDestText.SaveToFile('c:\test.txt'); finally slDestText.Free; end; end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |