split 不能分开文本 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → split 不能分开文本

共有2431人关注过本帖树形打印复制链接主题：split 不能分开文本

zhaohj611718

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

加好友

发短信

等级：小狐帖子：314 积分：3772 威望：0 精华：0 注册：2012/10/29 15:51:00

split 不能分开文本 发帖心情

Post By：2018/2/12 9:15:00 [只看该作者]

请老师帮忙看看我这段代码，想用split 分开我TEXTBOX里的文本（资金/银行/卡号）怎么测试都只显示（资金/银行/卡号）不能分开，请帮我直接修改下代码，多谢!!!!!!!!

Dim Multi As String = e.Form.Controls("TextBox4").Value

Dim Values() As String

Values = Multi.split("/")

Dim rdo As WinForm.RadioButton

rdo = Forms("资金流水").Controls("RadioButton1")

If rdo.Checked = True Then

For Index As Integer = 0 To Values.Length - 1

MessageBox.show(Values(Index))

有点甜

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

加好友

发短信

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

Post By：2018/2/12 9:38:00 [只看该作者]

代码没问题，如下测试没问题

Dim Multi As String = "资金/银行/卡号"
Dim Values() As String
Values = Multi.split("/")
For Index As Integer = 0 To Values.Length - 1
MessageBox.show(Values(Index))
Next

上传具体实例测试。

zhaohj611718

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

加好友

发短信

等级：小狐帖子：314 积分：3772 威望：0 精华：0 注册：2012/10/29 15:51:00

Post By：2018/2/12 10:19:00 [只看该作者]

Dim Multi As String = "资金/银行/卡号" '把"资金/银行/卡号"换成 e.Form.Controls("TextBox4").Value

怎么就不行了，是什么问题
Dim Values() As String
Values = Multi.split("/")
For Index As Integer = 0 To Values.Length - 1
MessageBox.show(Values(Index))
Next

有点甜

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

加好友

发短信

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

Post By：2018/2/12 10:54:00 [只看该作者]

弹出值看看。

msgbox(e.Form.Controls("TextBox4").Value)

msgbox(e.Form.Controls("TextBox4").Text)

zhaohj611718

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

加好友

发短信

等级：小狐帖子：314 积分：3772 威望：0 精华：0 注册：2012/10/29 15:51:00

Post By：2018/2/12 11:34:00 [只看该作者]

资金流水\农行\6228***0271

zhaohj611718

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

加好友

发短信

等级：小狐帖子：314 积分：3772 威望：0 精华：0 注册：2012/10/29 15:51:00

Post By：2018/2/12 11:57:00 [只看该作者]

Dim Multi As String = e.Form.Controls("TextBox4").Text.Trim()

Dim Values() As String

Values = Multi.split("/")

For Index As Integer = 0 To Values.Length - 1

MessageBox.show(Values(Index))

这样也只是弹出资金流水\农行\6228***0271 这一段文字

和e.Form.Controls("TextBox4").Text 弹出的内容一样

有点甜

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

加好友

发短信

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

Post By：2018/2/12 11:58:00 [只看该作者]

改成 Values = Multi.split("\")

zhaohj611718

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

加好友

发短信

等级：小狐帖子：314 积分：3772 威望：0 精华：0 注册：2012/10/29 15:51:00

Post By：2018/2/12 13:37:00 [只看该作者]

好了，大意了

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

主题：split 不能分开文本