|
Página 1 de 1
|
Quitar Salida De Colores A Texto Plano.
Autor |
Mensaje |
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Quitar Salida De Colores A Texto Plano.
última edición por jsbsan el Sabado, 27 May 2017, 13:01; editado 1 vez
|
#1 Sabado, 27 May 2017, 12:59 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Quitar Salida De Colores A Texto Plano.
Bueno, al final era un problema del caracter "Escape", chr$(27).
Como lo que me interesaba es extraer el texto que estaba entre dos codigo de colores, lo he podido hacer asi:
contacto = Between(ltmp, Chr$(27) & "[0;31m" & Chr$(27) & "[1;31m", Chr$(27) & "[0;31m")
Siendo:
ltmp: la linea de texto donde esta le texto coloreado
Between: una funcion que extrae el texto contenido entre dos textos (http://jsbsan.blogspot.com.es/2011/10/updaterayo-nueva-clase-up-poder-buscar.html)
contacto: el texto que me interesa
|
#2 Sabado, 27 May 2017, 13:58 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: Quitar Salida De Colores A Texto Plano.
Yo tengo hecho algo parecido para "decolorar" la salida de un comando que genera cosas así. Lo hago directamente en el comando
Public Function decolorar() As String 'devuelve un listado con información detallada del sistema
Dim slistado As String
'Este de abajo es el que yo tengo hecho para almacenar en una base de datos ese comando
' Shell "inxi -Fox |sed -r \"s/\\x1B\\[([0-9]{1,2}(;[0-9]{1,2})?)?[m|K]//g\" " To slistado
'adaptándolo a tu fichero (y al path donde lo tengas, claro):
Shell "cat ~/Escritorio/l.txt |sed -r \"s/\\x1B\\[([0-9]{1,2}(;[0-9]{1,2})?)?[m|K]//g\" " To slistado
Return slistado
End
=================== No podemos regresar
última edición por shordi el Sabado, 27 May 2017, 17:02; editado 2 veces
|
#3 Sabado, 27 May 2017, 17:01 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Quitar Salida De Colores A Texto Plano.
Shordi:
Citar: Public Function decolorar() As String
Muy buena la funcion, me ha servido mucho !!!, la voy a comentar en mi blog y subirla al curso de gambas.
Gracias
|
#4 Domingo, 28 May 2017, 09:41 |
|
|
|
Temas parecidos
Temas parecidos
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados Usuarios registrados conectados: Ninguno
|
No puede crear mensajes No puede responder temas No puede editar sus mensajes No puede borrar sus mensajes No puede votar en encuestas No puede adjuntar archivos Puede descargar archivos No puede publicar eventos en el calendario
|
|
|
|
|