Codificación De Dibujo De Bordes En ASCII Ext


Objetivo: 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
Objetivo: Re: Codificación De Dibujo De Bordes En ASCII Ext
ok, lo miro y te digo algo.
Saludos.

Perfil MP  
Objetivo: 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.

Perfil MP  

Página 1 de 1


  
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

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.0869s (PHP: 26% SQL: 74%)
Consultas SQL: 19 - Debug off - GZIP Activado