Dim s as string = Tables("xxx").current("yyyy")
Dim vals() As String = s.Replace(vbcr,"").split(vblf)
For each val as string in Vals
output.show(val)
next
Dim a As Stringa = CurrentTable.Current("第一列")Dim s() As String = a.Split(vblf)For i As Integer = 0 To s.Length-1Output.Show(s(i))Next