Mostrando las entradas con la etiqueta List. Mostrar todas las entradas
Mostrando las entradas con la etiqueta List. Mostrar todas las entradas
viernes, 24 de enero de 2020
existe indice en lista
viernes, 5 de julio de 2019
dataset a lista
Dim ds As New DataSet
Dim list As List(Of Long) = ds.Tables(0).AsEnumerable.Select(Function(x) x.Field(Of Long)(0)).ToList
fuente
Dim list As List(Of Long) = ds.Tables(0).AsEnumerable.Select(Function(x) x.Field(Of Long)(0)).ToList
fuente
viernes, 19 de octubre de 2018
ordenar lista de tuplas
Versión 1
Dim elem As New List(Of String)
Dim a As Integer
Dim b As Integer
Dim temp As String
Dim c As Integer = -1
For i As Integer = 0 To elem.Count - 1
c += 1
For j As Integer = c To elem.Count - 1
a = elem(i).Split(",")(0)
b = elem(j).Split(",")(0)
If b < a Then
temp = elem(i)
elem(i) = elem(j)
elem(j) = temp
End If
Next
Next
elem.Clear()
Versión 2
Dim elem As New List(Of String)
Dim sep As Char = ","
Dim a As Integer
Dim b As Integer
Dim temp As String
Dim c As Integer = -1
For i As Integer = 0 To elem.Count - 1
c += 1
For j As Integer = c To elem.Count - 1
a = elem(i).Split(sep)(0)
b = elem(j).Split(sep)(0)
If b < a Then
temp = elem(i)
elem(i) = elem(j)
elem(j) = temp
ElseIf b = a Then
a = elem(i).Split(sep)(1)
b = elem(j).Split(sep)(1)
If b < a Then
temp = elem(i)
elem(i) = elem(j)
elem(j) = temp
End If
End If
Next
Next
elem.Clear()
lunes, 14 de mayo de 2018
Cargar un archivo en una lista
Public dataTxt As New List(Of String)
dataTxt = File.ReadAllLines("archivo.txt").ToList()
dataTxt = File.ReadAllLines("archivo.txt").ToList()
jueves, 11 de enero de 2018
Transformar un arreglo a List
Dim ruts() As String
Dim listarut As New List(Of String)
listarut = ruts.ToList()
Dim listarut As New List(Of String)(ruts)
Dim listarut As New List(Of String)
listarut = ruts.ToList()
Dim listarut As New List(Of String)(ruts)
jueves, 1 de diciembre de 2016
Recorrer una lista y arreglo
Dim lista As List(Of String)
For i As Integer = 0 To lista.Count - 1
' Código aquí...
Next
Dim array() As String
For j As Integer = 0 To array.Length - 1
' Código aquí...
Next
Suscribirse a:
Entradas (Atom)