delphi中如何提取一个txt 文本中的特定部分?
发布网友
发布时间：2024-09-26 17:46
共1个回答
热心网友
时间：1分钟前
procedure SavePointedFile(cStart,cEnd:Integer;OFile,NFile:string);
var
F:TextFile;
SL:TStringList;
T:String;
begin
SL:=TStringList.Create;
SL.LoadFromFile(OFile);//先读入一个文本
T:=Copy(SL.Text,cStart,cEnd);//截取你指定的部分
AssignFile(F,NFile);
ReWrite(F);
Write(F,T);//将截取的文本写入新的文本文件中
CloseFile(F);
SL.Free;
end;
