Visual Basic - ELIMINAR O EVITAR SALTOS DE LINEA EN ARCHIVO TXT

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

ELIMINAR O EVITAR SALTOS DE LINEA EN ARCHIVO TXT

Publicado por Christian David (1 intervención) el 22/12/2017 18:32:41
Buen Día.

Estoy trabajando en una Macro en Excel, con la cual leo varios archivos txt de una ruta y sustituyo ciertas cadenas por otras nuevas y escribo los datos en el mismo archivo. El procedimiento funciona bien pero cada que invoco la función y se hace el reemplazo, me genera un salto de lineal al final del archivo txt (como se muestra en las imagenes, el original tenia solo un salto de linea al final y el nuevo tiene 9 mas, uno por cada invocación).

Aquí el código:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
'Sub que reemplaza las cadenas en el archivo por la nueva cadena
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Reemplazar_Texto(ByVal Interface As String, _
                            ByVal Cadena_original As String, _
                            ByVal Cadena_nueva As String)
 
On Error GoTo errSub
Dim F As Integer
Dim Contenido As String
 
    F = FreeFile
 
    'Abre el archivo para leer los datos
    Open Interface For Input As F
 
    'carga el contenido del archivo en la variable
    Contenido = Input$(LOF(F), #F)
 
    'Cierra el archivo
    Close #F
 
    ' Ejecuta la función Replace, pasandole los datos
    Contenido = Replace(Contenido, Cadena_original, Cadena_nueva)
 
 
    F = FreeFile
    'Abre un nuevo archivo
    Open Interface For Output As F
    'Graba los nuevos datos
    Print #F, Contenido
 
    'cierra el archivo
    Close #F
 
Exit Sub
 
'Error
 
errSub:
MsgBox Err.Description, vbCritical
Close
End Sub


Creo que el problema esta al escribir el resutado en el archivo pero no encuentro como evitar esos saltos de linea.
Antes
Despues
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
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ELIMINAR O EVITAR SALTOS DE LINEA EN ARCHIVO TXT

Publicado por Antoni Masana (565 intervenciones) el 23/12/2017 08:52:23
El truco es muy simple, solo hace falta un punto y coma al final del print.

1
Print #F, Contenido;

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

ELIMINAR O EVITAR SALTOS DE LINEA EN ARCHIVO TXT

Publicado por Carlos (1 intervención) el 25/07/2019 17:38:11
Gracias, esta es la solución al problema aquí expuesto, el cual también era mi problema.

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