Visual Basic.NET - Importar datos de un archivo txt

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 clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 5

Val: 481

Importar datos de un archivo txt

Publicado por Miguel (476 intervenciones) el 10/09/2014 03:51:05

Hola,
1) Pega esta función en tu código:

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í:

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 clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar