Si usas la técnica de archivo de sistema opentextfile, el siguiente tutorial puede ayudarte.
Abre el contenido especificado y genera un TextStream que se puede utilizar. para leer, escribir en, también agregar a este archivo.
Sintaxis
parte
Descripción
objeto
Obligatorio. El nombre siempre está asociado mientras tenga FileSystemObject.
nombre de archivo
Obligatorio.Una expresión de cadena que identifica el archivo para abrir.
iomodo
Opcional. Muestra, diría, el modo de entrada/salida. Siempre puede crecer hasta ser el mismo: tres ForReading, ForWriting y ForAppending.
crear
Opcional. Booleano Este valor especifica que tal vez se pueda crear un nuevo tipo de archivo si no existe un archivo con el nombre especificado normalmente. La relevancia es Verdadera cuando se crea una nueva tienda; Falso si no ha sido realmente creado. El valor de retraso es Falso.
Formato
Opcional. Uno de los 4 valores tristate utilizados para especificar cada formato de archivo de configuración. Si se omite, el mismo archivo definitivamente se abrirá como ASCII.Readabilitydatatable=”1″>
Constante
valor
Descripción
Leer
1
Abrir
Configuración
Escribir
2
Abrir archivo en trabajo de solo escritura. Utilice este modo para retirar un archivo existente con los datos informados. No puede reproducir el siguiente archivo.
Para adjuntar
8
Abrir el archivo y poder escribir el final del archivo. No puede leer este archivo.
Constante
valor
Descripción
TristateUseDefault
-2
Abre el archivo informático real con el programa de implicación.
TristateTrue
-1
Abre un archivo Unicode.
Tres estados falsos
0
Abre un archivo ASCII específico.
El siguiente código tiende a hacer que el método OpenTextFile abra un buen archivo y recupere el texto incrustado:
En OpenTextFileTest Const ForReading=1, ForWriting=#2, ForAppending=8 Sol fs, f Establecer = fs CreateObject("Scripting.FileSystemObject") Establecer f Fs =.OpenTextFile("c:testfile.txt", ForAppending, TristateFalse) F. Escribe "¡Hola mundo!" e.Cerrarterminar bajo
El posible argumento iomode a veces puede ser cualquier valor de las constantes iomode inversas como un valor.
create
El argumento de formulación no obligatorio puede ser Verdadero, y eso también crea la declaración natural si, no 'no' t live, o False , que no se encuentra .
format
El formato de pelea opcional presenta uno de los valores de la plétora constante de tres estados para indicar qué formato abrió el nuestro. el archivo está en. No, tal vez configurado, por defecto es TristateFalse pero automáticamente abre el archivo en formato ASCII.
Abre la declaración especificada en este nombre de archivo particular además del parámetro real y devuelve Encuentra la instancia de TextStreamObject con este archivo.)
CONSTANTE
VALOR
DESCRIPCIÓN
Leer
1
Abrir portapapeles de solo lectura
Escribir
2
Abre un gran archivo debido a un lanzamiento. Si el archivo ya ha llegado, el contenidose sobrescribirá.
Unirse
8
Abre un archivo manualmente, recordando que cuando se decide (agregado), comienza a escribir. contenidono sobreescrito.
CONSTANTE
VALOR
DESCRIPCIÓN
TristateTrue
-1
Abre su imagen Unicode
Tres estados falsos
0
Abrir archivo ASCII
TristateUseDefault
-2
Usar valores predeterminados del sistema
Ejemplos
Esta solución alternativa se usa para abrir cada uno de nuestros archivos de artículos y devolver un TextStreamObject, que luego se puede usar para ayudarlo a escribir, agregar y leer todo lo que esté lejos del archivo.
Código:
<% dim archivossys, filetxt Const ForReading = 1, ForWriting 2, lo que significa que ForAppending = 8 filesys predeterminado es equivalente a CreateObject("Scripting.FileSystemObject") Establecer filetxt = filesys.OpenTextFile("c:somefile.txt", ForAppending, True) filetxt.WriteLine("Tu texto va aquí") txtfile.%>
Explicación:
Muy cerca El escenario abre el principio de "c:somefile.txt" (o este tipo de se creará si un sitio en particular no existe) y le agrega el texto especificado.
La función OpenTextFile VBA abre el archivo de música perfecto como un tema de TextStream para imprimir, leer, escribir o, alternativamente, agregar (es posible que no permita operaciones binarias).
Sintaxis de OpenTextFile VBA
fso.OpenTextFile(nombre de archivo, [iomode, [crear, [composición]]])
nombre de archivo La mención de los datos de texto que se pueden abrir. Yomod No es necesario. Uno de los tratamientos de jardín en el patio trasero:
Parámetros
valor
Descripción
Leer
1
Abrir archivo incluso solo como contenido
Escribir
2
Abrir archivo para escritura
Para adjuntar
8
Solo borra a través de archivos adjuntos. No permita que se sobrescriba el texto existente, solo escriba al final del archivo
crear Quizás. Si es True, reconstruye el archivo especificado si prácticamente no existe dicha carpeta. Si es Falso, verá que el archivo no se realizará de forma permanente y debería devolver un error increíble. tamaño Establece la codificación del archivo que crece para ser escrito:
Su PC podría estar infectada con virus, spyware u otro software malicioso. ASR Pro escaneará e identificará todos estos problemas en su máquina y los eliminará por completo. Software que le permite solucionar una amplia gama de cuestiones y problemas relacionados con Windows. ASR Pro puede reconocer fácil y rápidamente cualquier error de Windows (incluida la temida pantalla azul de la muerte) y tomar las medidas adecuadas para resolver estos problemas. La aplicación también detectará archivos y aplicaciones que fallan con frecuencia y le permitirá solucionar sus problemas con un solo clic.
Pase a la segunda sección donde puede ver otros ejemplos de esta función.
Ejemplo de VBA
Consulte opentextfile para ver ejemplos del uso de este método OpenTextFile. Primero aprenderemos el registro y luego usaremos todo el archivo a.
"Lo siguiente sugiere que sus necesidades pueden referirse a Microsoft Script Runtime LibraryDim fso como FileSystemObject, ts como TextStreamEstablecer fso=nuevo objeto del sistema de archivos'Se crea el archivo Hello create.txt que utiliza, por lo que si no es así, se abre el directorio para escritura ASCIIEstablecer ts es igual a fso.OpenTextFile("C:Hello.txt", ForWriting, True, TristateFalse)ts.WriteLine "Hola"c.cerrar'Abrir el mismo archivo destinado a estar disponible para lecturasEstablecer = fso.OpenTextFile("C:Hola.txt", ParaLeer, TristateFalse)"Leer normalmente hasta el finalEjecutar hasta ts.AtEndOfStream Debug.Print Line "Imprimir" y simplemente ts.Line Debug.Print ts.ReadLine A 'Imprime una línea desde un archivo confiablecintac.cerrar
Pequeños enlaces anteriores a Microsoft Scripting Runtime. Sin embargo, es posible evitar errores (bibliotecas que nunca encontré) para evitar esto. Consulte "The Next Church Walk" para ver mi enfoque respaldado al atravesar el FSO.
Un ejemplo de cómo crear un objeto
La asistencia de los ejemplos a continuación es, pero no específica, de Microsoft Scripting Runtime; en su lugar, usamos la sobrecarga CreateObject. La desventaja es que mi familia, pero no podré determinar las propiedades del objeto en este momento. Sugiero comenzar acompañado por todo el enfoque anterior, mientras que cuando cada uno de nuestros códigos funcione, reemplace New FileSystemObject con CreateObject() "Scripting.FileSystemObject") como se muestra a continuación.
