Microsoft Scripting Runtime en
VB.NET 2003 (PARTE II) Fecha: 28/Oct/2004 (Octubre 27 de 2004)
|
Como en el anterior artículo que escribí de Microsoft Scripting Runtime en VB .NET 2003 Cargar un archivo de texto en un TextBox aquí también utilizaremos la referencia COM: Microsoft Scripting Runtime para insertar texto escrito en una aplicación de consola VB.NET directamente en un archivo de texto.
Conceptos Clave
Método OpenTextFile: Recibe dos parámetros, el primero es un String con el nombre y ubicación del archivo en el cual deseamos guardar lo que digitamos; el segundo parámetro recibe el modo en el cual se abrirá el archivo, para este caso tenemos tres posibilidades
IOMode.ForAppending: Se utiliza para anexar texto al archivo sin que el contenido que ya esté en él se borre
IOMode.ForReading: Se utiliza para abrir el archivo de modo que solo sea para lectura
IOMode.ForWriting: Se utiliza para escribir sobre el archivo borrando el contenido que tenga cada vez que se vaya a escribir en él
Código Fuente
Option
Explicit OnImports
ScriptingModule
ModulePrincipalPrivate FSO As New FileSystemObject
Private TST As TextStream
Private File As String
'la variable file contiene la ubicación y nombre del archivo en el cual se guardaran los datos Sub Main()Console.WriteLine("Comenzando la aplicación")
InsertText()
End Sub
Friend Sub InsertText()Dim contenido As String
FSO =
New FileSystemObjectConsole.WriteLine("DIGITE EL TEXTO QUE DESEA GUARDAR Y PRESIONE ENTER PARA TERMINAR")
'en la variable contenido guardamos lo que se escrito en pantalla
contenido = Console.ReadLine
'preguntamos si existe el archivo
If FSO.FileExists(File) Then
'si existe lo abrimos 'el método OpenTextFile recibe dos parámetros 'el archivo
'y el modo en el que va a ser abierto
TST = FSO.OpenTextFile(File, IOMode.ForAppending)
Else
Console.WriteLine("El archivo al cual desea guardar los datos no existe")
'salida prematura del procedimiento para evitar que intente leer aunque no exista el archivo
Exit Sub End If 'escribimos en el archivo, todo lo que escribimos por pantallaTST.WriteLine(contenido)
'cerramos el archivo
TST.Close()
End Sub
End Module
Espero haya sido de gran ayuda, cualquier inquietud pueden enviarla al correo.
hasta luego.
Observación: Si tiene problemas al importar la referencia indicada, diríjase a la parte I de este artículo aquí:
Fichero con el código de ejemplo: microsoftscriptingruntime2guardartexto.zip - Tamaño 5 KB