Mensajes

yaa! preguntare que onda, pero mas tarde pq mi jefe se toma como 4 horas de colación, hare algo con lo que pusiste.. pero como se cuanto espacio tiene que haber entre el inico y <cuenta>
o del inico a <fecha>
o del inicio a <nombre>

???????

Gracias por responder

Porque lo tengo que entregar en xml, no me sirve en txt, pq del otro lado tienen un programa q lee e importa solo archivos xml

Gracias por responder

Hola a todos los que pasen por aki, tengo un problema de conocimientos a la hora de convertir un archivo txt a xml y espero encontrar la respuesta aki.
genere un archivo de ejemplo el cual se llama REGISTRO.TXT
y contiene lo siguiente:

20101004UDDES
20101004UDDES

en donde los 8 primeros caracteres corresponden a la fecha y los restantes a una empresa, todos los registros en este archivo son de largo fijo y los puedo obtener facilmente con un MID y guardarlos en una variable. pero nose como insertar esas variables en un archivo xml
dejo el codigo de lo que llevo.

Código [Seleccionar] Expandir


Private Sub Command1_Click()
cd.ShowOpen
direccion = cd.FileName
End Sub

Private Sub Command2_Click()
Dim discriminante As String
Dim archivo As String
Dim fecha As String
Dim empresa As String
Dim registro As String
Dim sw As Integer

sw = 0

Open direccion For Input As #1
While Not EOF(1)
   Line Input #1, Linea
   discriminante = Mid$(Linea, 1, 6)
   If discriminante <> "HEADER" And discriminante <> "FOOTER" Then
      fecha = Mid$(Linea, 1, 8)
      empresa = Mid$(Linea, 21, 5)
      sw = 1
   End If
   If sw = 1 Then
      registro = fecha + empresa
      EscriveLog registro, "REGISTRO"
      sw = 0
   End If
Wend
Close #1
archivo = App.Path & "\" & "REGISTRO.txt"

' aki el codigo para convertir el archivo "REGISTRO.TXT" a registro.xml

Response = MsgBox("PROCESO TERMINADO", vbInformation, "empresa x")

End Sub



Código [Seleccionar] Expandir

Public Function EscriveLog(ByRef Texto As String, ByRef tipo As String) ', ByRef xTipo As Byte)
   Dim strFile As String
   Dim fn As Long
   Dim strLog As String
   strFile = App.Path & "\" & tipo & ".txt"
   fn = FreeFile
   strLog = Texto
   Open strFile For Append As fn
       Print #fn, strLog
   Close fn
End Function


espero me puedan ayudar a crear el XML ya que no tengo idea del formato ni nada por el estilo.
de antemano. GRACIAS!

MIL Gracias por la ayuda... te pasaste 

hola, encontre muy interesante lo que publicaste
tengo una duda

puedo convertir una variable tipo date a string?
y si se puede como lo hago?

gracias

GRACIAS A TODOS  los que escribieron XD, hoy entre solamente a escribir el codigo fuente con el cual resolvi elproblema

Private Sub Command1_Click()
' Esta variable contendrá el path del archivo que queremos acceder
Dim Archivo As String
' Linea almacenará los datos del archivo "Historia.txt"
Dim Linea As String
' Asignamos a la variable  Archivo la ruta correcta. El objeto _
App.Path nos devuelve el directorio donde se encuentra nuesta _
aplicación. Luego le agregamos la barra invertida y el nombre _
del archivo.

'Archivo = App.Path & "\" & "Historia.txt"
Archivo = App.Path & "\" & "Historia.txt"

' Abrimos el archivo con la variable Archivo, y como el acceso será de lectura _
utilizamos el modo Input seguido del número de archivo "#1"
Open Archivo For Input As #1

' Creamos un bucle para controlar que después de llegar al final del archivo _
la sentencia Input, no continue leyendo y se produzca un error en tiempo de eje _
cucíon. Para ello utilizamos la condición Not EoF(1), que traducido quiere decir _
mientras no llegue al final del archivo, que continúe leyendo línea por línea. _
' Dentro del bucle asignamos al control Text1 el valor de la variable Linea mas _
el contenido que ya estaba guardado en el text box, Por que de lo contrario, el text Box _
solo mostraría el último contenido de la variable "Linea"
Dim tipo As String

While Not EOF(1)
Line Input #1, Linea
    tipo = Mid$(Linea, 78, 2)
Select Case tipo
    Case "10"
       EscriveLog Linea, "archivo10"
    Case "20"
       EscriveLog Linea, "archivo20"
    Case "30"
       EscriveLog Linea, "archivo30"
    Case "40"
       EscriveLog Linea, "archivo40"
    Case "50"
       EscriveLog Linea, "archivo5060"
    Case "60"
       EscriveLog Linea, "archivo5060"
    Case "70"
       EscriveLog Linea, "archivo70"
    End Select

Wend

' Cerramos el archivo
Close #1

End Sub

Public Function EscriveLog(ByRef Texto As String, ByRef tipo As String) ', ByRef xTipo As Byte)
    Dim strFile As String
    Dim fn As Long
    Dim strLog As String
    strFile = App.Path & "\" & tipo & ".txt"
    fn = FreeFile
    strLog = Texto
    Open strFile For Append As fn
        Print #fn, strLog
    Close fn
End Function

GRACIAS DE TODAS MANERAS XD

[10]

Hola,
tengo un problema..
necesito recorrer un txt  llamado base.txt con los siguientes datos

1000000CARMEN ROSA ALVAREZ          10         0       46600       020100830
1000001JOSE LUIS VALDEZ CHOQUE     10      14500   5002010072820100728
1000002MIGUELINA NAVARRO TAPIA     20        0        27200       020100830
1000003MARIA ARANCIBIA                   40        0        17000       020100830

si el valor despues del nombre es 10 debe copiar la linea completa con el mismo formato y crear un txt nuevo con los registros que solo contengan el valor 10. asi para los con valores 20 y 40
ejemplo del txt nuevo

nuevo10.txt

000000CARMEN ROSA ALVAREZ          10         0       46600       020100830
1000001JOSE LUIS VALDEZ CHOQUE     10      14500   5002010072820100728

nuevo20.txt
1000002MIGUELINA NAVARRO TAPIA     20        0        27200       020100830

nuevo40.txt
1000003MARIA ARANCIBIA                   40        0        17000       020100830

espero me puedan ayudar
PD.: los registros son de largo fijo
Gracias