|
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 1 invitado
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
|
|
|
|
|
