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:
El resultado de ese código es que me crea el archivo y el texto que se lee es "䘨촷촬죡" :/
Ayuda?
Un saludo a todos :)
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.IOImports System.TextPrivate 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
0