menudo lio me e armado,tanto que e tenido que volver a empezar de nuevo todo entero,pero bueno asi se aprende(o eso creo)
la cuestion es que no e logrado editar las 2 columnas asi que lo e dejado(ya probare otra cosa),lo que si e podido es añadir una obcion de añadir datos al listview y guardarlos,asi como poder listar todos los datos.
el lio viene por querer codificar el archivo adjunto,que no me aclaro
Código:
Open Archivo For Binary As #1
Open Destino For Output As #2
Print #2, "begin 644 " + Archivo
bl& = 45: fl& = LOF(1): bf$ = Space$(bl&)
While fl&
If fl& < bl& Then bl& = fl&: bf$ = Space$(bl&)
Get #1, , bf$: fl& = fl& - bl&
If bl& Mod 3 <> 0 Then bf$ = bf$ + String$(3 - bl& Mod 3, 0)
For i = 1 To bl& Step 3
c1 = Asc(Mid$(bf$, i, 1))
l$ = l$ + Chr$((c1 * 16 + c2 \ 16 And &H3F) + 32)
Next
Print #2, Chr$(32 + bl&); l$: l$ = ""
Wend
Print #2,: Print #2, " "
Close #1, #2