Visual Basic - Una facil :s

Life is soft - evento anual de software empresarial
   
Vista:

Una facil :s

Publicado por Jose (3 intervenciones) el 29/08/2017 18:36:28
Hola, intento hacer un programilla en visual basic con el visual studio 2017, debería ser simple pero no doy con la tecla :)

La idea es que al presionar un botón, se escriba un archivo de texto ascii desde su código binario, o sea, le doy al botón y se crea el archivo textobin.txt con el texto escrito "hola". Sé que hay mil formas de hacerlo más eficientes pero me interesa particularmente poder escribirlo desde binario. Os pongo el código a ver si un alma caritativa puede echarme una mano:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Imports System
Imports System.IO
Imports System.Text
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim filename As String = "C:\Users\noeli\Documents\Binarios\Pruebas\Prueba001\Generado\Textobin.txt"
        Dim writer As BinaryWriter
        Dim reader As BinaryReader
        Dim tmpStringData As String
        Dim tmpByteData As Byte
        Dim tmpCharData As Char
        Dim tempIntData As Integer
        Dim tempBoolData As Boolean
        '
        writer = New BinaryWriter(File.Open(filename, FileMode.Append))
        Using writer
            writer.Write(1001000)  'Intento escribir una H
            writer.Write(1101111) 'Intento escribir una o
            writer.Write(1101100) 'Intento escribir una l
            writer.Write(1100001) 'Intento escribir una a
        End Using
        writer.Close()
        '
        If (File.Exists(filename)) Then
            reader = New BinaryReader(File.Open(filename, FileMode.Open))
            Using reader
                'tmpStringData = reader.ReadString()
                tmpByteData = reader.ReadByte()
                'tmpCharData = reader.ReadChar()
                'tmpSingleData = reader.ReadSingle()
                'tmpIntData = reader.ReadInt32()
                'tmpBoolData = reader.ReadBoolean()
            End Using
            reader.Close()
        End If
End Sub


El resultado de ese código es que me crea el archivo y el texto que se lee es "䘨촷촬죡" :/

Ayuda?

Un saludo a todos :)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Una facil :s

Publicado por Jose (3 intervenciones) el 30/08/2017 17:19:00
Vaya.. nadie sabe pq se escriben esos signos en lugar de "hola" ? Quizás algo del enconding? :S
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad