binary writer   zodpovězená otázka

VB.NET

Potrebujem poradiť ako sa dá ináč zapísať 4 bajty do súboru save.bin

Dim str As String = "156BA3E5"
Dim save As New System.IO.BinaryWriter(System.IO.File.OpenWrite("d:\save.bin"))
For i = 0 To 3
   save.BaseStream.Position = i
   save.Write(CInt("&H" & str.Substring(i * 2, 2)))
Next
save.Close()

takto mi to uloží OK ale ešte k tomu pridá na koniec nechcene 3 nulove bajty

čiže to vyzerá takto 15 6B A3 E5 00 00 00

Odkiaľ tie nuly?

vďaka za rady

Marcel

nahlásit spamnahlásit spam 0 odpovědětodpovědět
Dim str As String = "156BA3E5"
Dim buf(0 To 3) As Byte
For i As Integer = 0 To buf.Length - 1
    buf(i) = Byte.Parse(str.Substring(i * 2, 2), Globalization.NumberStyles.HexNumber)
Next

Dim save As New System.IO.BinaryWriter(System.IO.File.OpenWrite("d:\save.bin"))
save.Write(buf)
save.Close()
nahlásit spamnahlásit spam 0 odpovědětodpovědět

vďaka, poradilo sa mi to ešte aj týmto že som Cint zamenil za Cbyte

save.Write(CByte("&H" & str.Substring(i * 2, 2)))
nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:  
Heslo:  

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback