Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何根据文本框内的换行符生在数组？--新问题


  共有4228人关注过本帖树形打印复制链接

主题：[求助]如何根据文本框内的换行符生在数组？--新问题
帅哥哟，离线，有人找我吗？
jnletao
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：936 积分：7725 威望：0 精华：0 注册：2013/7/7 13:37:00 		[求助]如何根据文本框内的换行符生在数组？--新问题  发帖心情 Post By：2013/11/20 10:02:00 [只看该作者]

通过
Dim BagNums As String
For Each r As Row In Tables("表A")
    BagNums = BagNums & r("第一列") & vbcrlf 
Next
e.Form.Controls("TextBox1").Value = BagNums

我把第一列  内容加了换行符  赋值给了 文本框

请问如何根据文本框的换行字符来 生成数组

我的最终想法 是想通过 文本框的数据变化来决定如何增删除数据
[此贴子已经被作者于2013-11-20 10:21:53编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/20 10:04:00 [只看该作者]

根据换行符来分割看看吧      BagNums.spilt(vbcrlf)

 回到顶部
帅哥哟，离线，有人找我吗？
jnletao
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：936 积分：7725 威望：0 精华：0 注册：2013/7/7 13:37:00 		  发帖心情 Post By：2013/11/20 10:10:00 [只看该作者]

以下是引用Bin在2013-11-20 10:04:00的发言：
根据换行符来分割看看吧      BagNums.spilt(vbcrlf)

谢谢bin老师   BagNums.split(vbcrlf)
 回到顶部
帅哥哟，离线，有人找我吗？
jnletao
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：936 积分：7725 威望：0 精华：0 注册：2013/7/7 13:37:00 		  发帖心情 Post By：2013/11/20 10:20:00 [只看该作者]

Dim BagNums As String
BagNums  = e.Form.Controls("TextBox1").Value

BagNums = BagNums.Trim(vbcrlf)

Dim Values() As String
Values = BagNums.split(vbcrlf)
For Index As Integer = 0 To Values.Length - 1
    Messagebox.Show(Values(Index) & "---位置" & Index) 
Next

在用split(vbcrlf)组成数组时，最后总是多一个空值，是怎么回事？
貌似好像最后一个vbcrlf没法去除一样
[此贴子已经被作者于2013-11-20 10:21:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jnletao
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：936 积分：7725 威望：0 精华：0 注册：2013/7/7 13:37:00 		  发帖心情 Post By：2013/11/20 10:24:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/20 10:26:00 [只看该作者]

Trim 一下再分割
BagNums.Trim().split(vbcrlf)
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/11/20 11:11:00 [只看该作者]

Values = BagNums.split(vbcrlf)

 

改为：

 

Values = BagNums.replace(vbcrlf,vblf).split(vblf)

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03418 秒, 4 次数据查询