Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Codificación De Dibujo De Bordes En ASCII Ext
Autor Mensaje
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 
Grandamakulo - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Codificación De Dibujo De Bordes En ASCII Ext 
 
ok, lo miro y te digo algo.
Saludos.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
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.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 

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

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
No puede descargar archivos
No puede publicar eventos en el calendario