Visual Basic.NET - Importar datos de un archivo txt

   
Vista:

Importar datos de un archivo txt

Publicado por henan (2 intervenciones) el 09/09/2014 18:27:26
Hola amigos estoy empezando con esto de la programacion y necesito obtener una cadena de caracteres de un archivo txt seria mas o menos asi: este es el dato que necesito: xxxxxxxxxxxxx


AFIP ............. Administración Federal de Ingresos Públicos01/05/1993 1 100--
Usuario:20040667661
Representando a: 20254875512
Autorizacion de Trabajo de Impresion - Constancia Informativa-


Su solicitud ha sido autorizada y se encuentra almacenada en nuestro
servidor, con los siguientes datos Código de Autorización de
Impresión :34014102015820
Código de Proxima Autorización :(1) xxxxxxxxxxxxx
C.U.I.T. Imprenta :33-12345678-1
Nro. de Sucursal :1
Importación :NO
C.U.I.T. Contribuyente :20-01754874-6
Denominación :
Domicilio Fiscal :(2) MAnCHADO 1234
Localidad :CASTELAR
Fecha de la Solicitud :03/09/2014
Vencimiento de el/los Comprobante/s :03/09/2016
Caracter de la Constancia :Original
Resultado de la Solicitud :(3) Aprobacion total

Tipo de ComprobantePunto de VentaNro. InicialNro. FinalResultado
06-Facturas B00010000455100004800ALTA


(1) En este caso no se emitira el Documento Informativo de
Autorizacion de Impresion (DIAI).El Codigo de Proxima Autorizacion
(CPA) indicado en esta constancia informativa debera ser consignado
en las futuras solicitudes de autorizacion de impresion hasta tanto
sea sustituido por la AFIP.
(2)En caso de que el domicilio fiscal indicado no sea el correcto,
se debera concurrir a la dependencia de la A.F.I.P. D.G.I. donde se
halle inscripto y solicitar su actualización mediante la
presentación del F.560/F o F.560/J según corresponda (R.G.10/98
AFIP)
(3) No se podra suspender esta autorizacion en la imprenta debido a
que la cantidad de comprobantes solicitada fue aprobada totalmente.
En caso de existir un error, se podra pedir la anulacion o
modificacion de la solicitud (art.24 RG 100) dentro de los tres dias
habiles de la asignacion del Codigo de Autorizacion de Impresion.

Retorno Menu Principal
.
Fecha: miércoles 03 septiembre 2014 08:07:27 Autenticado por: 000011111111
Cerrar sesion

agradezcon por tomarse el tiempo de leer mi pregunta, gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Importar datos de un archivo txt

Publicado por Miguel (346 intervenciones) el 10/09/2014 03:51:05
Hola,
1) Pega esta función en tu código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Function LeerLineaTXT(ByVal RutaArchivoTXT As String, ByVal NumeroLinea As Long) As String
        Dim Lines() As String = {String.Empty}
        Dim Line_Length As Long = 0
        Try
            Lines = IO.File.ReadAllLines(RutaArchivoTXT)
            Line_Length = Lines.LongLength - 1
            Return Lines(NumeroLinea - 1)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        Finally
            Lines = Nothing
            Line_Length = Nothing
        End Try
        Return Nothing
    End Function

2) Ejecutas la función y dejas el texto que deseas (borras el texto que aparece antes del que necesitas); creo que deberías dejarlo así:
1
2
3
Dim Codigo As String
            Codigo = LeerLineaTXT("AquiRutaDeTuArchivoTXT", 10)
            Codigo = Codigo.Remove(0, 36)

3) Utiliza "Codigo" para pasarlo a un textbox, label, etc...

Saludos,
Miguel
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar