怎样去掉换行符？【已解决】 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样去掉换行符？【已解决】

共有1833人关注过本帖树形打印复制链接主题：怎样去掉换行符？【已解决】

有点辣

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：66 积分：606 威望：0 精华：0 注册：2014/3/4 13:09:00

怎样去掉换行符？【已解决】 发帖心情

Post By：2017/10/26 20:20:00 [只看该作者]

见下图，想把文本框里的内容去掉换行符后，用竖线符号拼接

我写的代码是：

Dim tx As WinForm.TextBox = e.Form.Controls("TextBox1")

Dim sts() As String = tx.value.split(vbcrlf)

Dim str As String

For Each st As String In sts

str = str & "|" & st.trim(vbcrlf)

msgbox(str.trim("|"))

但出来不是想要的效果，希望是出来： 1|2|3

请问怎么改代码呢？

此主题相关图片如下：qq截图20171026201625.jpg

[此贴子已经被作者于2017/10/26 20:41:08编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/26 20:32:00 [只看该作者]

[此贴子已经被作者于2017/10/26 20:33:03编辑过]

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/26 20:33:00 [只看该作者]

Dim tx As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim str As String = tx.text.Replace(vbcrlf, "|")
msgbox(str)

有点辣

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：66 积分：606 威望：0 精华：0 注册：2014/3/4 13:09:00

Post By：2017/10/26 20:41:00 [只看该作者]

以下是引用有点甜在2017/10/26 20:33:00的发言：
Dim tx As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim str As String = tx.text.Replace(vbcrlf, "|")
msgbox(str)

简单粗暴，赞！

下一主题 >> << 上一主题

主题：怎样去掉换行符？【已解决】