如何去掉文本中的换行符问题!(20)

  • 主题发起人 主题发起人 新来的菜鸟
  • 开始时间 开始时间

新来的菜鸟

Unregistered / Unconfirmed
GUEST, unregistred user!
在文本中有个黑色方块的换行符,如何把他替换掉!这个换行符只能在记事本里复制粘贴,如果把他粘贴到别的地方他就会自动换一行了,如何把这个黑色方块的换行符去掉呢?麻烦那位高手告知谢谢!
 
你在文本文件菜单上有一个替换~~直接替换不就得了~~还是需要程序实现?
 
呵,我不是要程序来实现,只要能替换掉就可以,但我说了,这个换行符除了在记事本里能复制粘贴显示出来,如果粘贴到别的地方光标就换了一行所以在替换里根本粘贴不进去这个字符如何替换呢?
 
单独复制此换行符至替换栏处的查找内容,替换内容为空即可~~另,兄弟你问了问题要及时结贴~~
 
就是这个文本里的换行符,请那位大哥帮忙看看如何替换掉,谢谢http://sv007d.mofile.com/4148676467066509/RGlzazIvMjAvMjA5NzgxNTQxNi80LzQ0ODA4Nzg5MDgwODE0MA../样板1(直接刷选).txt
 
下不了``~你直接贴出来如何?
 
贴不了,因为这种特殊字符只能在记事本里粘贴时才能显示,如果粘贴到别的地方光标就自动换行了!
 
你点DFW上的写作笔记,即可上传~~
 
top582@163.com 邮件已发麻烦这位大哥帮看看,谢谢!
 
我上传到笔记里了http://www.delphibbs.com/keylife/iblog_show.asp?xid=31698但看不到有下载附件的地方呢?
 
那位大哥帮看了呢?结果怎样?小弟在线等待急.....谢谢各位了
 
把 char10去掉,再把char13去掉,用替换。也可以用 editplus 之类 支持处理这个问题的软件来处理。
 
char10去掉?是在记事本里操作么?我现在并不是一定要程序实现,只要能去掉用工具或其他的方法也可以!
 
这个只能先把txt文件内容读出来后,用下面函数处理了~~StringReplace(原来的字符串,需要被替换的部分#10#13,替换后的部分,[rfReplaceAll]);换行符为:#10#13
 
还有就是你把内容贴到word中,替换选项==>高级==>特殊字符==>段落标记(查找内容)替换内容为空即可
 
StringReplace(str,#10#13,'',[rfReplaceAll]);str是原来的字符串,#10#13是回车换行的标志,''是换成空字符。StringReplace的使用可以参考delphi的帮助,里边有例子。
 
var myfile:Textfile; s:string; i,j:integer; strlist:Tstringlist; if OpenDialog2.Execute() then begin Assignfile(myfile,OpenDialog2.filename); Reset(myfile); Assignfile(myfile,OpenDialog2.filename); Reset(myfile); while not eof(myfile) do begin readln(myfile,s); strlist:=SplitString(s,','); s:=StringReplace(s,#10#13,'',[rfReplaceAll]); end;end;麻烦大家帮我看看读取到有换行符的地方就自动换成两行读取了,看看有没有办法能把换行符去掉,谢谢各位!还有我在我的笔记里上传了附件了为何在我看不到附件呢?
 
i:=1; while i<=length(tmpstr) do begin if (tmpstr=#10) or (tmpstr=#13) then delete(tmpstr,i,1) else inc(i); end;
 
其实就是这个网站上所说的问题http://k.pconline.com.cn/question/1275140.html如何解决呢?
 
后退
顶部