Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Importar .log en tiempo real

cutuche

Recommended Posts

cutuche Novato

cutuche

publicado
publicado

Hola a todos,

He buscado importar .log y he visto cosas interesantes, pero necesito que sea en tiempo real me explico.

Yo tengo un fichero (hola.txt ubicado en el escritorio, el nombre y ubicación lo puedo cambiar como a donde quiera). Al cual desde un GPS le llegan en tiempo real cada 0,2 sg una línea con información (en el fichero adjunto se ve la información). Y lo que quiero es que excel "coja" esa información y me pase esa linea (que esta separada por comas) a un celda de excel, el primer numero hasta la coma a A1, despues de la primera coma hasta la segunda a A2 y así hasta el final de la línea.

Importante en tiempo real es decir cuando grabe en hola automaticamente pase a excel.

Os adjunto ficheros.

Muchas gracias.

Libro1.zip

hola.zip

cutuche Novato

cutuche

publicado
  • Autor
publicado

No el GPS pone el siguiente registro en la fila siguiente.

Es decir no lo machaca.

Lo hace asi:

$GPGGA,170834,4124.8963,N,08141.6838,W,1,05,1.5,280.2,M,-34.0,M,,,*61

$GPGGA,170836,4124.8963,N,08161.6838,W,1,05,1.5,280.2,M,-34.0,M,,,*54

$GPGGA,170856,4124.8963,N,08152.6838,W,1,05,1.5,280.2,M,-34.0,M,,,*57

......

.....

La estructura es siempre la misma al inicio siempre empieza por $GPGGA, .... y los datos (campos) siempre van separados por comas.

digitalboy Principiante

digitalboy

publicado
publicado

no te serviría importar datos desde orígenes externos son esa opcion importas los datos a excel y viene la opcion de refrescar la importación cada x minutos deseados.

Forzosamente debe ser en tiempo real? ademas cada 2 segundos o cada .2 segundos? si es la segunda opción como que a simple vista lo veo media complicado por el pequeño lapso de tiempo ademas conforme vaya creciendo tu archivo mas lento se hará el acceso a este con el incremento de la información. pero como reto suena interesante...

Se me ocurre hacer una macro que que constantemente este leyendo leyendo el archivo y actualizando las celdas de la hoja cada cierto tiempo independientemente de si el archivo se ha actualizado o no. Esperemos al buen macro Antonio!

cutuche Novato

cutuche

publicado
  • Autor
publicado

He estado mirando lo que dice digitalboy, y creo que sería una buena opción. Me explico.

Ese fichero .log lo genera un programa que controla el GPS, a ese programa le llega información cada 0,2 sg y crea el .log.

La comunicación entre ese programa y el GPS se realiza a través del un puerto serie.

Entonces en vez de leer ese .log, ¿podríamos leer la información que llega por el puerto serie y cargarla a excel? Así no necesitariamos leer el .log.

He visto por ahi en internet algunas cosas pero se escapan de mis conocimientos por ejemplo.

ESTO QUE COLOCO A CONTINUACION SON VISITAS A PAGINAS WEB (POR SI VALEN DE AYUDA)

Serie.ReadLine() 'Leer una linea

Function ReceiveSerialData() As String ' Receive strings from a serial port. Dim returnStr As String = "" Using com1 As IO.Ports.SerialPort = _ My.Computer.Ports.OpenSerialPort("COM1") Do Dim Incoming As String = com1.ReadLine() If Incoming Is Nothing Then Exit Do Else returnStr &= Incoming & vbCrLf End If Loop End Using Return returnStr End FunctionGracias

digitalboy Principiante

digitalboy

publicado
publicado

Entonces en vez de leer ese .log, ¿podríamos leer la información que llega por el puerto serie y cargarla a excel? Así no necesitariamos leer el .log.

Exactamente que quieres hacer? me refiero a que si quieres llevar un historial o solo te preocupa visualizar el valor mas actual?

El codigo que brindas me suena a .net pudiera ser util pero tendriamos que utilizar COM para mandar los datos a Excel.

cutuche Novato

cutuche

publicado
  • Autor
publicado

No quiero un historial solo visualizar el valor mas actual.

Lo del código (he aqui mi problema) no lo controlo, solo pongo algo que he visto en internet por si os da alguna pista, lo mismo así lo lio mas.

Muchas gracias

Antoni Veterano

Antoni

publicado
publicado

Lo siento compañero, pero no va a poder ser, no ha habido manera, seguramente por falta de conocimientos, a ver si alguna de las mentes brillantes del soft y hard base no echa una mano.

Un saludo

Invitado Cacho R

Invitado Cacho R

publicado
publicado

Hola! Alfonso (Antoni y Digital)

La opción que adjunto me parece que es suficientemente intuitiva. Sin embargo comento:

- Localizo un archivo de texto en el escritorio llamado "Hola.txt"

- Para evitar interferencias con el proceso principal, lo copio a un archivo temporal

- Capturo la última línea del archivo de texto

- La despliego en la fila 1 del Excel

Las opciones del menú son:

- Ejecutar una sola vez el proceso (Actualizar)

- Ejecutar en un bucle sin fin el proceso (Ciclo)

- Interrumpir el ciclo (Detener ciclo)

Mientras se captura la información, podrías estar utilizando el Excel para trabajar con otros archivos (DoEvents).

"Juega" un poco con ésto y fíjate si es lo que buscabas.

Saludos, Cacho R.

ultimoRegistro.xls

Invitado Cacho R

Invitado Cacho R

publicado
publicado

Me olvidé comentar que hice un par de pruebas suponiendo que el archivo de texto (Hola.txt) contuviese unos 144 mil registros, que serían los acumulados durante una jornada de 8 horas por tu proceso de captura de datos y a un promedio de 5 registros por segundo.

Conclusión: ¡No encontré problema alguno!...

Sin embargo es posible que en un proceso de "ciclo" haya un cruce entre el programa principal y la macro del Excel.

De ser así: comenta lo que hayas observado y veremos como solucionar esa -eventual- dificultad.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de la comunidad
      Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR

  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29
    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Cambios en el Control Horario
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • DiegoPC
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por DiegoPC · publicado

      Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • jues
      Guardar Formulario en PDF

      Por jues · publicado

      Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • DiegoLG
      Surtido de Mercancía

      Por DiegoLG · publicado

      @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • jose_alk
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por jose_alk · publicado

      Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • jues
      Buscar Datos con un ComboBox

      Por jues · publicado

      Exelente solución mil gracias 

  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.