VB.NETでのUsing句の使い方とは？Using句の使い方と例外処理
- システム
エンジニア - VB.NETでの句の使い方について教えてください。
- プロジェクト
マネージャー - Using句の基本的な使い方、例外処理、複数オブジェクトの指定方法について紹介します。
VB.NETでのUsing句の使い方とは？
今回は、VB.NETでのUsing句の使い方について説明します。Using句を使用すると、明示的にDisposeを記述せずにリソースを解放できます。
解放漏れがなくなりますし、ソースコードがシンプルになります。Using句の基本的な使い方、例外処理、複数オブジェクトの指定方法について紹介します。
VB.NETでのUsing句の使い方に興味のある方はぜひご覧ください。
Using句を使わない場合
まずは、VB.NETでUsing句を使わない場合の記述方法を紹介します。Try-Finally句を使用します。
ここで使用する「C:\test\test.txt」は以下の内容とします。
|
1
2
3
|
line1
line2
line3
|
それでは実際のソースコードを見てみましょう。
|
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
|
Imports System.IO
Imports System.Text
Module Program
Sub Main(args As String())
Dim sr As StreamReader = Nothing
Dim FilePath As String = "C:\test\test.txt"
Try
Encoding.RegisterProvider(CodePagesEncodingProvider.Instance)
' ファイルオープン
sr = New StreamReader(FilePath, Encoding.GetEncoding("Shift_JIS"))
Console.WriteLine(FilePath + "を開きました。")
' ファイルの内容を取得
Dim s As String = sr.ReadToEnd()
Console.WriteLine(s)
Catch ex As Exception
' 例外処理
Console.WriteLine(Err.Description)
Finally
' 例外が発生してもしなくても実行する
If sr IsNot Nothing Then
sr.Dispose()
End If
End Try
End Sub
End Module
|
実行結果は以下のようになります。Finally句で確実にDisposeします。
|
1
2
3
4
|
C:\test\test.txtを開きました。
line1
line2
line3
|
Catch句には例外処理を記述します。「C:\test\test.txt」が存在しない場合、実行結果は以下のようになります。
|
1
|
Could not find file 'C:\test\test.txt'.
|
Using句の使い方
VB.NETでのUsing句の使い方を紹介します。明示的にDisposeを記述する必要がありません。実際のソースコードを見てみましょう。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Imports System.IO
Imports System.Text
Module Program
Sub Main(args As String())
Dim FilePath As String = "C:\test\test.txt"
Dim s As String
Encoding.RegisterProvider(CodePagesEncodingProvider.Instance)
' Using句でファイルオープン
Using sr As New StreamReader(FilePath, Encoding.GetEncoding("Shift_JIS"))
Console.WriteLine(FilePath + "を開きました。")
s = sr.ReadToEnd()
End Using
Console.WriteLine(s)
End Sub
End Module
|
実行結果は以下のようになります。
|
1
2
3
4
|
C:\test\test.txtを開きました。
line1
line2
line3
|
このようにVB.NETでは、Using句を使うことで明示的にDisposeを記述せずにリソースを解放できます。
「C:\test\test.txt」が存在しない場合、実行時例外が発生します。
|
1
2
3
|
例外がスローされました: 'System.IO.FileNotFoundException' (System.Private.CoreLib.dll の中)
型 'System.IO.FileNotFoundException' のハンドルされていない例外が System.Private.CoreLib.dll で発生しました
Could not find file 'C:\test\test.txt'.
|
Using句＋例外処理
VB.NETでUsing句に例外処理を加える場合は、Try-Catch句でUsing句を囲みます。実際のソースコードを見てみましょう。
|
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
|
Imports System.IO
Imports System.Text
Module Program
Sub Main(args As String())
Dim FilePath As String = "C:\test\test.txt"
Dim s As String
Try
Encoding.RegisterProvider(CodePagesEncodingProvider.Instance)
' Using句でファイルオープン
Using sr As New StreamReader(FilePath, Encoding.GetEncoding("Shift_JIS"))
Console.WriteLine(FilePath + "を開きました。")
s = sr.ReadToEnd()
End Using
Catch ex As Exception
'例外処理
Console.WriteLine(Err.Description)
End Try
' ファイルの中身を表示
Console.WriteLine(s)
End Sub
End Module
|
実行結果は以下のようになります。
|
1
2
3
4
|
C:\test\test.txtを開きました。
line1
line2
line3
|
「C:\test\test.txt」が存在しない場合、実行結果は以下のようになります。
|
1
|
Could not find file 'C:\test\test.txt'.
|
Using句に複数オブジェクトを指定
VB.NETでUsing句に複数オブジェクトを指定する方法を紹介します。実際のソースコードを見てみましょう。
|
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
|
Imports System.IO
Imports System.Text
Module Program
Sub Main(args As String())
Dim SrcFilePath As String = "C:\test\test.txt"
Dim DstFilePath As String = "C:\test\test2.txt"
Dim s As String
Try
' 内容のコピー（複数のオブジェクトを指定）
Using srcStream As FileStream = File.OpenRead(SrcFilePath), dstStream As FileStream = File.OpenWrite(DstFilePath)
' test.txtの内容をtest2.txtにコピー
srcStream.CopyTo(dstStream)
End Using
' コピー先ファイルの表示
Encoding.RegisterProvider(CodePagesEncodingProvider.Instance)
Using sr As New StreamReader(DstFilePath, Encoding.GetEncoding("Shift_JIS"))
Console.WriteLine(DstFilePath + "を開きました。")
s = sr.ReadToEnd()
End Using
Catch ex As Exception
'例外処理
Console.WriteLine(Err.Description)
End Try
' ファイルの中身を表示
Console.WriteLine(s)
End Sub
End Module
|
実行結果は以下のようになります。読み込みのストリームと書き込みのストリームを単一のUsing句で指定しています。
|
1
2
3
4
|
C:\test\test2.txtを開きました。
line1
line2
line3
|
このようにVB.NETでは、Using句に複数オブジェクトを指定できます。
- システム
エンジニア - VB.NETでのUsing句の使い方についてよくわかりました。
- プロジェクト
マネージャー - Using句を使用すると明示的にDisposeを記述せずにソース解放ができ、解放漏れがなくなりソースコードがシンプルになりますよ。
まとめ
いかがでしたでしょうか。VB.NETでのUsing句の使い方について説明しました。Using句を使用すると、明示的にDisposeを記述せずにリソースを解放できます。
解放漏れがなくなりますし、ソースコードがシンプルになります。Using句の基本的な使い方、例外処理、複数オブジェクトの指定方法について紹介しました。
ぜひご自身でVB.NETのソースコードを書いて、理解を深めてください。
FEnet.NETナビ・.NETコラムは株式会社オープンアップシステムが運営しています。
株式会社オープンアップシステムはこんな会社です
秋葉原オフィスには株式会社オープンアップシステムをはじめグループのIT企業が集結！
数多くのエンジニアが集まります。
-
スマホアプリから業務系システムまで
スマホアプリから業務系システムまで開発案件多数。システムエンジニア・プログラマーとしての多彩なキャリアパスがあります。
-
充実した研修制度
毎年、IT技術のトレンドや社員の要望に合わせて、カリキュラムを刷新し展開しています。社内講師の丁寧なサポートを受けながら、自分のペースで学ぶことができます。
-
資格取得を応援
スキルアップしたい社員を応援するために資格取得一時金制度を設けています。受験料(実費)と合わせて資格レベルに合わせた最大10万円の一時金も支給しています。
-
東証プライム上場企業グループ
オープンアップシステムは東証プライム上場「株式会社オープンアップグループ」のグループ企業です。
安定した経営基盤とグループ間のスムーズな連携でコロナ禍でも安定した雇用を実現させています。
株式会社オープンアップシステムに興味を持った方へ
株式会社オープンアップシステムでは、開発系エンジニア・プログラマを募集しています。
年収をアップしたい！スキルアップしたい！大手の上流案件にチャレンジしたい！
まずは話だけでも聞いてみたい場合もOK。お気軽にご登録ください。
新着案件New Job
-
開発エンジニア/東京都品川区/【WEB面談可】/在宅ワーク
月給29万～30万円東京都品川区(大崎駅) -
遠隔テストサービス機能改修/JavaScript/東京都港区/【WEB面談可】/テレワーク
月給45万～60万円東京都港区(六本木駅) -
病院内システムの不具合対応、保守/東京都豊島区/【WEB面談可】/テレワーク
月給30万～30万円東京都豊島区(池袋駅) -
開発/JavaScript/東京都豊島区/【WEB面談可】/テレワーク
月給50万～50万円東京都豊島区(大塚駅) -
債権債務システム追加開発/東京都文京区/【WEB面談可】/在宅勤務
月給62万～67万円東京都文京区(後楽園駅) -
PMO/東京都豊島区/【WEB面談可】/在宅勤務
月給55万～55万円東京都豊島区(池袋駅)
関連記事Related Posts
-
VB.NETをおすすめする3つの理由とは？VBAとの違いや勉強方法を解説
VB.NETの特徴 VB.NETは、Microsftが開発したプログラミング言語です。.NET系のアプリ開発ができ、初めてでも学びやすいのが最大の特徴です。 画面を使ったアプリも簡単に作れるので、学習の難易度 + 作れる […]
-
VB.NETでの配列初期化方法とは？宣言と初期化・サイズを指定・ReDimで再宣言・要素固定の一括初期化
VB.NETでの配列初期化方法とは？ 今回は、VB.NETでの配列の初期化方法について説明します。ここでは、宣言と初期化、サイズ指定、ReDimで再宣言、一括初期化、コピーで初期化について紹介します。 VB.NETでの配 […]
-
VB.NETでのXMLの読み書き方法とは？シリアライズやデシリアライズの方法を紹介
[VB.NET]XMLの読み書き方法とは？ 今回は、VB.NETでのXMLの読み書き方法について説明します。 オブジェクトをファイルなどに書き込むことをシリアライズ、ファイルなどからオブジェクトを読み出すことをデシリアラ […]
-
VB.NETでのSharedの使い方とは？Shared変数・コンストラクタ・メソッド
VB.NETでのSharedの使い方とは？ 今回は、VB.NETでのShared修飾子の使い方について説明します。Shared修飾子を付与したメンバは、インスタンスを作成しなくても存在します。もちろん、インスタンスを作成 […]
-
VB.NETにおけるAccess接続方法｜OLEDBE・ODBCを使用したサンプルコードを作成
VB.NET Access 接続 ここからはVisual Basic.NETからMicrosoft Accessに接続する手順について説明します。Microsoft Accessのサンプルaccdbを導入後、Visual […]
