一个以逗号分隔的字段如何将其值拆分用datagrid读出来

[a791223]

字段内容为.../download/1.rar,../download/2.rar,
如何将逗号分隔的值拆分开来，用datagrid读出来。

[bitsbird]

split

[liuyu202]

同意楼上！
用split函数将字符串分解为字符串数组！

[smoothwood]

Dim s As String = ".../download/1.rar,../download/2.rar"
Dim sAry() As String = s.Split(",")
DataGrid1.DataSource = sAry
DataGrid1.DataBind()

[wangsaokui]

using System;

public class SplitTest {
public static void Main() {
string words = ".../download/1.rar,../download/2.rar";
string [] split = words.Split(new Char[] {'.'});
foreach (string s in split) {
if (s.Trim() != "")
{
DataTable DT = New DataTable();
DataRow drowrow = New DataRow();
drowrow=DT.NewRow();
drowrow("filename")=s;
DT.Rows.ADD(drowrow);
}
}
DataView dv=New DataView();
dv=DT.DefaultView;
datagrid1.datasource=dv;
datagrid1.DataBind;
}
}

[kuibobo]

wangsaokui(无间道II(前传)) 比俺快了一步,

对,就是这样转换

但俺还是贴出VB的给你看看
DBCmd.CommandText = "Select 你的那个字段 From UserInfo Where UserName='" & Session("UserID") & "'"
Try
Condb.Open()
ReadDB = DBCmd.ExecuteReader
ReadDB.Read()
Users = Split(ReadDB("你的那个字段"), ",")
Catch ex As Exception
Response.Write(ex.Message)
Finally
If (Not Condb Is Nothing) Then
Condb.Close()
End If
End Try

Dim len As Int16

If Me.IsPostBack = False Then
Dim pubs As New DataSet
Dim comTable As New DataTable("comTable")
Dim comColu As New DataColumn("UserID")
Dim comRow As DataRow

comColu.DataType() = System.Type.GetType("System.String")
comColu.ColumnName = "UserID"
comColu.ReadOnly = True
comColu.Unique = True

comTable.Columns.Add(comColu)

For len = 0 To Users.Length - 2 '因为数组的最后一个是空值,所以只填充到倒数第二个
comRow = comTable.NewRow
comRow("UserID") = Users(len)
comTable.Rows.Add(comRow)
Next


pubs.Tables.Add(comTable)

dg_friendlist.DataSource = pubs
dg_friendlist.DataBind()


End If

[a791223]

Do While objdataread.Read = True
comRow = comTable.NewRow

' count = count + 1
comRow("notetitle") = objdataread("notetitle")
comRow("notecontent") = objdataread("notecontent")
comRow("notetime") = objdataread("notetime")
comRow("noteappear") = objdataread("noteappear")
comRow("noteadduser") = objdataread("noteadduser")


If IsDBNull(objdataread("noteloadadd")) = False Then
Dim sAry() As String = Split(objdataread("noteloadadd"), ",")

Dim sArytext As String = ""

For i = 0 To sAry.Length - 2 '因为数组的最后一个是空值,所以只填充到倒数第二个
sArytext = sArytext & "<a href=" & sAry(i) & ">下载" & i + 1 & "</a>"
Next
comRow("noteload") = sArytext

ElseIf IsDBNull(objdataread("noteloadadd")) = True Then

comRow("noteload") = "无下载"
Else
comRow("noteload") = "无下载"
End If
comTable.Rows.Add(comRow)

Loop


////问题解决了一半为什么如上写的语句第一条记录不读取呢，始终缺第一条。

[lyhold]

wangsaokui(无间道II(前传)) (

方法很好

string [] split = words.Split(new Char[] {'.'});

这个是关键
]

[a791223]

Do While objdataread.Read为什么无法读取第一条记录的值呢。

[a791223]

up

[BossFriday]

看看：
string.split();
DataTable
的帮助就能实现。

[Mybeautiful]

Public Function CreatRecord(ByVal Cols As String) As DataView '給定列名,創建空表 Dim dt As DataTable
Dim dv As DataView
'Dim dr As DataRow
Dim I As Integer
Dim j As Integer
Dim TempCol
TempCol = Split(Cols, ",")
dt = New DataTable
I = UBound(TempCol)
For j = 0 To I
dt.Columns.Add(New DataColumn(TempCol(j), GetType(String)))
Next
dv = dt.DefaultView
CreatRecord = dv
End Function

Public Function FillRowToTable(ByRef ViewName As DataView, Optional ByVal Values As String = "") As DataView
Dim dr As DataRow
Dim dt As DataTable
Dim I As Integer
Dim j As Integer
Dim TempCol
dt = ViewName.Table
dr = dt.NewRow
If Values = "" Then
For j = 0 To I
dr(j) = "-"
Next
Else
TempCol = Split(Values, "!^")
I = UBound(TempCol)
For j = 0 To I
dr(j) = TempCol(j)
Next
End If
'向數據表中添加行
dt.Rows.Add(dr)
Return dt.DefaultView
End Function

使用:
dv=CreatRecord("col1,col2,col3")

dv=FillRowToTable(dv,"value1,value2,value3")