| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- split 不能分开文本 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114642) |
| -- 作者：zhaohj611718 -- 发布时间：2018/2/12 9:15:00 -- split 不能分开文本 请老师帮忙看看我这段代码，想用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)) Next
|
| -- 作者：有点甜 -- 发布时间：2018/2/12 9:38:00 -- 代码没问题，如下测试没问题
Dim Multi As String = "资金/银行/卡号" 上传具体实例测试。 |
| -- 作者：zhaohj611718 -- 发布时间：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 |
| -- 作者：有点甜 -- 发布时间：2018/2/12 10:54:00 -- 弹出值看看。
msgbox(e.Form.Controls("TextBox4").Value) msgbox(e.Form.Controls("TextBox4").Text) |
| -- 作者：zhaohj611718 -- 发布时间：2018/2/12 11:34:00 -- 资金流水\\农行\\6228***0271 |
| -- 作者：zhaohj611718 -- 发布时间：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)) Next 这样也只是弹出 资金流水\\农行\\6228***0271 这一段文字 和e.Form.Controls("TextBox4").Text 弹出的内容一样
|
| -- 作者：有点甜 -- 发布时间：2018/2/12 11:58:00 -- 改成 Values = Multi.split("\\") |
| -- 作者：zhaohj611718 -- 发布时间：2018/2/12 13:37:00 -- 好了，大意了 |