以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  删除空值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=23093)
--  作者：lpxjw_zyl
--  发布时间：2012/9/1 20:34:00
--  删除空值
Dim bgz As String = e.Form.Controls("TextBox25").text
Dim bgjh As New List(Of String)
bgjh.AddRange(bgz.replace(chr(13),"").split(chr(10)))
--  作者：lpxjw_zyl
--  发布时间：2012/9/1 20:39:00
--  

Dim bgz As String = "asdasd|sadsa|123|||124134"
Dim bgjh As New List(Of String)
Dim xhs,xhs1 As String
bgjh.AddRange(bgz.Split(chr(10)&chr(13)))
For Each xhs In bgjh
    Dim zljh As New List(Of String)
    zljh.AddRange(xhs.Split("|"))
    For i As Integer = 1 To zljh.Count
        If xhs1 = "" Then
            zljh.Remove("")
        End If       
    Next
    MessageBox.Show(xhs)
    For Each xhs1 In zljh
        MessageBox.Show(xhs1)
    Next
Next