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:
Creo que el problema esta al escribir el resutado en el archivo pero no encuentro como evitar esos saltos de linea.
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.
Valora esta pregunta
0
