Reemplazar saltos de línea por comas con Notepad++

Problema

Queremos reemplazar los saltos de línea con comas con Notepad++.

Solución

1. Hacemos clic en Ctrl+H, o mediante la barra de menú Search > Replace.
2. Escribimos en Find what:[\r\n]+
3. Y en Replace with, una coma seguida de un espacio: ,
4. Marcamos la botón Regular expression y presionamos Replace All.

Resultado final

Entradas relacionadas

• Reemplazar los saltos de línea por comas con Notepad++
• Entrecomillar palabras de una lista y separarlas con comas en Notepad++
• Comparar dos ficheros en Notepad++
• Editar un bloque de texto vertical en Notepad++
• Eliminar líneas en blanco con Notepad++

Reemplazar carácter en un fichero de texto con VBA en Excel cuadro diálogo

Anteriormente vimos como reemplazar carácter en un fichero de texto con VBA en Excel. En esta ocasión, en lugar de especificar en nuestro código la ruta y nombre del fichero, lo seleccionamos mediante un cuadro de diálogo. El nuevo fichero con el sufijo _final se creará en la misma ruta del fichero seleccionado.

Public Sub ReemplazarCaracteresExcel()

Application.ScreenUpdating = False
Set wb = Workbooks.Open(Filename:=Application.GetOpenFilename)
Ruta = ActiveWorkbook.FullName
RutaSinExtension = Left(Ruta, InStrRev(Ruta, ".") - 1)
wb.Close False

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Ruta) Then
    Set objStream = fso.OpenTextFile(Ruta, 1, False, 0)
End If
    Set ObjCopy = fso.CreateTextFile(RutaSinExtension & "_final." & Right(Ruta, 3))

For x = 1 To 5  'Salta el nº de líneas indicadas: 5
   objStream.readline
Next x
 
Do While Not objStream.AtEndOfStream
    strOldLine = objStream.readline
    i = 1
    newarray = Split(strOldLine, ",") 'Carácter reemplazado: ,
       strNewLine = newarray(0)
       
    Do Until i = UBound(newarray) + 1
         strNewLine = strNewLine & ";" & newarray(i) 'Carácter nuevo: ;
         i = i + 1
    Loop
    ObjCopy.WriteLine strNewLine
Loop
Application.ScreenUpdating = True
MsgBox "Fichero creado: " & RutaSinExtension & "_final." & Right(Ruta, 3)

End Sub

Borramos estas 3 líneas en el caso de que en el fichero de texto no haya que saltarse líneas en blanco y que provocarían un error:

For x = 1 To 5  'Se salta el nº de líneas indicadas 
    objStream.readline
Next x

Entradas relacionadas:

• Reemplazar carácter en un fichero de texto con VBA en Access
• Reemplazar carácter en un fichero de texto con VBA en Excel

Reemplazar texto entre dos caracteres en Excel

Vamos a ver dos modos de reemplazar texto entre dos caracteres en Excel. En nuestro ejemplo entre dos paréntesis.

Sin VBA

Usando el cuadro de diálogo de Buscar y reemplazar:

1. En la pestaña Inicio, en el grupo Edición, clic en Buscar y seleccionamos reemplazar. O Ctrl+F.
2. En Buscar: escribimos (*) y en Reemplazar con: el nuevo texto o lo dejamos vacío para eliminar en lugar de sustituir.

Para reemplazar solamente en rangos no contiguos, las seleccionamos manteniendo la tecla control presionada y seguimos el procedimiento anterior.

Con VBA

Eliminamos el texto entre paréntesis. Mediante el cuadro de diálogo podemos seleccionar rangos no contiguos manteniendo presionada la tecla control o tecleando ; después de cada rango. Para reemplazar el texto, escribimos el nuevo texto en Replacement (equivalente al Reemplazar con del cuadro de diálogo de Buscar y reemplazar).

' Todas las celdas de la hoha
Sub Reemplazar()
    Cells.Replace What:="(*)", Replacement:="", LookAt:=xlPart
End Sub

' Rango seleccionado
Sub Reemplazar2()
    Selection.Replace What:="(*)", Replacement:="", LookAt:=xlPart
End Sub

' Mediante cuadro de diálogo
Sub Reemplazar3()
    On Error Resume Next
    Dim myRange As Range
    Set myRange = Application.InputBox(Prompt:="Texto reemplazado: (*)", _
    Type:=8)
    myRange.Replace What:="(*)", Replacement:="", LookAt:=xlPart
    On Error GoTo 0
End Sub