Archivo de texto

en lugar de usar File.CreateText, usa StreamWriter:
Dim sw As New System.IO.StreamWriter("MiTexto.txt", False,
System.Text.Encoding.Unicode)
sw.WriteLine("lo que sea incluso con eñes")
sw.Close()

La clave está en el segundo parámetro que le indica al .NET que use la
codificación "Unicode", de forma que los caracteres "raros" se podrán leer
también desde el MS-DOS.
De todas formas, haz pruebas, ya que a lo mejor no todas las aplicaciones lo
pueden leer correctamente, sobre todo si no trabajan con formato Unicode.
Pero desde la ventana de comandos de MSDOS y usando "type" se muestran bien las
eñes, tildes, etc..

Nos vemos.
Guillermo
Microsoft VB MVP desde 1997
Te invito a mi sitio dedicado al VB y más...
http://www.elguille.info/
http://www.mundoprogramacion.com/
(puede que el correo usado sea anti-spam)


"LuisMiguel" <lmolinoARROBAyaPUNTOcom> wrote in message
news:

Buenas
Estoy creando un archivo de texto mediante

File.createtext("Mitexto.txt")
y sucesivos WriteLine

en el resultado del archivo, se remplazan la Ñ y otro caracteres por simbolos
extraños
hay forma de solucionar esto?


Gracias
LuisMiguel

Hola LuisMiguel y grupo, yo utilizo esto para transformar datos de MS-Dos a Windows
Ya me dirás si te sirve.

Un Saludo

' Declaración API transformación caracteres MSDOS a WINDOWS
' y viceversa

Declare Sub AnsiToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String)
Declare Sub OemToAnsi Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String)

Function TransCharsDosWin(ByVal variable As String) As String
'Transf. Caracteres Dos a Windows
TransCharsDosWin = Space(Len(variable))
Call OemToAnsi(variable, TransCharsDosWin)
End Function

Function TransCharsWinDos(ByVal variable As String) As String
'Transf. Caracteres Windows a Dos
TransCharsWinDos = Space(Len(variable))
Call AnsiToOem(variable, TransCharsWinDos)
End Function



"LuisMiguel" <lmolinoARROBAyaPUNTOcom> escribió en el mensaje news:

Buenas
Estoy creando un archivo de texto mediante

File.createtext("Mitexto.txt")
y sucesivos WriteLine

en el resultado del archivo, se remplazan la Ñ y otro caracteres por
simbolos extraños
hay forma de solucionar esto?


Gracias
LuisMiguel

Se original, ya hay muchos DJ..


Miao...
Comprate un libro.

que respuesta tan inteligente... el ultimo premio nobel

de

economia se habria quedado absorto ante tal muestra de
sapiencia

quiza el problema del compañero venga determinado por la
discrepancia entre las paginas de codigos de las
aplicaciones graficas (windows-ansi) y las de consola

(oem-

dos), aunque todas las cadenas en el .net framework son
unicode, pero...

Muuuu...
Comprate un brik de leche.

Crealo en word.




Miao...
Comprate un libro.

Buenas
Estoy creando un archivo de texto mediante

File.createtext("Mitexto.txt")
y sucesivos WriteLine

en el resultado del archivo, se remplazan la Ñ y otro

caracteres por

simbolos extraños
hay forma de solucionar esto?


Gracias
LuisMiguel


.

.

.

Buenas
Gracias por tu atencion guille, el caso es que haciendolo como tu dices,
mediante el type del archivo,si se ve correctamente, pero si lo edito con el
EDIT del MSDOS, se ve como un doble espacio entre las letras, no se si
afectara a la hora de verificar el archivo el receptor.

Lo pruebo el Lunes y te digo algo

Suerte
LuisMiguel
"Guillermo 'guille'" escribió en el mensaje
news:

en lugar de usar File.CreateText, usa StreamWriter:
Dim sw As New System.IO.StreamWriter("MiTexto.txt", False,
System.Text.Encoding.Unicode)
sw.WriteLine("lo que sea incluso con eñes")
sw.Close()

La clave está en el segundo parámetro que le indica al .NET que use la
codificación "Unicode", de forma que los caracteres "raros" se podrán leer
también desde el MS-DOS.
De todas formas, haz pruebas, ya que a lo mejor no todas las aplicaciones
lo pueden leer correctamente, sobre todo si no trabajan con formato
Unicode.
Pero desde la ventana de comandos de MSDOS y usando "type" se muestran
bien las eñes, tildes, etc..

Nos vemos.
Guillermo
Microsoft VB MVP desde 1997
Te invito a mi sitio dedicado al VB y más...
http://www.elguille.info/
http://www.mundoprogramacion.com/
(puede que el correo usado sea anti-spam)


"LuisMiguel" <lmolinoARROBAyaPUNTOcom> wrote in message
news:

Buenas
Estoy creando un archivo de texto mediante

File.createtext("Mitexto.txt")
y sucesivos WriteLine

en el resultado del archivo, se remplazan la Ñ y otro caracteres por
simbolos extraños
hay forma de solucionar esto?


Gracias
LuisMiguel

Buenas David
Tambien he probado tu solucion (de echo es la que usaba en VB5), y me pone
dos caracteres en lugar de uno solo, a ti te funciona ?
Que utilizas? StreamWriter o CreateText
Podias mostrarme un pequeño ejemplo de como te funciona a ti?

Gracias
LuisMiguel
"David Sans" escribió en el mensaje
news:es%

Hola LuisMiguel y grupo, yo utilizo esto para transformar datos de MS-Dos
a Windows
Ya me dirás si te sirve.

Un Saludo

' Declaración API transformación caracteres MSDOS a WINDOWS
' y viceversa

Declare Sub AnsiToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As
String, ByVal lpszDst As String)
Declare Sub OemToAnsi Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As
String, ByVal lpszDst As String)

Function TransCharsDosWin(ByVal variable As String) As String
'Transf. Caracteres Dos a Windows
TransCharsDosWin = Space(Len(variable))
Call OemToAnsi(variable, TransCharsDosWin)
End Function

Function TransCharsWinDos(ByVal variable As String) As String
'Transf. Caracteres Windows a Dos
TransCharsWinDos = Space(Len(variable))
Call AnsiToOem(variable, TransCharsWinDos)
End Function



"LuisMiguel" <lmolinoARROBAyaPUNTOcom> escribió en el mensaje
news:

Buenas
Estoy creando un archivo de texto mediante

File.createtext("Mitexto.txt")
y sucesivos WriteLine

en el resultado del archivo, se remplazan la Ñ y otro caracteres por
simbolos extraños
hay forma de solucionar esto?


Gracias
LuisMiguel