以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何根据文本框内的换行符生在数组？--新问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42715)
--  作者：jnletao
--  发布时间：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
--  发布时间：2013/11/20 10:04:00
--  
根据换行符来分割看看吧      BagNums.spilt(vbcrlf)
--  作者：jnletao
--  发布时间：2013/11/20 10:10:00
--  
以下是引用Bin在2013-11-20 10:04:00的发言：
根据换行符来分割看看吧      BagNums.spilt(vbcrlf)

谢谢bin老师   BagNums.split(vbcrlf)
--  作者：jnletao
--  发布时间：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
--  发布时间：2013/11/20 10:24:00
--  
图片点击可在新窗口打开查看
--  作者：Bin
--  发布时间：2013/11/20 10:26:00
--  
Trim 一下再分割
BagNums.Trim().split(vbcrlf)
--  作者：狐狸爸爸
--  发布时间：2013/11/20 11:11:00
--  

Values = BagNums.split(vbcrlf)

 

改为：

 

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