怎么去除字符串中的换行?

cyh811122 2015-01-29 11:11:13
下面是一段 字符串,我把字符串中的每一个位的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
...全文
413 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
js0001 2015-01-31
  • 打赏
  • 举报
回复
StringReplace(strContent, #13#10, '', [rfReplaceAll])
doloopcn 2015-01-30
  • 打赏
  • 举报
回复
StringReplace (S, CHR(10), '',rfReplaceAll); StringReplace (S, CHR(13), '',rfReplaceAll); 把函数执行两次,就可以把回车符去掉
doloopcn 2015-01-30
  • 打赏
  • 举报
回复
function StringReplace (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; rfReplaceAll:全部替换 rfIgnoreCase:忽略大小写 CHR(13)是硬回车 CHR(10)是软回车
lyhoo163 2015-01-30
  • 打赏
  • 举报
回复
一般换行字符是#13#10,删除二字符即可。

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧