文字檔案中實現查詢和替換

文字檔案的轉換，這裡的轉換是將文字檔案中的特殊的識別符號號或者說分隔符轉換成自己比較熟悉的符號 就是簡單的查詢和替換，把比較生僻的符號轉換成熟悉的，這樣有利於在程式設計是分割字串。 **如下：

unit unit1;

inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls;
type
tform1 = class(tform)
memo1: tmemo;
memo2: tmemo;
button1: tbutton;
button2: tbutton;
procedure button1click(sender: tobject);
procedure replacetexta(var stext: string; textfind, textreplace: string);
procedure button2click(sender: tobject);
private
public
end;
var form1: tform1;
implementation
procedure tform1.replacetexta(var stext: string; textfind, textreplace: string);
var s: string;
slen: longint;
spos: integer;
begin
s := '';
slen := length(textfind);
spos := pos(textfind, stext);
while spos > 0 do
begin
s := s + copy(stext, 1, spos - 1) + textreplace;
delete(stext, 1, spos + slen - 1);
spos := pos(textfind, stext);
end;
s := s + stext;
stext := s;
end;
procedure tform1.button1click(sender: tobject);
var str:string;
i:integer;
begin
memo1.clear;
memo2.clear;
memo1.lines.loadfromfile('f:/b21.txt');
for i:=1 to memo1.lines.count do
begin
str:=memo1.lines.strings[i-1];
replacetexta(str,',',', ');
memo2.lines.add(str);
end;
end;
procedure tform1.button2click(sender: tobject);
begin
close;
end;
end.

C 實現文字檔案合併

c 實現文字檔案合併 讀取n個文字檔案，把檔案內容合併到乙個文字檔案中。主要用了filestream的readbyte和writebyte方法 class filecombine catch system.exception ex finally 呼叫方法如下 class testcombine 揀...

讀取和寫入文字檔案

read a text file 的這篇文章部分描述如何使用streamreader類來讀取文字的檔案。write a text file example 1 和 write a text file example 2 在各節說明了如何使用streamwriter類來向檔案寫入文字。讀取文字檔案 若...

python 查詢文字檔案的層次

i o系統有一系列的層次構建而成 下面是操作乙個文字檔案的例子來檢視這種層次 f open sample.txt w f sample.txt mode w encoding utf 8 f.buffer io.bufferedwriter name sample.txt f.buffer raw ...