Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Portal » Foro » Linux » Mundo Linux

Fecha y hora actual: Domingo, 28 Abril 2024, 07:40 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Codificación De Dibujo De Bordes En ASCII Ext


Publicar nuevo tema  Responder al tema  		Página 1 de 1
 
 
Codificación De Dibujo De Bordes En ASCII Ext
Autor Mensaje
Desconectado Grandamakulo Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Enero 2016
Mensajes: 311
Edad: 55
Ubicación: spain.png En un lugar de La Mancha de cuyo nombre me acuerdo perfectamente...
 
 
Responder citando   Descargar mensaje  
Mensaje Codificación De Dibujo De Bordes En ASCII Ext 
 
Hola, Compañeros:
Tengo un problemilla. Una antigua aplicación me da los resultados en una tabla ASCII con los bordes dibujados en ASCII ext. Al tratar de ver esa tabla en otros programas me aparecen cosas «divertidas» con esos caracteres extraños que tanto nos disgustan, o bien aparecen los caracteres correctos pero no puedo pasar a una fuente fija. Pensé usar Geany o Notepad++ para pasarlos a otras codificaciones pero resulta que no sé qué codificación y qué juego de caracteres colocar para verlos bien. Pensé que era ANSI o IBM850, pero no, siguen apareciendo fantasmas. ¿Alguna idea?
Dejo un texto de muestra:


 Fecha Gregoriana: 2020 enero 21, martes          Día Juliano: 2.458.869,5     

 Inés, Fructuoso, Augurio, Eulogio, Epifanio, Meinrado y Patrocio.              
                                                                                

 Día del año: 021    Día del siglo: 06960    Día del milenio: 006960          
 Quedan     : 345    Quedan       : 29564    Quedan         : 358282          

                                  CALENDARIOS                                   

         Juliano                   Musulmán           Revolucionario Francés  
      2020 Enero 07         1441 Yumada al ula 25        228 Pluviôse 01      

                                      SOL                                       

 Alba   Alba   Alba   Sale   Culm  Puesta  Ocaso  Ocaso  Ocaso  Horas  
 Ast.   Náut.  Civil                       Civil  Náut.  Ast.    Luz   
 06:56  07:28  08:01  08:30  13:26  18:22  18:51  19:24  19:56  09:52  

                                      LUNA                                      

 Orto   Culm   Ocaso  Edad                        Fase                      
 05:27  10:26  15:26  26,0             Lúnula Menguante (316,7º)            

                             EL CIELO AL ANOCHECER                              

Zenit: Aur, Gem, Lyn                                                            
Norte: Cam, Cas, Cep, Dra, Lac, UMi                                             
Oeste: And, Ari, Cet, Eri, For, Per, Psc, Tau, Tri                              
Sur  : Ant, Cae, CMA, CMi, Col, Lep, Mon, Ori, Pup, Pyx                         
Este : Cnc, CVn, Com, Crt, Hya, Leo, LMi, Sex, UMa                              


 Fecha Gregoriana: 2020 enero 21, martes          Día Juliano: 2.458.869,5     

 Inés, Fructuoso, Augurio, Eulogio, Epifanio, Meinrado y Patrocio.              
                                                                                

 Día del año: 021    Día del siglo: 06960    Día del milenio: 006960          
 Quedan     : 345    Quedan       : 29564    Quedan         : 358282          

                                  CALENDARIOS                                   

         Juliano                   Musulmán           Revolucionario Francés  
      2020 Enero 07         1441 Yumada al ula 25        228 Pluviôse 01      

                                      SOL                                       

 Alba   Alba   Alba   Sale   Culm  Puesta  Ocaso  Ocaso  Ocaso  Horas  
 Ast.   Náut.  Civil                       Civil  Náut.  Ast.    Luz   
 06:56  07:28  08:01  08:30  13:26  18:22  18:51  19:24  19:56  09:52  

                                      LUNA                                      

 Orto   Culm   Ocaso  Edad                        Fase                      
 05:27  10:26  15:26  26,0             Lúnula Menguante (316,7º)            

                             EL CIELO AL ANOCHECER                              

Zenit: Aur, Gem, Lyn                                                            
Norte: Cam, Cas, Cep, Dra, Lac, UMi                                             
Oeste: And, Ari, Cet, Eri, For, Per, Psc, Tau, Tri                              
Sur  : Ant, Cae, CMA, CMi, Col, Lep, Mon, Ori, Pup, Pyx                         
Este : Cnc, CVn, Com, Crt, Hya, Leo, LMi, Sex, UMa                              

 

 



 
última edición por Grandamakulo el Martes, 21 Enero 2020, 12:59; editado 1 vez 
#1  Martes, 21 Enero 2020, 12:57
Grandamakulo - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado tincho Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48
Ubicación: blank.gif
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Codificación De Dibujo De Bordes En ASCII Ext 
 
ok, lo miro y te digo algo.
Saludos.
 



 
#2  Jueves, 23 Enero 2020, 15:58
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado tincho Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48
Ubicación: blank.gif
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Codificación De Dibujo De Bordes En ASCII Ext 
 
Bueno acá dejo un código que acomoda el texto
Queda así:
 ascii
Public Sub Form_Open()

    Dim s As String
    Dim stx As New String[]
    Dim otx As New String[]
    Dim r As String
    Dim x As Integer
    Dim i As Integer
    Dim ch As String
    Dim o As String
    Dim f As String
    Dim p As String
    Dim out As String

    f = User.Home &/ "temporal/texto-arcaico.txt"
    p = File.Dir(f) &/ File.BaseName(f) & "-decoded." & File.Ext(f)
    s = File.Load(f)
    stx = Split(s, "\n")
    otx.Clear
    For Each r In stx
        For x = 1 To String.Len(r)
            ch = String.Mid(r, x, 1)
            Select Asc(ch)
                Case 1
                    o = "╔"
                Case 6
                    o = "═"
                Case 22
                    o = "╦"
                Case 2
                    o = "╗"
                Case 3
                    o = "╚"
                Case 4
                    o = "╝"
                Case 5
                    o = "║"
                Case 25
                    o = "╠"
                Case 23
                    o = "╣"
                Case 21
                    o = "╩"
                Case Else
                    o = ch
            End Select
            out &= o
        Next
        Inc i
        otx.Add(out)
        Print out
        out = Null
    Next

    File.Save(p, otx.Join("\n"))
    Wait 0.1
    Desktop.Open(p)

End
 

Saludos.
 



 
#3  Jueves, 23 Enero 2020, 18:02
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Portal » Foro » Linux » Mundo Linux

Fecha y hora actual: Domingo, 28 Abril 2024, 07:40 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno

 
Lista de permisos
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


  

 
cron