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
Leer las respuestas