关于删除多余回车的问题(100分)

dedragon · 2003-12-11

我想实现的功能如下：有个button和RichEdit，在RichEdit输入或者粘贴一篇文字，文字中带有很多多余的回车键。判断的正确回车的标准是以中文的段落标点符号。按button后就可以自动的把多余的回车键删除。并且有多个段落的话，也按照中文的格式，段落行前留两个空格再书写文字。 如下面一段文字：     13131313131331313     1313131313131313212544485；     4798778784。大幅度法，大幅度法，大幅度法地方的热。     反对反对。 整理之后输出为：     131313131313313131313131313131313212544485；4798778784。大幅度法，大幅度法，大幅度法地方的热。     反对反对。 原来有个vb程序的了，我根据vb程序改成delphi如下： procedure TForm1.Button3Click(Sender: TObject); var   I,j,Strlen,linecount:integer;   //J为当前位置，Strlen为文本长度   Content,temp,temp1,buffer,buffer1:string;  //Content为文本内容，temp为临时字符，buffer为原有字符 begin   linecount:=RichEdit1.Lines.count;   for I:=0 to linecount-1 do   begin   buffer1:=RichEdit1.Lines;     Content:=Trim(buffer1);   Content:='    '+ Content;   strlen:=length(buffer1);  // showmessage(inttostr(strlen)); //  showmessage(buffer1);   for I=3 to strlen-1 do begin     buffer:=Midstr(Content, I, 1);     if buffer=Chr(13) then       temp:=Midstr(Content, I+1, 1);       if ord(temp)=10 then         temp:=Midstr(Content, I-1, 1);         if temp=Chr(10) or temp='　' or (temp<>Chr(34) And temp<>Chr(39) And AnsiMatchStr(temp, '。”！：？.!:?')=0) then           Content:=Midstr(Content, 1, I-1) + Midstr(Content, I+2, strlen-1);           strlen:=strlen-2;           I:=I-1         else           Content:=Midstr(Content, 1, I+1) + '　　' + Midstr(Content, I+2, strlen-1);           strlen:=strlen+2;           I:=I+3;         end;       end;     end;     I:=I+1;   Content:=Trim(Content);   if LeftStr(RightStr(Content,2),1) = Chr(13) then     Content:=Trim(LeftStr(Content, Length(Content) - 2));   end;   RichEdit1.Lines:=Content;   end;                       end; 但编译不通，请朋友们多多帮忙，或者给我个新的程序也可。

miaofeng · 2003-12-11

是否可以利用StrUtils单元的： function AnsiReplaceStr(const AText, AFromText, AToText: string): string; 或者 function AnsiReplaceText(const AText, AFromText, AToText: string): string; 将回车替换成空字符串''或者其它什么的：）

dedragon · 2003-12-11

我是要删除多余的回车，并不是把所有的回车都去掉或者改成什么符号。 你说的这个我在之前的帖子也看到过了，并不是同一个意思的。 例如。”！：？.!:?这些符号后面有回车的话，就表示是正确的更换段落的标志，则不用删除，并把后面的文字继续按这种方法处理。

lichengbin · 2003-12-11

try this code: uses StrUtils; procedure TForm1.Button1Click(Sender: TObject); var   I: Integer;   S, Line: string; begin   S := '';   for I := 0 to Memo1.Lines.Count - 1 do   begin     Line := Trim(Memo1.Lines);     if AnsiSameText(LeftStr(Line, 2), '　'{chinese space}) then       Line := Copy(Line, 3, MaxInt);     if AnsiSameText(LeftStr(Line, 2), '　'{chinese space}) then       Line := Copy(Line, 3, MaxInt);     if Line = '' then Continue;     S := S + Line;     if (AnsiPos(RightStr(Line, 2), '。”！：？') > 0) or        (AnsiPos(RightStr(Line, 1), '.!:?') > 0) then     begin       S := S + #13#10;       if I <> Memo1.Lines.Count - 1 then         S := S + '　　'{2 chinese spaces};     end;   end;   Memo2.Lines.Text := S; end;

仙剑奇侠 · 2003-12-11

我看了你写的程序，你的Pascal语法不太熟啊 其中用的字符串处理函数MidStr没有吧，应该用Copy LeftStr、RightStr这些函数都没有，也得换成Copy 还有For循环中的循环变量不能用程序改变，还有你的两个嵌套循环怎么用一个循环变量 还有AnsiMatchStr(temp, '。”！：？.!:?')=0是完成什么功能的，我在VB中也没找到 AnsiMatchStr(temp, '。”！：？.!:?')这句中的temp你只取了一个字符，却要和'！'做比较，'！'是两个字符，这个可以自己写一个函数处理 如果真的想完成这个完整功能的话，写清楚一点，你根据什么来确定是一个段落呢（确定是一个段落的条件?）。 Email :q82s11c21@163.com

仙剑奇侠 · 2003-12-11

你们是真逗啊，Delphi中有自带的LeftStr函数 摘自lichengbin大虾，我改了一点 procedure TForm1.Button1Click(Sender: TObject); var  I: Integer;  S, Line,tmp: string; begin  S := '';  for I := 0 to Memo1.Lines.Count - 1 do  begin    Line := Trim(Memo1.Lines);    if AnsiSameText(Copy(Line,1, 2), '　'{chinese space}) then      Line := Copy(Line, 3, MaxInt);    if AnsiSameText(Copy(Line,1, 2), '　'{chinese space}) then      Line := Copy(Line, 3, MaxInt);    if Line = '' then Continue;    S := S + Line;    tmp :=Copy(Line,Length(Line)-1,2);    if ((tmp= '。')or(tmp ='”')or(tmp='！')or(tmp='：')or(tmp='？')) or       (Line[Length(Line)] in [ '.','!',':','?']) then    begin      S := S + #13#10;      if I <> Memo1.Lines.Count - 1 then        S := S + '　　'{2 chinese spaces};    end;  end;  Memo2.Lines.Text := S; end;

仙剑奇侠 · 2003-12-11

我又看了一下，改的也不对，和你原来的程序不一样了，好像缺点什么，我再看看

dedragon · 2003-12-11

to lichengbin：     您的程序我测试过，基本上是完成了我所说的内容，但第一行前还没实现空两格，其他特殊情况还没试过。 to 仙剑奇侠：     不好意思，AnsiMatchStr是VB里的函数，是判断一个字符是否与某串字符中的某一个想匹配的。我想改成delphi的，但找不到同一功能的函数，忘了注释出来。另外我认为判断为段落的根据就是在。”！：？.!:?这几种符号后面加上回车键就能判断这是一段的结束了，然后另起一段空两个格开始书写后面的文字。

仙剑奇侠 · 2003-12-11

等中午吃过饭我就给你写出来

lichengbin · 2003-12-11

procedure TForm1.Button1Click(Sender: TObject); var   I: Integer;   S, Line: string; begin   S := '　　'{2 chinese spaces};   for I := 0 to Memo1.Lines.Count - 1 do   begin     ....   end;   if Length(S) = 4 then S := '';   Memo2.Lines.Text := S; end;

仙剑奇侠 · 2003-12-11

var   s,t :AnsiString;   tmpStr,tmp :string;   Ch :Char;   i :Integer; begin   s :=RichEdit1.Text;   t :='';   while AnsiPos(#13,s) >0 do   begin     i :=AnsiPos(#13,s);     tmpStr :=Copy(s,1,i);     Delete(s,1,i);     tmp :=Copy(tmpStr,Length(tmpStr)-2,2);     if Length(tmp) >=2 then     begin       Ch :=tmp[2];       if ((tmp= '。')or(tmp ='”')or(tmp='！')or(tmp='：')or(tmp='？'))               or(ch in in [ '.','!',':','?']) then         t :=t+tmpStr+'　　'{2 chinese space}       else         t :=t+Copy(tmpStr,1,i-1);     end     else       t :=t+Copy(tmpStr,1,i-1);     if Length(s) > 0 then       if s[1] = #10 then         Delete(s,1,1);   end;   RichEdit2.Text :=t; end;

dedragon · 2003-12-11

谢谢各位的回答，仙剑奇侠和lichengbin朋友的都能实现我所说的功能~

关于删除多余回车的问题(100分)

dedragon

Unregistered / Unconfirmed

miaofeng

Unregistered / Unconfirmed

dedragon

Unregistered / Unconfirmed

lichengbin

Unregistered / Unconfirmed

仙剑奇侠

Unregistered / Unconfirmed

仙剑奇侠

Unregistered / Unconfirmed

仙剑奇侠

Unregistered / Unconfirmed

dedragon

Unregistered / Unconfirmed

仙剑奇侠

Unregistered / Unconfirmed

lichengbin

Unregistered / Unconfirmed

仙剑奇侠

Unregistered / Unconfirmed

dedragon

Unregistered / Unconfirmed

Similar threads