¿Cómo leer archivos .txt locales usando vb.net?
Leer el archivo especificado
'
'Leer el archivo de texto especificado
Función pública readtext(Ruta ByVal Como String)
Si ruta = "" Entonces
readtext = "¡La operación falló!"
Salir de la función
Finalizar si
Intente
Si File.Exists(ruta) = True, entonces
Atenuar fs como nuevo FileStream(ruta, FileMode.
Atenuar sr como nuevo StreamReader(fs)
Dim str As String
str = sr.ReadToEnd.ToString
sr.Close()
fs.
Finalizar si
Capturar ex como excepción
readtext = "La operación falló".
Finalizar si
Captura ex como excepción
readtext = "¡La operación falló!
Finalizar intento
Finalizar función
'Escribir datos en el archivo especificado
Función pública writetext(Ruta ByVal como cadena, ByVal opi como entero, mensaje ByVal como cadena)
Si ruta = "" Entonces
writetext = "La operación falló !"
Función de salida
Finalizar si
Atenuar op como modo de archivo
Seleccionar caso opi
Caso 1
op = FileMode.Append
Caso 2
Crear
Caso más
op = FileMode.Create
Finalizar selección
Probar
Si File.Exists(ruta) = True Entonces
Atenuar fs como nuevo FileStream(ruta, op )
Atenuar sr como nuevo StreamWriter(fs)
sr.WriteLine(msg)
sr.Close()
fs. writetext = "¡Operación completada! "
Archivo Ellf.
Else
writetext = "¡La operación falló! "
Finalizar si
Capturar ex como excepción
Writetext = "¡La operación falló!"
Finalizar si
Capturar ex como excepción
Escribir texto = "¡La operación falló!
Finalizar intento
Finalizar función
Consulte este
'
'código fuente de vb.net de www.c-pet.co
m