Mundo Linux :: Codificación De Dibujo De Bordes En ASCII Ext

Mensajes: 311 Ubicación: En un lugar de La Mancha de cuyo nombre me acuerdo perfectamente...

Martes, 21 Enero 2020, 12:57

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

Código: [Descargar] [Ocultar] [Seleccionar]

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

Perfil MP Sitio web

tincho

Citar

Mensajes: 2565

Jueves, 23 Enero 2020, 15:58

Objetivo: Re: Codificación De Dibujo De Bordes En ASCII Ext

ok, lo miro y te digo algo.
Saludos.

Perfil MP

tincho

Citar

Mensajes: 2565

Jueves, 23 Enero 2020, 18:02

Objetivo: Re: Codificación De Dibujo De Bordes En ASCII Ext

Bueno acá dejo un código que acomoda el texto
Queda así:

Código: [Descargar] [Ocultar] [Seleccionar]

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

Responder al tema

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
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.4715s (PHP: -79% SQL: 179%)
Consultas SQL: 45 - Debug off - GZIP Activado

Comunidad Gambas-es

Comunidad hispana de usuarios de GAMBAS

Codificación De Dibujo De Bordes En ASCII Ext