Cómo eliminar caracteres específicos en archivos de texto en VB
dim str como cadena
abre "d:\1.txt" para entrada como #1 'Abrir archivo original
abre "d:\~1.txt.tmp" para salida as #2 'Crear un nuevo archivo temporal
hacer mientras no sea eof(1)
entrada de línea #1, str 'Leer texto línea por línea
str =mid(str, 2, 2) '" antes y después de la eliminación
print #2, str 'Escribir en archivo temporal
Bucle
Cerrar# 1
Cerrar #2
eliminar "d:\1.txt" 'Eliminar d:\1.txt
nombre "d:\~1. txt .tmp" as "d：\1.txt" 'Cambiar nombre del archivo temporal
kill "d：\~1.txt.tmp" 'Eliminar archivo temporal