Acentos de Archivo

11/04/2006 - 17:07 por Ivan Pequeño | Informe spam
Saludos a Todos

Este es mi Hallow World, para precosar mi nivel de ignorancia, aunque vengo
desde
Visual Basic 1.0

Excluyo las declaraciones de Vars

Este es mi código

With ArcDlg
.InitialDirectory = "c:\"
.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
.FilterIndex = 2
.RestoreDirectory = True

If .ShowDialog() = Windows.Forms.DialogResult.OK Then
Path = .FileName
If Len(Path) = 0 Then Exit Sub

PathArc.Text = Path

' Open the file to read from.
Dim sr As IO.StreamReader = File.OpenText(Path)
Texto = sr.ReadToEnd()
sr.Close()
End If
End With

Y este es el Resultado en Texto

SEGISMUNDO (de la Vida es Sueño)

Ay msero de m!
Y ay infelice!
Apurar, cielos, pretendo
ya que me tratis as,
qu delito comet
contra vosotros naciendo;
aunque si nac, ya entiendo
qu delito he cometido.
Bastante causa ha tenido
vuestra justicia y rigor;
pues el delito mayor
del hombre es haber nacido

Si observan el Texto verán que desaparecieron TODOS LAS LETRAS CON ACENTO

Si alguien me pudiera iluminar antes de cortarme las venas...

No sé por donde buscar

Preguntas similare

Leer las respuestas

#1 Kronos
11/04/2006 - 20:01 | Informe spam
Reemplaza esta linea :

' Open the file to read from.
Dim sr As IO.StreamReader = File.OpenText(Path)

por esta :

' Open the file to read from.
Dim sr As IO.StreamReader = new StreamReader(Path,
Text.Encoding.GetEncoding(1252))


"Ivan Pequeño" wrote in message
news:
Saludos a Todos

Este es mi Hallow World, para precosar mi nivel de ignorancia, aunque
vengo
desde
Visual Basic 1.0

Excluyo las declaraciones de Vars

Este es mi código

With ArcDlg
.InitialDirectory = "c:\"
.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
.FilterIndex = 2
.RestoreDirectory = True

If .ShowDialog() = Windows.Forms.DialogResult.OK Then
Path = .FileName
If Len(Path) = 0 Then Exit Sub

PathArc.Text = Path

' Open the file to read from.
Dim sr As IO.StreamReader = File.OpenText(Path)
Texto = sr.ReadToEnd()
sr.Close()
End If
End With

Y este es el Resultado en Texto

SEGISMUNDO (de la Vida es Sueño)

Ay msero de m!
Y ay infelice!
Apurar, cielos, pretendo
ya que me tratis as,
qu delito comet
contra vosotros naciendo;
aunque si nac, ya entiendo
qu delito he cometido.
Bastante causa ha tenido
vuestra justicia y rigor;
pues el delito mayor
del hombre es haber nacido

Si observan el Texto verán que desaparecieron TODOS LAS LETRAS CON ACENTO

Si alguien me pudiera iluminar antes de cortarme las venas...

No sé por donde buscar
Respuesta Responder a este mensaje
#2 Ivan Pequeño
11/04/2006 - 20:33 | Informe spam
Un millón de gracias, Kronos (Dios del Tiempo, creo)

El tiempo que me ahorraste...

Me enviaste

Dim sr As IO.StreamReader = new StreamReader(Path,
Text.Encoding.GetEncoding(1252))

Pero faltaba una cosita y la encontré: System antes de Text.Encoding

Dim sr As IO.StreamReader = New StreamReader(Path,
System.Text.Encoding.GetEncoding(1252))

Partiendo en net

Sabes si existe (he Buscado pero sin suerte) en alguna parte algo asi como
la jerarquía
de clases del .NET

De antemano te agradezco
Respuesta Responder a este mensaje
#3 Kronos
11/04/2006 - 22:28 | Informe spam
http://301url.com/1r7
http://301url.com/1r8

"Ivan Pequeño" wrote in message
news:
Un millón de gracias, Kronos (Dios del Tiempo, creo)

El tiempo que me ahorraste...

Me enviaste

Dim sr As IO.StreamReader = new StreamReader(Path,
Text.Encoding.GetEncoding(1252))

Pero faltaba una cosita y la encontré: System antes de Text.Encoding

Dim sr As IO.StreamReader = New StreamReader(Path,
System.Text.Encoding.GetEncoding(1252))

Partiendo en net

Sabes si existe (he Buscado pero sin suerte) en alguna parte algo asi como
la jerarquía
de clases del .NET

De antemano te agradezco
Respuesta Responder a este mensaje
#4 Ivan Pequeño
11/04/2006 - 22:56 | Informe spam
Otro Millón de Gracias...

Ahi ya se puede empezar a entender algo...

Muy amable de tu parte

"Kronos" escribió:

http://301url.com/1r7
http://301url.com/1r8

"Ivan Pequeño" wrote in message
news:
> Un millón de gracias, Kronos (Dios del Tiempo, creo)
>
> El tiempo que me ahorraste...
>
> Me enviaste
>
> Dim sr As IO.StreamReader = new StreamReader(Path,
> Text.Encoding.GetEncoding(1252))
>
> Pero faltaba una cosita y la encontré: System antes de Text.Encoding
>
> Dim sr As IO.StreamReader = New StreamReader(Path,
> System.Text.Encoding.GetEncoding(1252))
>
> Partiendo en net
>
> Sabes si existe (he Buscado pero sin suerte) en alguna parte algo asi como
> la jerarquía
> de clases del .NET
>
> De antemano te agradezco



Respuesta Responder a este mensaje
#5 Daniel A. Seara
11/04/2006 - 23:58 | Informe spam
En realdiad, creo que deberías utilizar
System.Text.Encoding.Default

Para que tome el código de página que el usuario tenga configurado

Mis 2 centavos.



"Ivan Pequeño" escribió en el mensaje
news:
Otro Millón de Gracias...

Ahi ya se puede empezar a entender algo...

Muy amable de tu parte

"Kronos" escribió:

http://301url.com/1r7
http://301url.com/1r8

"Ivan Pequeño" wrote in message
news:
> Un millón de gracias, Kronos (Dios del Tiempo, creo)
>
> El tiempo que me ahorraste...
>
> Me enviaste
>
> Dim sr As IO.StreamReader = new StreamReader(Path,
> Text.Encoding.GetEncoding(1252))
>
> Pero faltaba una cosita y la encontré: System antes de
> Text.Encoding
>
> Dim sr As IO.StreamReader = New StreamReader(Path,
> System.Text.Encoding.GetEncoding(1252))
>
> Partiendo en net
>
> Sabes si existe (he Buscado pero sin suerte) en alguna parte algo asi
> como
> la jerarquía
> de clases del .NET
>
> De antemano te agradezco



Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida