1
Abra el software de Visual Studio y abra el proyecto de escritorio que desea editar . Haga doble clic en el archivo de código fuente se utiliza para leer los archivos de texto.
2
Abra el archivo e importar el archivo en una variable VB . El siguiente código lee el archivo " miarchivo.txt ":
Dim leer Como Stringread = My.Computer.FileSystem.ReadAllText ("C: \\ miarchivo.txt ")
3
Identificar si existe una cadena en el archivo . La función " InStr " devuelve " 1" si existe la cadena. En caso contrario, el valor devuelto es " 0 ". Utilice el código siguiente para buscar " mi cadena" en el archivo:
Dim existe como Integerexists = InStr ( leer, " mi cadena" )
4
Enviar un mensaje al usuario para que muestre una confirmación si existe la cadena. La siguiente función muestra un mensaje al usuario :
Si (existe) ThenMsgBox "La cadena existe" ElseIfMsgBox " La cadena no existe " End If