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

配列は似た性質のデータをまとめて取り扱えるようにするデータ形式です。 配列の機能は、その昔の言語である FORTRAN , C言語 （私も使った言語ですが）等でも持っています。 ここまで配列の機能が残っているということは、それなりに使い勝手が良いのではないかと思います。 そこで今回は、配列の使い方について順を追って説明したいと思います。

• 簡単な配列の宣言と使い方
• 配列宣言の落とし穴
• 配列の初期化
• 配列の最終指標はUBound
• 配列のサイズ変更(ReDim)
• 配列のサイズ未指定での宣言
• 配列のループ処理は For Each

■簡単な配列の宣言と使い方

以下のソースを見て下さい。 処理の前半は、配列を利用しない場合の合計処理を示しています。 配列が無い場合は、値を別々の変数に宣言して、それぞれを参照し合計を求めています。 配列を利用しないと非常に煩雑になってしまします。

処理の後半で配列を利用する場合を示しています。 配列の各要素に値を設定する部分は、ベタに記述していますが、合計を求めるところで 配列の処理らしさが現れています。 （この処理などは初歩の初歩なので特に難しくないと思います。）

    Private Sub btnArray_Click(sender As Object, e As EventArgs) Handles btnArray.Click
        '===配列を利用しない場合の合計処理===
        '各変数の宣言
        Dim nVal1 As Integer
        Dim nVal2 As Integer
        Dim nVal3 As Integer
        Dim nVal4 As Integer
        Dim nVal5 As Integer
        '値の設定
        nVal1 = 1
        nVal2 = 10
        nVal3 = 100
        nVal4 = 1000
        nVal5 = 10000
        '値の合計
        Dim nSum As Integer
        nSum = nVal1 + nVal2 + nVal3 + nVal4 + nVal5
        Console.WriteLine("配列を利用しない場合の合計処理：{0}", nSum)

        '===配列を利用===
        '配列宣言
        Dim arr(5) As Integer
        '要素に値設定
        arr(1) = 1
        arr(2) = 10
        arr(3) = 100
        arr(4) = 1000
        arr(5) = 10000
        '指標宣言
        Dim i As Integer
        '合計計算
        nSum = 0
        For i = 1 To 5
            nSum = nSum + arr(i)
        Next
        Console.WriteLine("配列を利用した場合の合計処理：{0}", nSum)
    End Sub

実行結果がコンソールには以下様に表示されます。（当然合計値は同じ結果）

配列を利用しない場合の合計処理：11111
配列を利用した場合の合計処理：11111

■配列宣言の落とし穴

上記のソースでは配列宣言で Dim arr(5) As Integer と宣言しましたが、 領域としては指標が「1」～「5」まで確保されたかの様に感じますが、実は指標「0」の要素が存在します。
そこで上記のソースを以下の様に変更し実行してみます。

    Private Sub btnArray_Click(sender As Object, e As EventArgs) Handles btnArray.Click
        '===配列を利用===
        '配列宣言
        Dim arr(5) As Integer
        '要素に値設定
        arr(1) = 1
        arr(2) = 10
        arr(3) = 100
        arr(4) = 1000
        arr(5) = 10000
        arr(0) = 10000  '指標「0」の要素
        '指標宣言
        Dim i As Integer
        '合計計算
        nSum = 0
        For i = 0 To 5
            nSum = nSum + arr(i)
        Next
        Console.WriteLine("配列を利用した場合の合計処理：{0}", nSum)
    End Sub

配列を利用した場合の合計処理：21111

結果を見れば指標「0」の要素が存在することが分かります。

Dim arr(5) で5個の領域を宣言したつもりが指標「0」の要素が存在するため、 全体では6個の領域を宣言したことになります。
配列の開始が指標「0」と考えるのか、それとも指標「1」からとするのかで、プログラムの動作や組み方が変わってきます。 複数の人で組む場合にはなおさらで、どちらにするのかを決めておく必要があります。

配列の開始が指標「0」を使うのであれば、必要個数の1個少な目で配列宣言するのか、 それとも指標「1」ならば必要個数で配列宣言し、指標「0」の要素は未使用とするか、と言ったところです。

■配列の初期化

配列の宣言で一緒に初期化ができます。 配列の要素数を記述せずに、宣言のデータ型の後に、=(イコール) で繋ぎ {}(中括弧) で要素を ,(カンマ) で区切って記述します。

上記のソースを配列の初期化を行う様に変更します。

    Private Sub btnArray_Click(sender As Object, e As EventArgs) Handles btnArray.Click
        '配列宣言（初期化）
        Dim arr() As Integer = {10000, 10000, 1000, 100, 10, 1}
        '指標宣言
        Dim i As Integer
        '合計計算
        Dim nSum As Integer
        nSum = 0
        For i = 0 To 5
            nSum = nSum + arr(i)
        Next
        Console.WriteLine("配列宣言（初期化）を利用した場合の合計処理：{0}", nSum)
    End Sub

このソース合計計算の For ループで「5」を直値（リテラル）で記述しています。 この場合は「5」であることが明らかなので問題は無いのですが、 配列の最終の指標が何か分からない時には UBound 等を用います。 以下に項目を新しくして説明します。

■配列の最終指標はUBound

UBound 関数は配列内の指定された次元における最も大きいインデックスを返します。

Public Function UBound(Array As System.Array, Optional Rank As Integer = 1) As Integer
引数:
・Array：任意のデータ型の配列です。 ある次元で最も大きいインデックスを探す対象となる配列です。
・Rank ：省略可能です。 Integer. 最も大きいインデックスが返される次元です。
         1番目の次元の場合は「1」、2番目の次元の場合は「2」という形で指定します。
         Rank を省略した場合、「1」が使用されます。
戻り値:Integer型
・指定した次元に設定できるインデックスの最大値です。
・Array に要素が 1 つしかない場合、UBound は 0 を返します。
・Array に要素が存在しない場合 (長さ 0 の文字列の場合など)、UBound は -1 を返します。

以下の例では For ループの最終指標にこの UBound 関数を使っています。

尚、配列のプロパティのには現在の配列の大きさ（長さ）を返してくれる Length がありますのでそれを使っても同様です。 但し、 Length は個数なので「-1」する必要があります。

    Private Sub btnArray_Click(sender As Object, e As EventArgs) Handles btnArray.Click
        '配列宣言（初期化）
        Dim arr() As Integer = {10000, 10000, 1000, 100, 10, 1}
        '指標宣言
        Dim i As Integer
        '合計計算
        Dim nSum As Integer = 0
        '[Ubound]を使った最終指標
        For i = 0 To UBound(arr)
            nSum = nSum + arr(i)
        Next
        Console.WriteLine("配列宣言（初期化）を利用した場合の合計処理：{0}", nSum)

        nSum = 0
        '配列の大きさを返すプロパティ[Length]を使った最終指標
        For i = 0 To arr.Length - 1
            nSum = nSum + arr(i)
        Next
        Console.WriteLine("配列宣言（初期化）を利用した場合の合計処理：{0}", nSum)
    End Sub

■配列のサイズ変更(ReDim)

配列のサイズを変更するために ReDim 命令を使います。
以下のソースでは ReDim 命令で指標が「2」までのサイズに縮めています。 （合計の結果は「21000」を想定していますが...）

    Private Sub btnArray_Click(sender As Object, e As EventArgs) Handles btnArray.Click
        '配列宣言（初期化:要素6個）
        Dim arr() As Integer = {10000, 10000, 1000, 100, 10, 1}
        '配列サイズ変更
        ReDim arr(2)
        '合計計算
        Dim nSum As Integer = 0
        '[Ubound]を使った最終指標
        For i As Integer = 0 To UBound(arr)
            nSum = nSum + arr(i)
        Next
        Console.WriteLine("配列をReDimでサイズ変更した場合の合計処理：{0}", nSum)
    End Sub

しかし結果は「0」となってしまいます。

配列をReDimでサイズ変更した場合の合計処理：0

これは ReDim 命令はサイズを変更した後で全ての要素をその配列のデータ型で初期化してしまうからです。 既に存在した要素を引き継ぐ場合には ReDim 命令で Preserve を指定します。

    Private Sub btnArray_Click(sender As Object, e As EventArgs) Handles btnArray.Click
        '配列宣言（初期化:要素6個）
        Dim arr() As Integer = {10000, 10000, 1000, 100, 10, 1}
        '配列サイズ変更(Preserve指定)
        ReDim Preserve arr(2)
        '合計計算
        Dim nSum As Integer = 0
        '[Ubound]を使った最終指標
        For i As Integer = 0 To UBound(arr)
            nSum = nSum + arr(i)
        Next
        Console.WriteLine("配列をReDimでサイズ変更した場合の合計処理：{0}", nSum)
    End Sub

結果は想定通り「21000」となりました。

配列をReDimでサイズ変更した場合の合計処理：21000

■配列のサイズ未指定での宣言

配列のサイズを指定せずに配列を宣言することができます。 この場合、配列は空の状態で存在し ReDim 命令でサイズを増やしてやらないと使用できません。 （空の状態の状態は Is Nothing で判定できます）
それでは、以下にInteger型配列をサイズ無しで宣言し、配列のサイズを順次拡張して中身が「0」～「9」となる 配列を作成する例を示します。

    Private Sub btnArray_Click(sender As Object, e As EventArgs) Handles btnArray.Click
        '配列宣言
        Dim arr() As Integer    ' = Nothing はあった方がいいと思います
        '「0」～「9」の処理
        For i As Integer = 0 To 9
            If arr Is Nothing Then
                '最初は指標「0」
                ReDim arr(0)
                arr(0) = i
            Else
                '次の指標
                Dim idx As Integer = UBound(arr) + 1
                'サイズ拡張
                ReDim Preserve arr(idx)
                '要素設定
                arr(idx) = i
            End If
        Next
        '配列の要素を文字列として連結
        Dim str As String = ""
        For i As Integer = 0 To UBound(arr)
            If str <> "" Then str &= ","
            str &= arr(i)
        Next
        Console.WriteLine("配列：{0}", str)
    End Sub

配列：0,1,2,3,4,5,6,7,8,9

■配列のループ処理は For Each

上記に配列のループ処理の最終指標として UBound Array.Length を使いましたが、 指標に関係なく配列の要素を順次取得する方法が For Each … Next 処理です。 以下の実際のソースで直感的に分かると思います。
For Each の後ろに配列の要素と同じデータ型の変数を記述し In の後ろに対象となる配列を記述します。

    Private Sub btnArray_Click(sender As Object, e As EventArgs) Handles btnArray.Click
        '配列宣言（初期化）
        Dim arr() As Integer = {10000, 10000, 1000, 100, 10, 1}
        '要素宣言
        Dim nEnt As Integer
        '合計計算
        Dim nSum As Integer = 0
        For Each nEnt In arr
            nSum += nEnt
        Next
        Console.WriteLine("For Each ... Nexを利用した場合の合計処理：{0}", nSum)
    End Sub

For Each ... Nexを利用した場合の合計処理：21111

尚、要素用の変数を別で宣言しなくても以下の様にしても同様な結果となります。

    Private Sub btnArray_Click(sender As Object, e As EventArgs) Handles btnArray.Click
        '配列宣言（初期化）
        Dim arr() As Integer = {10000, 10000, 1000, 100, 10, 1}
        '合計計算
        Dim nSum As Integer = 0
        For Each nEnt As Integer In arr
            nSum += nEnt
        Next
        Console.WriteLine("For Each ... Nexを利用した場合の合計処理：{0}", nSum)
    End Sub

関連する記事

⇒配列の使い方の注意点について（コピー,　Clone）
⇒配列の範囲指定によるコピー（Array.Copy, Skip, Take）

数値の小数点以下の丸め処理を行うには Math オブジェクトを使います。 Math オブジェクトは数学的な定数と関数を提供する組み込みのプロパティとメソッドを持っています。
今回の丸め処理には、以下の様に切り捨て 四捨五入 切り上げ を行うメソッドがあります。

• Math.floor() メソッド : 引数として与えた数以下の最大の整数を返します。
• Math.round() メソッド : 引数として与えた数を四捨五入して、もっとも近似の整数を返します。
• Math.ceil() メソッド : 引数として与えた数以上の最小の整数を返します。

今回は、これらのメソッドを使って丸め処理の関数を作成してみました。

丸め処理の関数

/*
 * 丸め処理
 *   P_dblVal   : 対象値
 *   P_intRound : 小数点以下丸め処理(1:切り捨て, 2:四捨五入, 3:切り上げ)
 *   return     : 丸めた値
 */
function calcRound(P_dblVal, P_intRound) {
    var dblRet;
    // 丸め処理
    switch (parseInt(P_intRound)) {
        case 1:
          dblRet = Math.floor(P_dblVal);
          break;
        case 2:
          dblRet = Math.round(P_dblVal);
          break;
        case 3:
          dblRet = Math.ceil(P_dblVal);
          break;
        default:
          dblRet = Math.round(P_dblVal);
          break;
    }
    // 戻り値
    return dblRet;
}

上記の関数を実行させてみます。

    console.log('切り捨て:(10.4) = ' + calcRound(10.4, 1));
    console.log('四捨五入:(10.4) = ' + calcRound(10.4, 2));
    console.log('切り上げ:(10.4) = ' + calcRound(10.4, 3));

    console.log('切り捨て:(10.5) = ' + calcRound(10.5, 1));
    console.log('四捨五入:(10.5) = ' + calcRound(10.5, 2));
    console.log('切り上げ:(10.5) = ' + calcRound(10.5, 3));

    console.log('切り捨て:(-10.5) = ' + calcRound(-10.5, 1));
    console.log('四捨五入:(-10.5) = ' + calcRound(-10.5, 2));
    console.log('切り上げ:(-10.5) = ' + calcRound(-10.5, 3));

実行結果がコンソールには以下の結果が表示されます。

切り捨て:(10.4) = 10
四捨五入:(10.4) = 10
切り上げ:(10.4) = 11
切り捨て:(10.5) = 10
四捨五入:(10.5) = 11
切り上げ:(10.5) = 11
切り捨て:(-10.5) = -11
四捨五入:(-10.5) = -10
切り上げ:(-10.5) = -10

小数点以下１位の丸めは出来たのですが、小数点以下２位や３位での丸めはどうすればいいのでしょうか。 方法としては、小数点以下２位での丸めは数値を一旦１０倍してから、丸め処理を行いその結果を１０で割れば出来るようです。

    var valTest = 10.15;
    console.log('切り捨て:(10.15) = ' + Math.floor(valTest * 10) / 10);
    console.log('四捨五入:(10.15) = ' + Math.round(valTest * 10) / 10);
    console.log('切り上げ:(10.15) = ' + Math.ceil(valTest * 10) / 10);

実行結果がコンソールには以下の結果が表示されます。

切り捨て:(10.15) = 10.1
四捨五入:(10.15) = 10.2
切り上げ:(10.15) = 10.2

これを参考に上記の関数を変更してみます。

丸め処理の関数２（小数点以下桁数の引数追加）

/* 
 * 丸め処理・小数点以下の桁数指定
 *   P_dblVal   : 対象値
 *   P_intRound : 小数点以下丸め処理(1:切り捨て, 2:四捨五入, 3:切り上げ)
 *   P_intDpUnit: 小数点以下桁数
 *   return     : 丸めた値
 */
function calcRoundDp(P_dblVal, P_intRound, P_intDpUnit) {
    var dblRet;
    var dblPow = Math.pow(10, P_intDpUnit);
    P_dblVal = P_dblVal * dblPow;
    // 丸め処理
    switch (parseInt(P_intRound)) {
        case 1:
          dblRet = Math.floor(P_dblVal);
          break;
        case 2:
          dblRet = Math.round(P_dblVal);
          break;
        case 3:
          dblRet = Math.ceil(P_dblVal);
          break;
        default:
          dblRet = Math.round(P_dblVal);
          break;
    }
    // 戻り値
    return dblRet / dblPow;
}

上記の関数を実行させてみます。

    var valTest = 10.15;
    console.log('小数点以下２位を丸め処理');
    console.log('切り捨て:(10.15) = ' + calcRoundDp(valTest, 1, 1));
    console.log('四捨五入:(10.15) = ' + calcRoundDp(valTest, 2, 1));
    console.log('切り上げ:(10.15) = ' + calcRoundDp(valTest, 3, 1));

    console.log('小数点以下１位を丸め処理');
    console.log('切り捨て:(10.15) = ' + calcRoundDp(valTest, 1, 0));
    console.log('四捨五入:(10.15) = ' + calcRoundDp(valTest, 2, 0));
    console.log('切り上げ:(10.15) = ' + calcRoundDp(valTest, 3, 0));

    console.log('１の位を丸め処理');
    console.log('切り捨て:(10.15) = ' + calcRoundDp(valTest, 1, -1));
    console.log('四捨五入:(10.15) = ' + calcRoundDp(valTest, 2, -1));
    console.log('切り上げ:(10.15) = ' + calcRoundDp(valTest, 3, -1));

    console.log('１０の位を丸め処理');
    console.log('切り捨て:(10.15) = ' + calcRoundDp(valTest, 1, -2));
    console.log('四捨五入:(10.15) = ' + calcRoundDp(valTest, 2, -2));
    console.log('切り上げ:(10.15) = ' + calcRoundDp(valTest, 3, -2));

実行結果がコンソールには以下の結果が表示されます。

小数点以下２位を丸め処理
切り捨て:(10.15) = 10.1
四捨五入:(10.15) = 10.2
切り上げ:(10.15) = 10.2
小数点以下１位を丸め処理
切り捨て:(10.15) = 10
四捨五入:(10.15) = 10
切り上げ:(10.15) = 11
１の位を丸め処理
切り捨て:(10.15) = 10
四捨五入:(10.15) = 10
切り上げ:(10.15) = 20
１０の位を丸め処理
切り捨て:(10.15) = 0
四捨五入:(10.15) = 0
切り上げ:(10.15) = 100

結果から見て、上手く動作している様です。
小数点以下の桁数に大きな値を与えると、関数内の Math.pow で桁あふれが発生する様です。 そのため、桁数指定は10桁以内ぐらいが妥当かと思います。（もっともそこまでの桁数で計算する処理も無いとは思いますが...）

EXEファイルの実行フォルダが必要になることはよくあります。 フォルダを取得して、そこからの相対フォルダ参照で、データフォルダなどを作成・参照を行ったりしますので、 その方法について示します。

まず最初は通常のWindowsフォームを持っているEXEファイルに付いてです。

WindowsフォームでのEXEファイル取得

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim strPath As String = ""

    'System.Windows.Forms.Application のSharedプロパティ「ExecutablePath」を参照
    '　アプリケーションを開始した実行可能ファイルのパスを、ファイル名を含めて取得します。
    strPath = System.Windows.Forms.Application.ExecutablePath
    Console.WriteLine("ExecutablePathdでのExeフルパス：[{0}]", strPath)

    '因みに、System.Windows.Forms.Application のSharedプロパティ「StartupPath」を参照
    '　アプリケーションを開始した実行可能ファイルのファイル名を含まないパス取得します。
    strPath = System.Windows.Forms.Application.StartupPath
    Console.WriteLine("StartupPathでのExeフルパス：[{0}]", strPath)
End Sub

実行結果は以下の様になります。

ExecutablePathdでのExeフルパス：[C:¥TestSrv¥BlogTest¥BlogTest¥bin¥Debug¥BlogTest.EXE]
StartupPathでのExeフルパス：[C:¥TestSrv¥BlogTest¥BlogTest¥bin¥Debug]

コンソールアプリの場合にはこれは使えないので、以下の様に自分自身のアセンブリを取得し、そのLocationプロパティ を取得することでEXEのフルパスが取得できます。

GetExecutingAssembly().Location でのEXEファイル取得

Module MdlMainPath
    'Main関数
    Sub Main()
        Dim strPath As String = ""
        'GetExecutingAssembly().Locationでの実行ファイルのパスを取得する
        strPath = System.Reflection.Assembly.GetExecutingAssembly().Location
        Console.WriteLine("GetExecutingAssembly().LocationでのExeフルパス：[{0}]", strPath)

        'パスから実行フォルダのみを取り出す
        strPath = System.IO.Path.GetDirectoryName(strPath)
        Console.WriteLine("GetExecutingAssembly().LocationでのExeフォルダ：[{0}]", strPath)
    End Sub
End Module

実行結果は以下の様になります。

GetExecutingAssembly().LocationでのExeフルパス：[C:¥TestSrv¥BlogTest¥BlogTest¥bin¥Debug¥BlogTest.exe]
GetExecutingAssembly().LocationでのExeフォルダ：[C:¥TestSrv¥BlogTest¥BlogTest¥bin¥Debug]

関連する記事

⇒フォルダコピー(サブフォルダ以下も含む)：[Directory.GetFiles,Directory.GetDirectories]
⇒指定フォルダ内の全ファイルを削除　　　：[Directory.GetFiles,File.Delete]
⇒指定フォルダ内の全ファイルをクリア　　：[Directory.GetFiles,File.Delete]

あるデータ処理において文字列を Shift-JIS と考えて切出す必要があり、 文字列を Shift-JIS と見立てて切出す関数を作ってみましたので紹介します。

VB.NET において通常、文字列は Unicode(UTF-8) で処理されています。 ほとんどの場合は文字コードのことを特に考えなくても問題は無いのですが、まれにシリアル通信等で外部とのやり取りを行う場合に 文字列のコードが Shift-JIS を使っていたりします。こういった場合に今回の関数群は使えると思います。

では、最初に文字列の中から文字列のバイト位置（Shift-JISと考えて）と切出すバイト数を指定し、処理する関数である MidB（以前の VB では Mid$ とされていたもの）を記します。
開始位置、切出しバイト数の指定値により、全角文字の泣き別れが発生しますので、関数の処理手順は以下の様に行います。

• 開始位置が「1」未満の場合は空文字を返す。
• 文字列をShift-JISエンコードでバイト配列に分解し、開始位置が配列の長さより大きい場合は空文字を返す。
• 先頭から見て指定位置の直前までを切出し最後の文字が漢字の左半分の場合、開始位置と切出しバイト数を調整。
• 調整された開始位置とバイト数で文字列を切出し最後の文字が漢字の左半分の場合、切出しバイト数を調整。
• 調整された開始位置とバイト数で文字列を生成する。

MidB 関数

''' 

''' 開始位置、バイト指定による文字列切出・Mid関数
''' 
''' <param name="astrSrc">対象文字列</param>
''' <param name="aintStart">開始位置(先頭1から)</param>
''' <param name="aintLen">切出しバイト数</param>
''' 切出し文字列
Private Function MidB(ByVal astrSrc As String, 
                      ByVal aintStart As Integer,
                      ByVal aintLen As Integer) As String
    Try
        '開始を「0」からの指標
        Dim intStart As Integer = aintStart - 1
        '開始が１より小さい場合は空文字を返す
        If intStart < 0 Then
            Return ""
        End If
        'Shift-JISでエンコーディングしてバイト配列に分解
        Dim objEnc As System.Text.Encoding =
                      System.Text.Encoding.GetEncoding("Shift_JIS")
        Dim arrBytes As Byte() = objEnc.GetBytes(astrSrc)
        '開始がバイト配列より大きい場合は空文字を返す
        If intStart > arrBytes.Length - 1 Then
            Return ""
        End If

        '取り出しバイト数
        Dim intLen As Integer = aintLen
        If (intStart + aintLen) > (arrBytes.Length - 1) Then
            intLen = arrBytes.Length - intStart
        End If

        '先頭から見て指定位置の直前までを切り出す
        Dim strTemp As String = objEnc.GetString(arrBytes, 0, intStart)
        If strTemp.EndsWith(ControlChars.NullChar) Or strTemp.EndsWith("・") Then
            '最後の文字が漢字の左半分の場合、切出の先頭は泣き別れになる
            intStart += 1   '開始位置を右へ
            intLen -= 1     '切出バイト数を1個少なくする
        End If

        '修正位置とバイト数で切り出す
        strTemp = objEnc.GetString(arrBytes, intStart, intLen)
        If strTemp.EndsWith(ControlChars.NullChar) Or strTemp.EndsWith("・") Then
            '最後の文字が漢字の左半分の場合、泣き別れになる
            intLen -= 1     '切出バイト数をさらに1個少なくする
        End If

        '文字列を返す
        Return objEnc.GetString(arrBytes, intStart, intLen)

    Catch ex As Exception
        Return ""
    End Try
End Function

以前の VB の Mid$ では第3引数が無く、開始位置から右側を全て返す関数がありましたので、 同じ関数名で引数の数が異なる関数を以下に記します。

MidB 関数（開始位置以降の切出し）

''' 

''' 開始位置以降の文字列切出・Mid関数
''' 
''' <param name="astrSrc">対象文字列</param>
''' <param name="aintStart">開始位置(先頭1から)</param>
''' 切出し文字列
Private Function MidB(ByVal astrSrc As String, ByVal aintStart As Integer) As String
    Try
        '開始を「0」からの指標
        Dim intStart As Integer = aintStart - 1
        '開始が１より小さい場合は空文字を返す
        If intStart < 0 Then
            Return ""
        End If
        'Shift-JISでエンコーディングしてバイト配列に分解
        Dim objEnc As System.Text.Encoding =
                      System.Text.Encoding.GetEncoding("Shift_JIS")
        Dim arrBytes As Byte() = objEnc.GetBytes(astrSrc)
        '開始がバイト配列より大きい場合は空文字を返す
        If intStart > arrBytes.Length - 1 Then
            Return ""
        End If

        '実際の処理は上記の関数をコール
        Return MidB(astrSrc, aintStart, arrBytes.Length - aintStart + 1)

    Catch ex As Exception
        Return ""
    End Try
End Function

さらに、文字列の左側から指定バイト数を切り出す LeftB 関数、文字列の右側から指定バイト数を切り出す RightB 関数を記します。 この2個の関数は最初の MidB 関数を利用しています。

LeftB 関数 , RightB 関数

''' 

''' バイト数指定による文字列の左側切出し・Left関数
''' 
''' <param name="astrSrc">対象文字列</param>
''' <param name="aintLen">左側切出しバイト数</param>
''' 切出し文字列
Private Function LeftB(ByVal astrSrc As String, ByVal aintLen As Integer) As String
    '先頭から指定バイト数を切り出す
    Return MidB(astrSrc, 1, aintLen)
End Function

''' 

''' バイト数指定による文字列の右側切出し・Right関数
''' 
''' <param name="astrSrc">対象文字列</param>
''' <param name="aintLen">右側切出しバイト数</param>
''' 切出し文字列
Private Function RightB(ByVal astrSrc As String, ByVal aintLen As Integer) As String
    'Shift-JISでエンコーディングしてバイト配列に分解
    Dim objEnc As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS")
    Dim arrBytes As Byte() = objEnc.GetBytes(astrSrc)
    'バイト数がバイト配列の個数より多い場合は、対象文字列そのまま返す
    If aintLen >= arrBytes.Length Then
        Return astrSrc
    End If
    '開始位置
    Dim intStart As Integer = arrBytes.Length - aintLen + 1
    '先頭から指定バイト数を切り出す
    Return MidB(astrSrc, intStart, aintLen)
End Function

これらの関数を実行する例を以下に記します。 これはフォームにボタンを設置し、クリックイベント時に、各関数の処理を行い結果をデバッグ用の出力ウインドウに表示しています。

    Private Sub btnStringCut_Click(sender As Object, e As EventArgs) Handles btnStringCut.Click
        '表示
        Dim strSrc As String = "あいうえお"
        Dim i As Integer

        '引数が3個ある MidB 関数
        Dim nCut As Integer = 6
        For i = 0 To 10
            Dim strDes As String = MidB(strSrc, i, nCut)
            Console.WriteLine("MidB(""{0}"", {1}, {2}) : /{3}/", strSrc, i, nCut, strDes)
        Next

        '引数が2個の MidB 関数
        For i = 0 To 10
            Dim strDes As String = MidB(strSrc, i)
            Console.WriteLine("MidB(""{0}"", {1}) : /{2}/", strSrc, i, strDes)
        Next

        'LeftB 関数
        For i = 0 To 10
            Dim strDes As String = LeftB(strSrc, i)
            Console.WriteLine("LeftB(""{0}"", {1}) : /{2}/", strSrc, i, strDes)
        Next

        'RightB 関数
        For i = 1 To 11
            Dim strDes As String = RightB(strSrc, i)
            Console.WriteLine("RightB(""{0}"", {1}) : /{2}/", strSrc, i, strDes)
        Next
    End Sub

結果の表示は以下の通りです。

MidB("あいうえお", 0, 6) : //
MidB("あいうえお", 1, 6) : /あいう/
MidB("あいうえお", 2, 6) : /いう/
MidB("あいうえお", 3, 6) : /いうえ/
MidB("あいうえお", 4, 6) : /うえ/
MidB("あいうえお", 5, 6) : /うえお/
MidB("あいうえお", 6, 6) : /えお/
MidB("あいうえお", 7, 6) : /えお/
MidB("あいうえお", 8, 6) : /お/
MidB("あいうえお", 9, 6) : /お/
MidB("あいうえお", 10, 6) : //
MidB("あいうえお", 0) : //
MidB("あいうえお", 1) : /あいうえお/
MidB("あいうえお", 2) : /いうえお/
MidB("あいうえお", 3) : /いうえお/
MidB("あいうえお", 4) : /うえお/
MidB("あいうえお", 5) : /うえお/
MidB("あいうえお", 6) : /えお/
MidB("あいうえお", 7) : /えお/
MidB("あいうえお", 8) : /お/
MidB("あいうえお", 9) : /お/
MidB("あいうえお", 10) : //
LeftB("あいうえお", 0) : //
LeftB("あいうえお", 1) : //
LeftB("あいうえお", 2) : /あ/
LeftB("あいうえお", 3) : /あ/
LeftB("あいうえお", 4) : /あい/
LeftB("あいうえお", 5) : /あい/
LeftB("あいうえお", 6) : /あいう/
LeftB("あいうえお", 7) : /あいう/
LeftB("あいうえお", 8) : /あいうえ/
LeftB("あいうえお", 9) : /あいうえ/
LeftB("あいうえお", 10) : /あいうえお/
RightB("あいうえお", 1) : //
RightB("あいうえお", 2) : /お/
RightB("あいうえお", 3) : /お/
RightB("あいうえお", 4) : /えお/
RightB("あいうえお", 5) : /えお/
RightB("あいうえお", 6) : /うえお/
RightB("あいうえお", 7) : /うえお/
RightB("あいうえお", 8) : /いうえお/
RightB("あいうえお", 9) : /いうえお/
RightB("あいうえお", 10) : /あいうえお/
RightB("あいうえお", 11) : /あいうえお/

関連する記事

⇒文字列の連結をStringBuilderで高速に行う(StringBuilder)
⇒SerialPortコントロールの使い方その３(外部装置からの垂れ流しデータ受信)

VB.NETでプログラムを組むシステムでは、データ処理のものも多いものです。 データ処理と言えば、当然のことながらデータベースを使うことがあります。 現在では SQL を使ったデータベースがほとんどで、今まで利用したものとしては 「Oracle」「MySQL」「MS-SQL」「PostgleSQL」があります。
それぞれは標準の SQL に準拠しているため、文法的にはほぼ同じですが、 関数などに少し違いがあります。

何れかのデータベースの SQL を学べば上記のものはすぐに慣れるものです。 以下のサイトは私が作ったものですが Oracle SQL 入門 サイトです。 SQL に興味のある方はご覧になってください。

OracleSQL入門

• SELECT1・基礎
  SELECT文に関する基礎的なこと
• SELECT2・基礎２
  さらにSELECT文に関する基礎的なことのその2
• SELECT3・副問合せ
  副問い合わせを含むSELECT文について
• SELECT4・集合演算子
  集合演算子を使ったSELECT文について
• SELECT5・その他
  CASE式を使ったSELECT文について
• SELECT6・EXISTS
  WHERE句にEXISTS演算子を使ったSELECT文について
• 表の結合
  クロス結合、等結合、外部結合、自己結合
• 表の結合２(JOIN)
  等結合(INNER JOIN)、外部結合(LEFT JOIN)
• 表の作成
  CREATE TABLE 文、ALTER TABLE 文
• 演算子
  算術演算子、文字結合演算子
• データの追加
  INSERT・・・VALUES文、INSERT・・・SELECT文について
• データの更新
  UPDATE文について
• データの削除
  DELETE文について
• 関数
  OracleSQLの関数の中でよく使用するもの
• 順序
  CREATE SEQUENCE文等について
• ビュー
  ビューについて
• 索引
  索引について
• ﾄﾗﾝｻﾞｸｼｮﾝ･ﾛｯｸ
  トランザクション・ロックについて
• PL/SQL入門
  Oracle PL/SQL入門
• ファンクション作成
  Oracle FUNCTIONの作成
• ﾃｰﾌﾞﾙ･ﾌｧﾝｸｼｮﾝ作成
  Oracle TABLE FUNCTIONの作成
• その他・Tips
  その他・Tips等について