Visual Basic - Crear txt con Visual basic

Life is soft - evento anual de software empresarial
 
Vista:

Crear txt con Visual basic

Publicado por Erkeno (3 intervenciones) el 06/04/2006 13:22:22
Hola pues mi pregunta es esa, ¿como puedo crear un txt cn visual basic y escribir en el? que funciones hay que ytilizar??? Gracias por adelantado
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:Crear txt con Visual basic

Publicado por Cecilia Colalongo (3116 intervenciones) el 06/04/2006 13:40:49
Si te refieres a abrir y guardar un archivo de texto en un TextBox fijate con esto:

Text1.Text=FileToString("MiArchivo.txt")

Public Function FileToString(FileName As String) As String
Dim hlngFile As Long, strFile As String

hlngFile = FreeFile

Open FileName For Binary Access Read As hlngFile

FileToString = vbNullString

strFile = String(FileLen(FileName), " ")

Get hlngFile, , strFile

Close hlngFile

FileToString = strFile

End Function

Y para el proceso inverso:

StringToFile Text1.Text,"MiArchivo.txt"

Public Function StringToFile(StringText As String, FileName As String) As Long
Dim hlngFile As Long

hlngFile = FreeFile

Open FileName For Binary Access Write As hlngFile

Put hlngFile, , StringText

Close hlngFile

StringToFile = FileLen(FileName)

End Function
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:Crear txt con Visual basic

Publicado por Erkeno (3 intervenciones) el 06/04/2006 14:00:21
Muxas gracias, pero sigo en las mismas jeje. Quiero algo mas sencillo. El codigo de un boton que al hacer click, te cree en el escritorio o en otra ruta me da =, un txt cn la palabra HOLA escrita. Solo eso.Thanks
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:Crear txt con Visual basic

Publicado por Cecilia Colalongo (3116 intervenciones) el 06/04/2006 15:13:20
Es exactamente lo mismo que está escrito:

StringToFile "HOLA","MiArchivo.txt"

Public Function StringToFile(StringText As String, FileName As String) As Long
Dim hlngFile As Long

hlngFile = FreeFile

Open FileName For Binary Access Write As hlngFile

Put hlngFile, , StringText

Close hlngFile

StringToFile = FileLen(FileName)

End Function
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