Como puedo traer un archivo de txt a un MsgBox

21/09/2004 - 01:11 por osalazarg | Informe spam
Alguien me podria ayudar por favor, ya que diariamente genero varios
archivos de un programa y necesito checar que la información que contienen
sea correcta, estos archivos se van llamando

20040920.124
20040921.124
20040922.124
20040923.124
y asi dia con dia.

necesito que me abra el archivo, que me busque en la ultima linea que
contenga informacion ( que es variante ), y me traiga el contenido de los
espacios del 154 al 161 en formato 0.000000 del 173 al 179 en formato
0.0000

Espero que me puedan ayudar por favor.

saludos y gracias por anticipado.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
21/09/2004 - 02:17 | Informe spam
hola, octavio !

... diariamente genero varios archivos ... necesito checar que la informacion ... sea correcta [...]
20040922.124
20040923.124
y asi dia con dia.
... que me abra el archivo ... busque en la ultima linea ... el contenido de los espacios
... 154 al 161 en formato 0.000000
... 173 al 179 en formato 0.0000



una 'variante' del tema que 'vimos' +/- por enero/2004
saludos,
hector.
en un modulo de codigo 'normal' ==Sub Revisar_Info()
Dim Directorio As String, Archivo As String, Mensaje As String, _
Salida1 As String, Campo1 As Integer, Largo1 As Integer, _
Salida2 As String, Campo2 As Integer, Largo2 As Integer, _
Revisar As Integer, Temp
Directorio = "C:\Documents and Settings\Propietario\Mis documentos\" '"C:\Mis documentos\"
Archivo = "20040204.124" 'Format(Date, "yyyymmdd") & ".124"
Salida1 = "0.000000"
Salida2 = "0.0000"
Campo1 = 154
Largo1 = 8
Campo2 = 173
Largo2 = 7
Mensaje = "Archivo" & vbTab & vbTab & "Campo 1" & vbTab & vbTab & "Campo 2" & vbCr & Archivo & vbTab
Revisar = FreeFile
Open Directorio & Archivo For Input As #Revisar
Do Until EOF(Revisar)
Line Input #Revisar, Temp
Loop
Mensaje = Mensaje & _
Format(Mid(Temp, Campo1, Largo1) / 1000000, Salida1) & vbTab & _
Format(Mid(Temp, Campo2, Largo2) / 10000, Salida2)
Close Revisar
MsgBox Mensaje, , "Revisión del archivo..."
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida