Двоичная запись в файл.

[SlaDER]

Извените за тупой вопрос, но мне нужно следующее:

-У меня есть переменная String str="05", так вот как мне записать 1 байт в файл равный="05",
а то как бы я не записывал у меня 35 пишет туда и все.

[Sacred Phoenix]

Пиши Chr(str). А 35 - это по-моему код символа "5"

[Viper]

Извените за тупой вопрос, но мне нужно следующее:

-У меня есть переменная String str="05", так вот как мне записать 1 байт в файл равный="05",
а то как бы я не записывал у меня 35 пишет туда и все.

Однако есть просьба уточнить, что есть такое 1 байт равный "05", ибо "05" содержит как минимум 2 байта, а поскольку мы все-таки имеем дело с .NET, то и все 4. Просьба номер два, код того как записывал в студию!

[Vinechka]

Пиши Chr(str). А 35 - это по-моему код символа "5"

Не, 35-й это октоторп

[tyomitch]

&H35 -- вполне себе пятёрка.

[Viper]

Пиши Chr(str).

И что мы при этом получим? Я так полагаю, что ошибку, а вот что думает автор ответа?

[tyomitch]

В VB6 Debug.Print Chr("05") прекрасно работает.

[Viper]

Так то в VB6, а форум по .NET

[tyomitch]

Убеждён, что с Option Strict Off оно сработает и в VB.net

[Viper]

При Option Strict Off срабатывает, куда ж ему деваться, но есть ли это гуд?

[tyomitch]

Пиши Chr(str).

И что мы при этом получим? Я так полагаю, что ошибку, а вот что думает автор ответа?

Значит, автор ответа совершенно справедливо полагает, что это сработает при Option Strict Off.

[Viper]

Остается только дождатся, что же хочет автор вопроса. Записать байт равный 5 или что-то другое

[Роман-вб]

скорее всего имелось ввиду

Текст: C:\A.TXT Ст. 0 1 байт 100%
00000 FF

Код: Выделить всё


    Dim hh As Byte
    hh = CByte("&H" & "FF")
    Fileopen(1, "C:\a.txt", Openmode.binary, Openaccess.write)
    Fileput(1, hh)
    Fileclose(1)

[/syntax]

[Sacred Phoenix]

Тогда уж так:

Код: Выделить всё

Dim FStream As New System.IO.FileStream("c:\temp.txt", IO.FileMode.OpenOrCreate)
FStream.WriteByte(5)
FStream.Flush()

[SlaDER]

Sacred Phoenix Большое спасибо, получилось.