如何去除字符串中的换行

怎么去除字符串中的换行?
本帖最后由 cyh811122 于 2015-01-29 23:51:18 编辑
下面是一段 字符串,我把字符串中的每一个位的ascii读出来了每一个ascii 用|隔开,中文与ascii对照如下:
t5中成药、中药材、中药饮片、化学药制剂、抗生素制剂、生化药品、生物制品(除疫苗)、生物制品(除血液药品)
|104
|0 | 214 | 208 | 179 | 201 | 210 | 169 | 161 | 162 | 214 | 208 | 210 | 169 | 178 | 196 | 161 | 162 | 214 | 208 | 210 | 169 | 210 | 251 | 198 | 172 | 161 | 162 | 187 | 175 | 209 | 167 | 210 | 169 | 214 | 198 | 188 | 193 | 161 | 162 | 191 | 185 | 201 | 250 | 203 | 216 | 214 | 198 | 188 | 193 | 161 | 162 | 201 | 250 | 187 | 175 | 210 | 169 | 198 | 183 | 161 | 162 | 201 | 250 | 206 | 239 | 214 | 198 | 198 | 183 | 163 | 168 | 179 | 253 | 210 | 223 | 195 | 231 | 163 | 169 | 161 | 162 | 201 | 250 | 206 | 239 | 214 | 198 | 198 | 183 | 163 | 168 | 179 | 253 | 209 | 170 | 210 | 186 | 210 | 169 | 198 | 183 | 163 | 169 | 13 | 
t6中成药、中药材、中药饮片、化学药制剂、抗生素制剂、生化药品、生物制品(除疫苗)
|80
|0 | 214 | 208 | 179 | 201 | 210 | 169 | 161 | 162 | 214 | 208 | 210 | 169 | 178 | 196 | 161 | 162 | 214 | 208 | 210 | 169 | 210 | 251 | 198 | 172 | 161 | 162 | 187 | 175 | 209 | 167 | 210 | 169 | 214 | 198 | 188 | 193 | 161 | 162 | 191 | 185 | 201 | 250 | 203 | 216 | 214 | 198 | 188 | 193 | 161 | 162 | 201 | 250 | 187 | 175 | 210 | 169 | 198 | 183 | 161 | 162 | 201 | 250 | 206 | 239 | 214 | 198 | 198 | 183 | 163 | 168 | 179 | 253 | 210 | 223 | 195 | 231 | 163 | 169 | 13 | 
t7中成药、中药材、中药饮片、化学药制剂、抗生素制剂、生化药品、生物制品(除疫苗)、生物制品(除血液药品)
|104
|0 | 214 | 208 | 179 | 201 | 210 | 169 | 161 | 162 | 214 | 208 | 210 | 169 | 178 | 196 | 161 | 162 | 214 | 208 | 210 | 169 | 210 | 251 | 198 | 172 | 161 | 162 | 187 | 175 | 209 | 167 | 210 | 169 | 214 | 198 | 188 | 193 | 161 | 162 | 191 | 185 | 201 | 250 | 203 | 216 | 214 | 198 | 188 | 193 | 161 | 162 | 201 | 250 | 187 | 175 | 210 | 169 | 198 | 183 | 161 | 162 | 201 | 250 | 206 | 239 | 214 | 198 | 198 | 183 | 163 | 168 | 179 | 253 | 210 | 223 | 195 | 231 | 163 | 169 | 161 | 162 | 201 | 250 | 206 | 239 | 214 | 198 | 198 | 183 | 163 | 168 | 179 | 253 | 209 | 170 | 210 | 186 | 210 | 169 | 198 | 183 | 163 | 169 | 13 | 
t14中成药、中药饮片、化学药制剂、抗生素制剂、生化药品
|52
|0 | 214 | 208 | 179 | 201 | 210 | 169 | 161 | 162 | 214 | 208 | 210 | 169 | 210 | 251 | 198 | 172 | 161 | 162 | 187 | 175 | 209 | 167 | 210 | 169 | 214 | 198 | 188 | 193 | 161 | 162 | 191 | 185 | 201 | 250 | 203 | 216 | 214 | 198 | 188 | 193 | 161 | 162 | 201 | 250 | 187 | 175 | 210 | 169 | 198 | 183 | 13 | 

每个结尾共同的都是| 13 | ,是什么意思?最后13应该是#13换行,但是我用几种方法包括取 左串:jingyingfanwei := leftstr( jingyingfanwei,length(jingyingfanwei)-10) ; 还用了替换串的方法均不行,
似乎原字符串都没有变化 ,请问怎么回事? 或者高手给一个方法把字符串最后部分去掉即可!! 要不然在excel写入的总有个回车换行,想在一行显示出来。

用代码修改成功后,不知为何输出的时候还是换行:
成功读取EXCEL表数据并开始写入数据,请等待............
辽宁成大方圆医药连锁有限公司本溪溪湖分店中成药、中药材、中药饮片、化学药制剂、抗生素制剂、生化药品、生物制品(除疫苗)、生物制品(除血液药品)
|104
|0 | 214 | 208 | 179 | 201 | 210 | 169 | 161 | 162 | 214 | 208 | 210 | 169 | 178 | 196 | 161 | 162 | 214 | 208 | 210 | 169 | 210 | 251 | 198 | 172 | 161 | 162 | 187 | 175 | 209 | 167 | 210 | 169 | 214 | 198 | 188 | 193 | 161 | 162 | 191 | 185 | 201 | 250 | 203 | 216 | 214 | 198 | 188 | 193 | 161 | 162 | 201 | 250 | 187 | 175 | 210 | 169 | 198 | 183 | 161 | 162 | 201 | 250 | 206 | 239 | 214 | 198 | 198 | 183 | 163 | 168 | 179 | 253 | 210 | 223 | 195 | 231 | 163 | 169 | 161 | 162 | 201 | 250 | 206 | 239 | 214 | 198 | 198 | 183 | 163 | 168 | 179 | 253 | 209 | 170 | 210 | 186 | 210 | 169 | 198 | 183 | 163 | 169 | 13 | 
 
辽宁成大方圆医药连锁有限公司本溪溪湖分店中成药、中药材、中药饮片、化学药制剂、抗生素制剂、生化药品、生物制品(除疫苗)、生物制品(除血液药品|
|104
0 | 214 | 208 | 179 | 201 | 210 | 169 | 161 | 162 | 214 | 208 | 210 | 169 | 178 | 196 | 161 | 162 | 214 | 208 | 210 | 169 | 210 | 251 | 198 | 172 | 161 | 162 | 187 | 175 | 209 | 167 | 210 | 169 | 214 | 198 | 188 | 193 | 161 | 162 | 191 | 185 | 201 | 250 | 203 | 216 | 214 | 198 | 188 | 193 | 161 | 162 | 201 | 250 | 187 | 175 | 210 | 169 | 198 | 183 | 161 | 162 | 201 | 250 | 206 | 239 | 214 | 198 | 198 | 183 | 163 | 168 | 179 | 253 | 210 | 223 | 195 | 231 | 163 | 169 | 161 | 162 | 201 | 250 | 206 | 239 | 214 | 198 | 198 | 183 | 163 | 168 | 179 | 253 | 209 | 170 | 210 | 186 | 210 | 169 | 198 | 183 | 163 | 124 
------解决思路----------------------
function StringReplace (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

rfReplaceAll:全部替换
rfIgnoreCase:忽略大小写

CHR(13)是硬回车
CHR(10)是软回车
------解决思路----------------------
StringReplace (S, CHR(10), '',rfReplaceAll);
StringReplace (S, CHR(13), '',rfReplaceAll);
把函数执行两次,就可以把回车符去掉
------解决思路----------------------
一般换行字符是#13#10,删除二字符即可。

------解决思路----------------------
StringReplace(strContent, #13#10, '', [rfReplaceAll])