Visual Basic - urgente..*.txt

Life is soft - evento anual de software empresarial
 
Vista:

urgente..*.txt

Publicado por andreafuhr (95 intervenciones) el 30/01/2006 15:07:06
Alguien sabe como generar un txt? necesito pasarle renglon a renglon elementos que contengo en un vector
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:urgente..*.txt

Publicado por Cecilia Colalongo (3117 intervenciones) el 30/01/2006 16:45:19
Fijate con:

Cadena = vbNullString

For i=LBound(Vector) To UBound(Vector)
Cadena = Cadena & Vector(i) & vbCrLf
Next i

FileToString Cadena, "C:\MiArchivo.txt"

La función que puedes colocar en un módulo es:

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:urgente..*.txt

Publicado por Luciano (98 intervenciones) el 30/01/2006 22:45:19
otra forma:

Open App.Path & "\archivo.txt" For Output As #1
For i = 0 To UBound(vector)
Print #1, vector(i)
Next
Close

Saludos
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