none
Eliminar ultima fila de un txt vb6 RRS feed

  • Pregunta

  • Hola a todos,

    Estoy desarrollando.una aplocacion que genera un proceso de encriptado. Lee un txt y guarda el encriptado en otro txt. El problema es que al guardar se genera una linea en blanco al final.

    Como hago para eliminar esa linea?

    Gracias

    martes, 13 de junio de 2017 21:42

Todas las respuestas

  • Puede ser porque el encriptado termine con enter o chr(10)

    Hay que ver el largo en bytes del texto encriptado y del archivo,si son dos bytes es por eso,si no habra que leerlo y borrar algo asi suponiendo que cada linea termina en enter

    dim fs as scripting.filesystemobject

    dim Vct() as string

    vst = splt( fs.opentextfile(archivo).readll,chr(10))

    for contador = 0 to ubound(vst())-1

    nuevoarchivo.write vst(contador)

    next

    martes, 13 de junio de 2017 22:42