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