VB.NET-TIPS などプログラミングについて

プログラミングにおいて文字列型「String」はいろんな場面で使います。 名前を表示する時に使ったり、数値を文字列型で退避したりと枚挙に暇がありません。

この「String」ですがよく使う数値型のInteger型やDouble型、Decimal型などとは性格が異なり内部的には「クラス」の扱いなのです。 「クラス」は変数を宣言してもその変数を初期化（インスタンス化）しないと、その「クラス」のプロパティやメソッドが使えません。 使えないというか、インスタンス化されていない「クラス」のプロパティにアクセスするとその時点でエラーが発生します。 以下はエラーの発生するソースの例です。

Dim str As String
Dim nLen As Integer
nLen = str.Length  'エラーが発生します

変数 str を初期化せずにString型のLengthプロパティを使うとエラーが発生します。 「NullReferenceException」エラーが発生します。（NULLであるオブジェクトを参照したというエラー）


このエラーを回避するには、文字列型の宣言するところで初期化（空文字を代入する）を行ってから、プロパティやメソッドを使います。 また、文字列長のみ知りたいのであれば、標準で備わっている「Len」関数を使います。

Dim str As String
Dim nLen As Integer
nLen = Len(str)			'Microsoft.VisualBasic.Stringsモジュール内関数
Dim str2 As String = ""	'文字列の初期化
nLen = str2.Length  	'エラーは発生しません

Microsoft.VisualBasic.Stringsモジュールには昔のBasicを引きずった関数がいろいろありますが、 その関数を使うか、文字列のクラスのメソッドを使うかは好みの問題かと思います。 今後は「String」クラスの「Substring」メソッドを使うのが主流になるとは思います。

但し、「Left」「Right」「Mid」の関数は昔から便利だったので結構使いたくなります。 これらの関数の「String」クラスの「Substring」メソッドでの方法を以下に記します。

Dim str As String = "0123456789"
Dim str2 As String = ""
'Microsoft.VisualBasicモジュール関数
str2 = Microsoft.VisualBasic.Left(str, 2)   '"01"
str2 = Microsoft.VisualBasic.Right(str, 2)  '"89"
str2 = Microsoft.VisualBasic.Mid(str, 2, 3) '"123"
'Substringメソッド使用
str2 = str.Substring(0, 2)                  'Left(str, 2)
str2 = str.Substring(str.Length - 2, 2)     'Right(str, 2)
str2 = str.Substring(1, 3)                  'Mid(str, 2, 3)

=====
2016/01/28：の時の情報

前回はCOMオブジェクトを使ってエクセルファイルのアクセスを行いましたが、今回はOleDBを使います。
COMオブジェクトだとプロセスがメモリに残ることを気にしないといけませんが、OleDBでは気にしなくても良いようです。

以下のソースでは引数としてエクセルファイルのファイル名を指定しています。
関数の先頭で、関数内で使用するOleDB接続クラス、OleDBデータアダプタクラス、データテーブルクラスの宣言を行っています。 最初にOleDB接続クラスを使ってエクセルとの接続を行います。 ファイルの拡張子が「xlsx」と「xls」では接続されるOleDBが異なります。 「xls」では「Microsoft.Jet.OLEDB.4.0」だったのですが、「xlsx」では「Microsoft.Ace.OLEDB.12.0」になります。

次に、OleDBデータアダプタクラスを使ってエクセルシートのデータにアクセスします。 エクセルのシートをデータベースのテーブルの様に扱えます。 SQL文の中のFROM句で「Sheet1$」と記述している部分がそうです。 抽出範囲を指定する場合にはソースの様に「Sheet1$A1:C10」とすれば、 A,B,Cカラムの1行目から10行目までの指定になります。

データアダプタを作成後、データアダプタのメソッド「Fill」でデータテーブル、 エクセルのシートからデータを全て取り込みます。 後は、データテーブルから1行ずつデータ行を取得しデータ処理を行います。
以下のソースはテストですので単にデータを文字列として連結して表示しています。

関数の終了処理では使用したオブジェクトの解放を行います。

''' <summary>エクセルファイル処理</summary>
''' <param name="strXlsxFileName">xlsxファイル名</param>
Private Sub TestXlsx2(ByVal strXlsxFileName As String)
    'OleDB接続クラス
    Dim oleCon As System.Data.OleDb.OleDbConnection = Nothing
    'OleDBデータアダプタクラス
    Dim oleAdp As System.Data.OleDb.OleDbDataAdapter = Nothing
    'データテーブルクラス
    Dim adoTbl As System.Data.DataTable = Nothing

    Try
        'EXCELとの接続
        Try
            oleCon = New System.Data.OleDb.OleDbConnection()
            If System.IO.Path.GetExtension(strXlsxFileName).ToLower = "xlsx" Then
                oleCon.ConnectionString = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & _
                    System.IO.Path.GetFullPath(strXlsxFileName) & ";Extended Properties=Excel 12.0;"
            Else
                oleCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                    System.IO.Path.GetFullPath(strXlsxFileName) & ";Extended Properties=Excel 8.0;"
            End If
            oleCon.Open()
        Catch ex As Exception
            MsgBox("...EXCELオープン失敗")
            Exit Sub
        End Try

        'EXCELデータを全て取得（仮にA,B,Cカラムの10行分）
        Dim strSQL As String = "SELECT * FROM [Sheet1$A1:C10]"
        Try
            oleAdp = New System.Data.OleDb.OleDbDataAdapter(strSQL, oleCon)
            adoTbl = New System.Data.DataTable
            oleAdp.Fill(adoTbl)
        Catch ex As Exception
            MsgBox("...EXCELデータ取得失敗")
            Exit Sub
        End Try

        '文字列の連結
        Dim strTest As String = ""

        Dim adoRow As System.Data.DataRow
        For Each adoRow In adoTbl.Rows
            strTest &= adoRow(0).ToString.Trim
            strTest &= adoRow(1).ToString.Trim
            strTest &= adoRow(2).ToString.Trim
        Next
        MsgBox(strTest)

    Finally
        If Not adoTbl Is Nothing Then
            adoTbl.Clear()
            adoTbl.Dispose()
        End If
        adoTbl = Nothing

        If Not oleAdp Is Nothing Then
            oleAdp.Dispose()
        End If
        oleAdp = Nothing

        If Not oleCon Is Nothing Then
            oleCon.Close()
            oleCon.Dispose()
        End If
        oleCon = Nothing
    End Try
End Sub

尚、今回の処理で以下のエラーが出た場合はMicrosoftの再頒布可能コンポーネントをインストールして下さい。

「'Microsoft.Ace.OLEDB.12.0' プロバイダはローカルのコンピュータに登録されていません。」

■Microsoftのリンク先 Microsoft Access データベース エンジン 2010 再頒布可能コンポーネント


=====
2016/01/27：の時の情報

「CSE」を使ってPostgreSQLのデータベースのテーブルに、CSVデータ入力（インポート）を行ってみます。

まず最初に、前回のCSVデータ出力で出力された「dt_data1.csv」ファイルをCSEで入力してみます。 「DBｴｸｽﾌﾟﾛｰﾗ」に表示されているテーブル「dt_data1」の上で右クリックします。 メニューの中から、真ん中下あたりの「ﾃﾞｰﾀをｲﾝﾎﾟｰﾄ」を選びます。


「ﾃﾞｰﾀをｲﾝﾎﾟｰﾄ」を選択した後に以下の図の様に、「インポートするファイルを指定して下さい」ダイアログが表示されます。 「dt_data1.csv」を選択し「開く」ボタンをクリックします。


インポート処理のメッセージがコンソールに表示されます。 「dt_data1.csv」のデータはテーブルの中に既に存在しますので、3行のエラーが表示されます。 当然インポート処理は失敗となります。

そこで、新しいCSVファイルをテキストエディタで作成してみます。 「dt_data1-inp1.csv」として以下の図の様に3件のデータを作成します。


再度「DBｴｸｽﾌﾟﾛｰﾗ」に表示されているテーブル「dt_data1」の上で右クリックし、「ﾃﾞｰﾀをｲﾝﾎﾟｰﾄ」を選択します。 今回は「dt_data1-inp1.csv」のファイルを選択します。

インポート処理の様子が下図の様に、コンソールウインドウに表示されます。


インポートされたか確認する為、「DBｴｸｽﾌﾟﾛｰﾗ」に表示されているテーブル「dt_data1」の上で右クリックし、 「全ﾃﾞｰﾀを開く」を選択します。


これで、CSEでのCSVファイルのインポートの説明を終わりますが、 上の例でも示しましたが、インポートするCSVファイルのデータが、テーブルに既にあるデータと キーが重複する場合は注意が必要です。


=====
2015/03/23：の時の情報

「CSE」を使ってPostgreSQLのデータベースのテーブルからCSVデータ出力を行ってみます。

「DBｴｸｽﾌﾟﾛｰﾗ」に表示されているテーブル「dt_data1」の上で右クリックします。 メニューの中から、真ん中あたりの「全ﾃﾞｰﾀをｴｸｽﾎﾟｰﾄ」を選びます。


「全ﾃﾞｰﾀをｴｸｽﾎﾟｰﾄ」を選択した後の表示が以下の図の様に、「ファイルの保存先」を指定するダイアログが表示されます。 初めてこの処理を行う時のデフォルトのフォルダは「CSE.EXE」が存在するフォルダです。 ファイル名のデフォルトは「テーブル名.csv」ですので、今回は「dt_data1.csv」となります。


エキスポート処理のメッセージがコンソールに表示されます。


エキスポートされたCSVファイルをテキストエディタで開いてみます。 各データは全て値の前後に「"」（ダブルコーテーション）で囲まれていて、文字列として出力されています。


■さらに、データの条件付けを行ってのCSV出力を行ってみます。

「DBｴｸｽﾌﾟﾛｰﾗ」に表示されているテーブル「dt_data1」の上で右クリックします。 メニューの中から、「条件を指定してﾃﾞｰﾀをｴｸｽﾎﾟｰﾄ」を選びます。
「条件を指定してﾃﾞｰﾀをｴｸｽﾎﾟｰﾄ」を選択した後の表示が以下の図の様に、「検索条件 - dt_data1」が表示されます。

「出力列を指定」及び「ｵｰﾀﾞｰ列を指定」を指定して、エキスポートを行います。 両方にチェックを入れると以下の表示になります。画面は最初のカラムの「datano」に検索条件として「in (2,3)」として 「datano」が２または３のデータを抽出します。さらに「ｵｰﾀﾞｰ」にもチェックを入れて「datano」順とします。

上図で「OK」ボタンをクリックすると、以下の「ファイルの保存先」を指定するダイアログが表示されます。 先ほどとは異なるファイル名（dt_data1-1.csv）を指定してみます。

エキスポートされたCSVファイルをテキストエディタで開いてみます。 「datano」が２および３のみのデータのみであり、「datano」順になっています。


以上の様に比較的簡単にテーブルの内容をCSVファイルに出力することができます。
この機能だけでも「CSE」を使ってみる価値はあると思います。
=====
2016/01/22：の時の情報

「CSE」を使ってPostgreSQLのデータベースにテーブルを作成し、データを簡単に入力してみます。

最初にテーブルの作成を行います。CSEのメイン画面で以下の図の様にCREATE文をキー入力し、 実行ボタン（ツールバーの「！」もしくは、「メニュー」⇒「ﾃﾞｰﾀﾍﾞｰｽ」⇒「実行」）をクリックします。
コンソールには実行結果が表示されます。


作成されたテーブルが「DBｴｸｽﾌﾟﾛｰﾗ」に表示されますので、テーブル「dt_data1」の上で右クリックします。 メニューの中から、一番上の「全ﾃﾞｰﾀを開く」を選びます。
「pg_hba.conf」はPostgreSQLがインストールされているフォルダ内の「data」フォルダ内に存在します。


「全ﾃﾞｰﾀを開く」を選択した後の表示が以下の図の様に、コンソールに「dt_data1」の内容を表示されます。 このグリッドにデータを入力していきます。（図は3件のデータを入力した様子）


グリッドにデータを入力後、「メニュー」⇒「ﾃﾞｰﾀﾍﾞｰｽ」⇒「編集の反映」を選択します。 以下の確認メッセージが表示されますので、「OK」をクリックします。



テーブルへの登録のメッセージがコンソールに表示されます。


再度「DBｴｸｽﾌﾟﾛｰﾗ」のテーブル「dt_data1」上で「全ﾃﾞｰﾀを開く」を選択すれば、 入力されたデータがコンソールの部分に表示されるはずです。
=====
2016/01/20：の時の情報