Microsoft Scripting Runtime en VB.NET 2003 (PARTE III) Fecha: 11/Dic/2004 (Diciembre 11 de 2004)
|
Utilizaremos de nuevo la referencia COM de MSR (Microsoft Scripting Runtime)
[Formulario de trabajo]
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
Imports Scripting Public Class MainForm Inherits System.Windows.Forms.Form Private fso As New FileSystemObject Private tst As TextStream Private file As String = "c:\registros.txt" 'procedimiento para insertar registros Friend Sub Insertar() Dim nombre, dni As String nombre = tinombre.Text.ToUpper dni = tidni.Text.ToUpper If fso.FileExists(file) Then tst = fso.OpenTextFile(file, IOMode.ForAppending) Else MsgBox("El archivo no existe") tst = fso.CreateTextFile(file) End If tst.WriteLine(nombre & "||" & dni) tst.Close() End Sub Private Sub bguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bguardar.Click Insertar() End Sub 'procedimiento para buscar registros Friend Sub Buscar() Dim dni, reg As String Dim vec() As String 'declaramos un vector de string dni = tbdni.Text.ToUpper 'capturamos el dni a buscar If fso.FileExists(file) Then tst = fso.OpenTextFile(file, IOMode.ForReading) Else MsgBox("El archivo no existe") End If While Not tst.AtEndOfLine 'leemos el archivo mientras no sea final del archivo reg = tst.ReadLine vec = Split(reg, "||") 'almacenamos el registro en un vector, en donde cada campo estar� en una posici�n_ 'esto lo hacemos con el m�todo split. 'en la posici�n vec(0) est� el nombre, y en vec(1) el dni If vec(1) = dni Then MsgBox(vec(0) & " " & vec(1) & " registro encontrado") End If tst.Skip(0) ' avanzamos a la siguiente l�nea en la posici�n 0 End While tst.Close() End Sub Private Sub bbshow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbshow.Click Buscar() End Sub End ClassCualquier 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: luisf_msr3_guardarbuscarentxt.zip - 9 KB