• INXI - ¿Detectar hardware...
  Foro: Mundo Linux
  Último mensaje por: tincho
  Hace 8 minutos
  » Respuestas: 0
  » Vistas: 4
• Proyecto Intriga: Estruct...
  Foro: Aplicaciones/Fragmentos de Código
  Último mensaje por: tincho
  Hace 20 minutos
  » Respuestas: 13
  » Vistas: 77
• Programa para renombrar m...
  Foro: Aplicaciones/Fragmentos de Código
  Último mensaje por: tercoide
  Hace 6 horas
  » Respuestas: 10
  » Vistas: 177
• Linux Essentials. Linux P...
  Foro: Mundo Linux
  Último mensaje por: Shell
  Hace 10 horas
  » Respuestas: 0
  » Vistas: 14
• Sqlite.¿ Es posible orden...
  Foro: Bases de Datos
  Último mensaje por: Shell
  Hace 11 horas
  » Respuestas: 3
  » Vistas: 36

• Mensajes del foro:3,437
• Temas del foro:601
• Miembros:118
• Último miembro:HenryGuzman

Buenas!.

Tengo un archivo de texto que tiene tropecientas mil líneas con este formato:

Cita:02/29/16|901120|TheZone/files/_2016/Break (1986)(Martin Aberle)[aka Demolition] [not in tosec].adf

SELECT strftime(fecha,'%Y-%m-%d') FROM JuegosAmiga;

Public Sub Form_Open()
 
  Dim contenidotexto As String
  Dim contenidomodificado As String
  Dim acontenido As String[]
 
  contenidotexto = File.Load(User.Home &/ "Descargas/filelist.txt")
  acontenido = Split(contenidotexto, gb.NewLine, "", True)
  contenidomodificado = CambiarFechaDeLineas(acontenido)
  File.Save(User.Home &/ "Descargas/filelist3.txt", contenidomodificado)
 
End
 
Public Function CambiarFechaDeLineas(contenido As String[]) As String
 
  ' Modifica el comienzo de la línea, sustituyendo el formato de la fecha
 
  Dim linea As String
  Dim otralinea As String
  Dim cambiofecha As String
  Dim salida As String
 
  Dim datos As String[]
  Dim unafecha As Date
 
  For Each linea In contenido
    datos = Split(Conv(linea, "latin1", "utf-8"), "|")
    unafecha = CDate(datos[0])
    otralinea = Format(unafecha, "yy/mm/dd")
    cambiofecha = Replace(linea, datos[0], otralinea)
    salida &= cambiofecha & gb.NewLine
    datos.Clear
  Next
 
  Return salida
 
End

Cita:02/29/16|901120|TheZone/files/_2016/Break (1986)(Martin Aberle)[aka Demolition] [not in tosec].adf
a
16/02/29|901120|TheZone/files/_2016/Break (1986)(Martin Aberle)[aka Demolition] [not in tosec].adf

Cita:sqlite> CREATE TABLE JuegosAmiga(
   ...> fecha INTEGER NOT NULL,
   ...> size INTEGER NOT NULL,
   ...> nombre TEXT NOT NULL
   ...> );
sqlite> .mode csv
sqlite> .separator |
sqlite> .import filelist3.txt JuegosAmiga
sqlite> .save mibase.sqlite3
sqlite> .exit

Aporto aquí ViewChooser, una pequeña extensión de Dirchooser. Dirchooser no expone los métodos Mode, que define el tipo de selección que se le puede hacer, ni Selection, que es un array de los items seleccionados del Treeview que contiene. Esta clase extiende Dirchooser para que estos métodos sean accesibles.



Espero que os sea útil.

Saludos

Buenas!.

Buscando una aplicación que hace uso de una base de datos, encontré un error en como presentaba un formulario al comenzar la aplicación.
Se trata de que al iniciar la aplicación muestre un formulario con una imagen y luego se cierre el formulario dando paso a otro formulario.

Lo extraño fue. Que ese formulario de presentación al mostrar la imagen, el formulario se iba a la esquina superior izquierda y no se centraba.
Ese código estaba en el evento Open. Puede que del cambio de QT4 a QT5 haya influido. La hice en el 2016.

Os muestro un ejemplo parecido al del formulario.

Private cuentasegundos As Integer
 
Public Sub Form_Open()
 
  Randomize
    
  With Timer1
    .Delay = 1000
    .Start()
  End With
   
   'Código que se quiera añadir. Como es el del evento activate para probar efecto
   
End
 
Public Sub Timer1_Timer()
 
  If cuentasegundos = 2 Then
    Timer1.Stop
    Me.Close
  Else
    cuentasegundos += 1
  Endif
 
End
 
Public Sub Form_Activate()
 
  Dim ppicture As New Picture
  Dim nomimagenes As String[]
  Dim ruta As String
 
  'Sin la creación de un paquete de instalación, temporalmente uso el directorio de la aplicación para las imágenes
  ruta = Application.Path &/ "Imagenes/"   
  nomimagenes = Dir(ruta, "*.png")
 
  ppicture = Picture.Load(ruta & nomimagenes[Rand(nomimagenes.Max)])
 
  With PictureBox1
    .Picture = ppicture   
    .Expand = True
  End With
 
  With Me
    .Center()
    .Arrangement = Arrange.Fill
    .W = ppicture.W
    .H = ppicture.H
  End With
 
End