VB.NET覚書

VB.NETの覚書
[個人メモ] [仕事メモ] [アイデア] [Ruby]
[TIPS] [対応表] [コメント書き方] [.NET Tips] [VB中学校] [VB.NET の入門サイト] [VB.NET コーディング標準 ] [VBレスキュー] [NonSoft]

2009-03-31

文字列バイト配列に変換する

[VB.NET]

Dim str As String = "テストです。"

Dim bytesData As Byte()

'Shift JISとして文字列に変換

bytesData = System.Text.Encoding.GetEncoding(932).GetBytes(str)

'JISとして変換

bytesData = System.Text.Encoding.GetEncoding(50220).GetBytes(str)

'EUCとして変換

bytesData = System.Text.Encoding.GetEncoding(51932).GetBytes(str)

'UTF-8として変換

bytesData = System.Text.Encoding.UTF8.GetBytes(str)

http://dobon.net/vb/dotnet/string/getencoding.html

バイト配列文字列に変換する

[VB.NET]

'バイト配列"bytesData"に文字列データが入っているものとする

Dim str As String

'Shift JISとして文字列に変換

str = System.Text.Encoding.GetEncoding(932).GetString(bytesData)

'JISとして変換

str = System.Text.Encoding.GetEncoding(50220).GetString(bytesData)

'EUCとして変換

str = System.Text.Encoding.GetEncoding(51932).GetString(bytesData)

'UTF-8として変換

str = System.Text.Encoding.UTF8.GetString(bytesData)

'結果を表示

Console.WriteLine(str)


http://dobon.net/vb/dotnet/string/getencoding.html

DoEvents

[VB.NET]

'メッセージキュー現在あるWindowsメッセージをすべて処理する

System.Windows.Forms.Application.DoEvents()

http://dobon.net/vb/dotnet/vb6/doevents.html

VB6のDoEventsと同様のものは、

System.Windows.Forms.Application.DoEvents()

となります。.NET Framework 2.0以降のVB.NETでは、

My.Application.DoEvents()

とすることもできます


0パディング

Hex(32).PadLeft(4, "0"c)

' 処理対象となる文字列変数を宣言する

Dim stTarget As String = "1234"

' 6 文字になるまで先頭を半角スペースで埋める

MessageBox.Show("[" & stTarget.PadLeft(6) & "]")

' 8 文字になるまで先頭を "0" で埋める

MessageBox.Show("[" & stTarget.PadLeft(8, "0"c) & "]")


10進数16進数変換

http://dobon.net/vb/dotnet/programing/converthex.html

10->16

Dim num As Integer = 65535

Dim str As String = Convert.ToString(num, 16)


Dim num as Integer = 65535

Dim str as String = Hex(num)

16->10

Dim num16 As Integer = Convert.ToInt32("FFFF", 16)


可変長バイナリ変数の長さ

Dim data() As Byte = File.ReadAllBytes(TxtPicFile.Text) ' 読み込み

MsgBox(data.GetLength(0))

Byte配列へのバイナリファイル読みこみ

Imports System

Imports System.IO

Dim data() As Byte = File.ReadAllBytes("test.bin") ' 読み込み

File.WriteAllBytes("testnew.bin", data) ' 書き込み

byte[] data = File.ReadAllBytes("test.bin"); // 読み込み

File.WriteAllBytes("testnew.bin", data); // 書き込み

Dim data() As Byte = File.ReadAllBytes("test.bin") ' 読み込み

File.WriteAllBytes("testnew.bin", data) ' 書き込み

ReadAllBytesメソッド/WriteAllBytesメソッドの記述例(上:C#、下:VB

バイナリ・ファイルを簡単に読み書きするには?[2.0のみ、C#、VB] - @IT
トラックバック - http://sub.g.hatena.ne.jp/garyo/20090331