Hola.
El siguiente código de ejemplo que he sacado del baúl de los recuerdos.
Option Compare Database
Option Explicit
Type mreg ' Define un tipo definido por el usuario.
mId As Boolean
mNom As String * 50
mfac As Currency
mdate As Date
mdouble As Double
mfinal As String * 3
End Type
Public Sub exportaficherrandom()
'crea un fichero sin finales de linea ni final de fichero
Dim mnumfitx As Integer
Dim nomfitx As String
Dim mregistre As mreg
Dim jj As Long
nomfitx = CurrentProject.Path & "\mfitxerexport.txt"
Kill nomfitx
mnumfitx = FreeFile
Open nomfitx For Random As #mnumfitx Len = Len(mregistre)
'añade 10 'registros'
For jj = 1 To 20
mregistre.mId = (jj Mod 2) * (-1)
mregistre.mNom = "no hay 50, añade espacios por detras"
mregistre.mfac = jj
mregistre.mdate = Now + jj
mregistre.mdouble = jj + jj / 1000
mregistre.mfinal = "FIN"
Put #mnumfitx, jj, mregistre
Next
Close #mnumfitx
End Sub
Crea una cadena "infinita" con diversos tipos de datos y sin retornos de carro ni final de fichero.
Espero que sea parecido a lo preguntado y que sirva de ayuda
Ya comentas.
Un saludo a todos
Tweet
Eliminar Salto de Linea
Opciones del Tema
