这个文本怎么搞呀。兄弟们look 100分，全给了。来就有分

Question

先去掉‘标志’，再去掉后面2个字符。 
文本内容 c:\1.txt（文本中标志出现次数不详）
---------------
标志 可能许多朋友的打印机出现问题时，标志 不知道如何去维修打印机，往往束手无策。标志 其实如打印断线、文字重影、偏色等一些小问题往往通过打印机随机附带的驱动软件就可以得到解决，标志今天就通过图解打印机随机驱动软件的一些维
------------
这段话，我想要
结果：
----------------------
能许多朋友的打印机出现问题时，
知道如何去维修打印机，往往束手无策。
实如打印断线、文字重影、偏色等一些小问题往往通过打印机随机附带的驱动软就可以得到解决，
天就通过图解打印机随机驱动软件的一些维
----------------------------------- 
要代码（能实现的）

Answer 1

替换文本吧，试试用：StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): stringstr:=StringReplace(你的文本,'标志  ','需要替换成的字符,[rfReplaceAll]);

Answer 2

以下是我做过的一个功能，也是要把文本中的某些字符用其他的字符替换function StrTran(psInput:String; psSearch:String; psTranWith:String):String;
var
liPosition,liLenOfSrch,liLenOfIn:integer;
begin
liPosition:=Pos(psSearch,psInput);
liLenOfSrch:=Length(psSearch);
liLenOfIn:=Length(psInput);
while liPosition>0 do
begin
psInput:=Copy(psInput,1,liPosition-1)
+psTranWith
      +Copy(psInput,liPosition+liLenOfSrch,liLenOfIn);
liPosition:=Pos(psSearch,psInput)
end;
Result:=psInput
end;procedure TFrmMain.Button1Click(Sender: TObject);
var textcontent:TStringList;
begin
OpenDialog.Options:=ofAllowMultiSelec;
OpenDialog.Execute;
if OpenDialog.FileName='' then
  exit;
textcontent:= TStringList.create;
textcontent.LoadFromFile(OpenDialog.FileName);
textcontent.Text:=StrTran(textcontent.Text,'Label,','标签, ');
textcontent.Text:=StrTran(textcontent.Text,'LABEL,','标签, ');
textcontent.SaveToFile(OpenDialog.FileName);
end;

Answer 3

//如果你的‘标志’是某一个字符，那可以直接用下面这段代码试试，如果不是可以先用
StringReplace替换成一个特殊的字符后再试试下面代码试试。procedure TForm1.Button1Click(Sender: TObject);
var
  sl,ssll: TStringList;
  i: integer;
begin
  try
    sl:= TStringList.Create;
    ssll:= TStringList.Create;
    sl.LoadFromFile('c:\a.txt');
    sl.Delimiter:= '-';//标志
    sl.DelimitedText:= sl.Text;
    for i:= 0 to sl.Count-1 do
    begin
      ssll.Add(RightStr(sl[i],length(WideString(Trim(sl[i])))-1));
    end;
    ssll.SaveToFile('c:\b.txt');
  finally
    sl.Free;
    ssll.Free;
  end;
end;

Answer 4

http://community.csdn.net/Expert/topic/4898/4898948.xml?temp=.7004663

Answer 5

http://community.csdn.net/Expert/topic/4898/4898948.xml?temp=.7004663
---------------------------
---------------------------
不好意思，看错要求了
procedure TForm1.Button1Click(Sender: TObject);
var
 s,s1:string;
 sl:tstringlist;
 i:integer;
begin
 s := '标志 可能许多朋友的打印机出现问题时，标志 不知道如何去维修打印机，往往束手无策。标志 其实如打印断线、文字重影、偏色等一些小问题往往通过打印机随机附带的驱动软件就可以得到解决，标志今天就通过图解打印机随机驱动软件的一些维';
 s := stringreplace(s,'标志','/',[rfReplaceAll]);
 sl := tstringlist.Create;
 sl.Delimiter := '/';
 sl.DelimitedText := s; for i := 0 to sl.Count - 1 do
 begin
   s1 := sl.Strings[i];
   delete(s1,1,2);
   memo1.Lines.Append(s1);
 end;end;

Answer 6

while Pos('标志',str)>=1 do
  begin
   stringreplcae(str,midstr(str,Pos('标志',str)),strlen('标志')+2,'')
  end

Answer 7

StringReplace可以实现，我也蹭点分。

Answer 8

结贴了。有时间看下这个贴子，现在还有人回答！
http://community.csdn.net/Expert/topic/4901/4901593.xml?temp=.4565851