Eliminar espacios sobrantes - Versión para impresión

Eliminar espacios sobrantes - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forum-8.html)
+--- Tema: Eliminar espacios sobrantes (/thread-1390.html)

Eliminar espacios sobrantes - alberto-moyano - 05-06-2023

Hola colisteros, estoy tratando de hacer funcionar la siguiente función, no entiendo que puede estar mal, no obtengo error desde el ide y tampoco desde el formulario en prueba, simplemente no hace nada (ni siquiera un mensaje de error).

Código:
Public Sub Menu81_Click() 'borrar todos los espacios >1

  Dim s As String

  s = File.Name(editorTexto.Tag[sPath])

  s = CustomTrim(s)

End

Public Function CustomTrim(s As String) As String

  Dim sOut As String

  sOut = Trim(RTrim(s))

  While InStr(sOut, "  ")

    sOut = Replace(sOut, "  ", " ")

  Wend

  Return sOut

End

RE: Eliminar espacios sobrantes - tincho - 05-06-2023

Hola Alberto, probé tu código y funciona bien, es decir retira los espacios dobles y los reemplaza por uno solo.
Tal vez el problema este en el valor inicial de "s"

RE: Eliminar espacios sobrantes - alberto-moyano - 05-06-2023

Gracias Tincho, voy a revisar lo que me dices.