none
Cuenta Cuantas lineas, separar una cadena RRS feed

  • Pregunta

  • Hola a todos,

    Tengo una duda yo recibo una cadena en una sola línea de la siguiente manera:

    00000000013CHTRANSPORTES BLINDADOS TAMEME SA DE CV PER820219NS4 P2009-12-210001-01-010001-01-01001 00000000014CHTRANSPORTES BLINDADOS TAMEME SA DE CV PER820219NS4 P2009-12-210001-01-010001-01-01001 00000000015CHTRANSPORTES BLINDADOS TAMEME SA DE CV PER820219NS4 P2009-12-210001-01-010001-01-01001 00000000016CHTRANSPORTES BLINDADOS TAMEME SA DE CV PER820219NS4 P2009-12-210001-01-010001-01-01001 00000000017CHTRANSPORTES BLINDADOS TAMEME SA DE CV PER820219NS4 P2009-12-210001-01-010001-01-01001 00000000084CHTRANSPORTES BLINDADOS TAMEME SA DE CV PER820219NS4 B2009-12-182009-12-212009-12-18001 00000000092CHTRANSPORTES BLINDADOS TAMEME SA DE CV PER820219NS4 A2009-12-180001-01-012009-12-18001

    Quiero separarla para que quede de la siguiente manera (Las cadenas siempre son de la misma longitud)

    00000000013CHTRANSPORTES BLINDADOS TAMEME SA DE CV PER820219NS4 P2009-12-210001-01-010001-01-01001
    00000000014CHTRANSPORTES BLINDADOS TAMEME SA DE CV PER820219NS4 P2009-12-210001-01-010001-01-01001
    00000000015CHTRANSPORTES BLINDADOS TAMEME SA DE CV PER820219NS4 P2009-12-210001-01-010001-01-01001
    00000000016CHTRANSPORTES BLINDADOS TAMEME SA DE CV PER820219NS4 P2009-12-210001-01-010001-01-01001
    00000000017CHTRANSPORTES BLINDADOS TAMEME SA DE CV PER820219NS4 P2009-12-210001-01-010001-01-01001
    00000000084CHTRANSPORTES BLINDADOS TAMEME SA DE CV PER820219NS4 B2009-12-182009-12-212009-12-18001
    00000000092CHTRANSPORTES BLINDADOS TAMEME SA DE CV PER820219NS4 A2009-12-180001-01-012009-12-18001

    Y asi poder contabilizarlas (en ejemplo 7, pero pueden ser menos o más), alquien tiene alguna idea de como hacerlo?, se puede mezclar el split con el mid, espero me haya hecho explicar y me puedan ayudar.

    Por su ayuda muchas gracias.

    P.D. Por cierto Feliz Navidad y Año 2010.

    martes, 22 de diciembre de 2009 18:21

Respuestas

  • Hola, lo que tu quieres es muy sencillo, utiliza un for next de la siguiene forma.
    ya que tienes una longitud fija es mas facil.

    I=0
    FOR I = 1 TO LEN(CADENA) OPTIENES LA LONGITUD DE TU CADENA
          RENGLON= MID(CADENA,I,17)  EXTRAER DE 17 EN 17 SEGUN LO QUE TENGAS QUE LEER
          I=I+18 PARA QUE EMPIECE EL SIGUIENE RENGLON A PARTIR DE LA POCISION 18 SEGUN LA LONGITUD
    NEXT

    espero te sea util.
    • Marcado como respuesta 3lva miércoles, 10 de febrero de 2010 21:17
    jueves, 24 de diciembre de 2009 14:47