Visual Basic - Crear archivo txt

Hola a todos, quisiera saber como crear un archivo txt jalando los datos de un mshflexgrid, por ejemplo q quede asi el txt.

400006860 000424715 200559 008296 4 10
400006860 000424716 200281 012982 4 30
400006860 000424717 200191 012052 4 23
400006860 000424718 200557 000869 4 30
400006860 000424719 200559 008289 4 30
400006860 000424720 200555 000391 4 30
400006860 000424721 200397 005278 4 30

quisiera q se genere en c:\ y con el nombre: contexto. Esto al hacer click en un command.

Como lo podría hacer? Gracias

SLDS,

Vamos a llamarle FG1 al HFlexGrid y tomando en cuenta que cada renglon es una columna debemos hacer lo siguiente:

Pensando que la primera fila del FG1 es de titulo.

Dim Lin as string, n as integer

'Verificar que archivo no Exista

If Dir("C:\Archivo.TXT")="" then Kill("C:\Archivo.TXT")

Open "C:\Archivo.TXT" For output AS #1

For n = 1 to FG1.Rows - 1

Lin = FG1.TextMatrix(n,0) & FG1.TextMatrix(n,1) & FG1.TextMatrix(n,2) & FG1.TextMatrix(n,3) & FG1.TextMatrix(n,4) & FG1.TextMatrix(n,5)

Print #1, Lin
Next
Close #1

y Listo, cualquier duda que tenga, favor contactarme.

MP

Hola, gracias por la ayuda, tengo otra pregunta:

Como se podría generar el archivo de cero, es decir no existe en C:\, como sería para crearlo?

Como sería si los datos los tomo de una tabla de access?

Gracias

Si estás utilizando ADO puedes utilizar el método GetString de ADO y una función para guardar el archivo:

Set MiRecordset = MiConexion.Execute("SELECT * FROM MiTabla")

FileToString MiRecordset.GetString(",",vbCrLF), "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

hola me puedes dar una ayuda para crear el archivo txt para el seniat

Se que ya han pasado muchos años desde que se inicio con esta duda en el foro pero para los que como yo aún les ayuda, va mi aportación.

La misma instrucción Open te crea el archivo si es que no existiera, por eso en la respuesta de Miguel Peña primero con la instrucción if Dir..... verifica si ya existe el archivo y si existe lo elimina.

Lo de la Base de acces es lo mismo

abres tu base de datos
abres tu tabla
y la recorres desde el inicio hast el fin y por cada registro en tu tabla vas agregando un print en tu txt

Set BDejemplo = Opendatabase("Directorio de la Base")
set TBEjemplo = DBEjemplo("Nombre de la tabla", dbopentable)
if TBEjemplo.recordcount <> 0 then tbejemplo.movefirst
Do while not tbejemplo.eof
Lin = tbejemplo("Campo1") & "|"
Lin = Lin & tbejemplo("Campo2")
Print #1, Lin
TBEjemplo.MoveNext
loop
close #1

Espero le sirva a alguien.

Me puedes dar una ayudadita quiero validar la informacion de archivo de texto donde tengo
nombre, cedula de ciudadania y ortros valores separdos por punto y coma y quisiera saber cual numero de cedula de ciudadania se me repite en este archivo de texto para luego emigrarlo a una base de datos gracias .......

Muchas gracias Miguel Peña, tengo un sistema en VB que corre en un servidor cytrix mi problema era que los reportes que genero en el sistema están hechos con Crystal Report, pero el cytrix me deshabilita la opción de exportar el reporte. Con esto soluciono ese problema.

Saludos.

NECESITO EL CODIGO PARA CREAR UN ARCHIVO TXT.... IGUALMENTE LA SENTENCIA PARA ABRIRLO, LEER LOS DATOS Y CERRALO

looser

http://www.lawebdelprogramador.com/codigo/mostrar.php?pagina=7&id=93&texto=Visual+Basic
aqui ahy donde ver ejemplos de este tipo

como crear archivostxt en visual basic

Hola, me gustaría saber si me pueden ayudar en el siguiente tema.
Como puedo hacer, para leer un archivo txt guardado, por ejemplo en C:, e imprimierlo (pegarlo) en un archivo excel. Es decir, me refiero a hacer esto con el editor de visual basic de excel.
Cualquier ayuda sería muy útil, gracias.

pd: cualquier ayudita me la pueden mandar al mail porfa??
gracias

VERSION 5.00
Begin VB.Form Form1
Caption = "Private Sub ArchivoLeer(ByVal ArchivoPath As String)"
ClientHeight = 8910
ClientLeft = 60
ClientTop = 420
ClientWidth = 10860
LinkTopic = "Form1"
ScaleHeight = 8910
ScaleWidth = 10860
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command3
Caption = "guardar"
Height = 975
Left = 4320
TabIndex = 5
Top = 480
Width = 2055
End
Begin VB.TextBox Text3
Height = 5895
Left = 240
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 4
Text = "Form1.frx":0000
Top = 1680
Width = 10335
End
Begin VB.CommandButton Command2
Caption = "Llegir"
Height = 855
Left = 240
TabIndex = 3
Top = 7680
Width = 1575
End
Begin VB.TextBox Text2
Height = 375
Left = 1320
TabIndex = 2
Text = "Text2"
Top = 240
Width = 975
End
Begin VB.TextBox Text1
Height = 375
Left = 240
TabIndex = 1
Text = "Text1"
Top = 240
Width = 855
End
Begin VB.CommandButton Command1
Caption = "Escriure"
Height = 855
Left = 240
TabIndex = 0
Top = 720
Width = 1335
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click() 'guardar en txt
Open "C:prueva.txt" For Append As #1
Print #1, Text1.Text; Tab(30); Text2.Text
Close #1
End Sub

Private Sub Command2_Click() 'inportar de txt
Open "C:Prueva.txt" For Input As #1

Dim Linea As String, Total As String
Do Until EOF(1)
Line Input #1, Linea
Total = Total & Linea & vbCrLf

Loop
Text3.Text = Total

Close #1
End Sub

Private Sub Command3_Click()
Open "C:prueva.txt" For Append As #1
Print #1, Text3.Text
Close #1
End Sub

el contenido de un txt mostrarlo en un listbox
el txt contiene una serie de codigos de barra
ejemplo= (1,0140919405000498020404).
POSICIONES 123456789 123456789 1234

DE LA POSICION 11 A LA 12, INDICA EL NUMERO DE KILOS
DE LA POSICION 13 A LA 13, INDICA LOS DECIGRAMOS
DE LA POSICION 14 A LA 14, INDICA LOS CENTIGRAMOS

lo que necesito es saver el peso( los kilos, gramos y miligramos) por cada codigo de barras que se encuentra en el txt suponiendo que hay 100
y mostrarlo en otro listbox
gracias espero su respuesta