Paso 3: Editar archivo
GFile = FreeFile ' gfile es ahora la siguiente freefile disponible
c = "c:\test.txt"
Hay 4 maneras puede abrir un archivo
Entrada: sólo puede leer.
Salida - sólo puede escribir y se borrará el archivo si existe. retorno de carro y avance de línea el pasado personajes
Append - sólo puede escribir. agrega al archivo existente. retorno de carro y avance de línea el pasado personajes
Binario - lectura y escritura. muy precisa. la única que uso ahora.
para la construcción de archivos de registro y el uso de tal datos anexados agrega la nueva entrada al final del archivo.
para archivos de registro más complejos cargar el archivo entero en una variable y añadir la nueva entrada al principio del archivo.
Dim stro como cadena ' esto es necesario o se producirá un error
GFile = FreeFile
c = "c:\test.txt"
abrir c para binario como #gfile ' recuerda gfile es un número
STRO = space$ (lof(gfile)) ' cuando se abre para binario tienes que decirle a lo grande la longitud del texto que usted quiere tomar es lof (gfile) devolverá la longitud de espacio y gfile $ () devuelve una cadena de espacios la longitud de entrar el número
Get #gfile, 1, stro ' obtener de número de expediente, a partir de bytes variable para salvar a. y sólo la longitud de la variable
cierre #gfile
STRO ahora es igual al archivo test.txt.
Usted puede poner información en un archivo por
FFile = FreeFile
STRO = "Nueva línea" & VbCrLf & stro ' añade "Nueva línea" y carraige regreso y salto de línea seguido por el texto original
abrir c para binario como #ffile
matar c
puesto #ffile, 1, stro ' put sobreescribe la información anterior si el archivo está consiguiendo más pequeño se debe matar el archivo primero que elimina
cierre #ffile
el archivo ya tiene "Nueva línea"
una cosa que me encontré con la función put es tiene errores si intenta poner un personaje como
poner #ffile, 133, chr(1) ' esto sustituye el carácter en el byte 133 con carácter 1 o hexadecimal 0 x 01
Encontré cuando hice esto con un programa que hice realmente añadido hex 0x08000100000001 que es freaking raro. Lo solucioné esto cargando el archivo a una variable y hacer mods de cadena
i = 133
STRO = mid (stro, 1, i - 1) & chr(1) & mid (stro, i + 1, len(stro) - i)
entonces
poner #ffile, 1, stro
Esto funcionó a la perfección
