Visual Basic - Se puede leer un archivo de texto y mostrarlo?

Life is soft - evento anual de software empresarial
 
Vista:

Se puede leer un archivo de texto y mostrarlo?

Publicado por Zeld@ (8 intervenciones) el 27/03/2001 00:41:42
Necesito ayuda sobre como leer un archivo de texto y presentarlo o mostrarlo en cualquier label, form, textbox, o en cualquier parte posible.

Ahora, si se puede...necesito hacer un archivo encriptado o protegido para que no puedan agregar o modificar mi texto escrito....como la ven? se puede ??
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Se puede leer un archivo de texto y mostrarlo?

Publicado por Christian A. Valeria Celedón (207 intervenciones) el 27/03/2001 06:47:11
Aquí te va un ejemplo de como cargar un archivo de texto en un TextBox. Primero debes crearte un formulario que contenga un TextBox (Text1) y 5 Menús de la siguiente forma:
Name Caption
MN01 Archivo
MN02 Abrir
MN03 Guardar
MN04 -
MN05 Salir

Luego agrega el siguiente código:

Private Sub Form_Resize()
Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub

Private Sub MN02_Click()
CargarArchivo InputBox("Ingresa la ruta del archivo")
End Sub

Sigue...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Se puede leer un archivo de texto y mostrarlo?

Publicado por Christian A. Valeria Celedón (207 intervenciones) el 27/03/2001 06:48:52
Private Sub MN03_Click()
GuardarArchivo InputBox("Guardar Como...")
End Sub

Private Sub MN05_Click()
Unload Me
End
End Sub

Private Sub CargarArchivo(Ruta As String)
If Dir(Ruta) = "" Then
MsgBox "El archivo no ha sido encontrado", vbInformation
Exit Sub
End If
Text1 = ""
Dim FileNum As Integer, Linea As String
FileNum = FreeFile
Open Ruta For Input As #FileNum
Do While Not EOF(FileNum)
Line Input #FileNum, Linea
Text1 = Text1 & Linea & vbCrLf
Loop
Close #FileNum
End Sub

Private Sub GuardarArchivo(Ruta As String)
If Dir(Ruta) <> "" Then
MsgBox "El archivo ya existe en el disco", vbInformation
Exit Sub
End If
Dim FileNum As Integer, Linea As String
FileNum = FreeFile
Open Ruta For Output As #FileNum
Print #FileNum, Text1.Text
Close #FileNum
End Sub

Es un ejemplo bastante básico pero creo que te puede servir de ayuda.
Ojalá te resulte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar