tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルバイナリー保存
記事No9198
投稿日: 2009/07/21(Tue) 20:06
投稿者ひで
VB2008を使っているものです。
テキストに書かれた文字や数字をバイナリー形式で保存をしたいのですが、
なかなかうまくいきません。

Dim FileName As String
Dim FileNum As String

If SaveFileDialog1.showDialog() = DialogResult.OK Then
   FileName = SaveFileDialog1.FileName
Else
   Exit Sub
End If

FileNum = FreeFile()
FileOpen(FileNum, FileName, OpenMode.Binary)
      Print(FileNum, TextBox1.Text)
      FileClose()

データを書き込む時、printではないと思い、VB6.0でも
使っていた、Putで書き込もうと思ってもうまくいきません。

ご教授の程、よろしくお願いします。

[ツリー表示へ]
タイトルRe: バイナリー保存
記事No9199
投稿日: 2009/07/21(Tue) 21:40
投稿者オショウ
> VB2008を使っているものです。
> テキストに書かれた文字や数字をバイナリー形式で保存をしたいのですが、
> なかなかうまくいきません。

Imports System.IO

        Dim dt() As Byte

        Using sw As StreamWriter = New StreamWriter(Application.StartupPath + "\Test.bin")
            Using bw As BinaryWriter = New BinaryWriter(sw.BaseStream)
                bw.Write(dt)
            End Using
        End Using

こういうのはダメ?

※ 適当にアレンジしてネ!

以上。

[ツリー表示へ]
タイトルRe^2: バイナリー保存
記事No9200
投稿日: 2009/07/22(Wed) 19:29
投稿者ひで
> Imports System.IO
>
>         Dim dt() As Byte
>
>         Using sw As StreamWriter = New StreamWriter(Application.StartupPath + "\Test.bin")
>             Using bw As BinaryWriter = New BinaryWriter(sw.BaseStream)
>                 bw.Write(dt)
>             End Using
>         End Using
>
> こういうのはダメ?
>
> ※ 適当にアレンジしてネ!
>
> 以上。

お返事、有難うございました。
うまくいきました。

[ツリー表示へ]