document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public Sub _new()
  4.  
  5. End
  6.  
  7. Public Sub Form_Open()
  8.  
  9.   Dim lista As New String[]
  10.   Dim it As Iterador
  11.  
  12.   \'defino lista de elementos
  13.   lista.Add("hola 1")
  14.   lista.Add("medio 2 ")
  15.   lista.Add("medio-previo 3")
  16.   lista.Add("previo fin 4")
  17.   lista.Add("fin definitivo 5")
  18.  
  19.   \'Iterador hacie adelante
  20.   it = New IteradorHaciaAdelante(lista)
  21.   Print "Lista hacia adelante..."
  22.   \'escribe lista
  23.   escribeLista(it)
  24.  
  25.   \'Iterador hacie adelante
  26.   Print "Lista hacia atras..."
  27.   it = New IteradorHaciaAtras(lista)
  28.   \'escribe lista
  29.   escribeLista(it)
  30.  
  31.   \'Iterador hacie adelante Pares
  32.   Print "Lista posiciones pares.."
  33.   it = New IteradorPares(lista)
  34.   \'escribe lista
  35.   escribeLista(it)
  36.  
  37.   \'iterador por contenido
  38.   Print "elementos de la lista que contengan la letra m"
  39.   it = New IteradorContenidoCadena(lista, "m")
  40.   \'escribe lista
  41.   escribeLista(it)
  42.  
  43.   \' creando listas....
  44.   creandolista(lista)
  45.  
  46. End
  47.  
  48. Public Sub escribeLista(it As Iterador)
  49.  
  50.   Print it.primero()
  51.   While it.isdone()
  52.     Print it.siguiente()
  53.   Wend
  54.  
  55. End
  56.  
  57. Public Sub creandolista(listilla As String[])
  58.  
  59.   Dim listaMejorada As ListaCadenaAbstracta
  60.   Dim it As New IteradorHaciaAdelante(listilla)
  61.  
  62.   listaMejorada = New ListaCadenaAbstracta(listilla)
  63.  
  64.   listaMejorada.setinterador(It)
  65.   Print "Lista mejorada..."
  66.   listaMejorada.escribeLista()
  67.   Print "Primer elemento:"
  68.   listaMejorada.elementoprimero()
  69.   Print "Siguiente elemento:"
  70.   listaMejorada.elementosiguiente()
  71.  
  72. End
');