関数 | リョクちゃの電脳日記

作って覚える Visual Basic 2019 デスクトップアプリ入門

かんたんVisual　Basic改訂2版

【VB.Net】PictureBoxとTimerを使ってスライドショーアプリを作ってみる

The post 【VB.Net】任意の数字の各桁の和を計算する関数を作ってみた first appeared on リョクちゃの電脳日記.

【VB.Net】2000年以降の干支を計算するアプリを作ってみた

リョクちゃ — Sun, 03 Jan 2021 08:19:08 +0000

どうも！リョクちゃです。

新年あけましておめでとうございます。

今年もよろしくお願いします。

変わらずにVB.Netの個人的学習記事を書きつづっていこうと思います。

さて、今回は2000年以降のある西暦の干支を計算する、

アプリケーションを作成してみたので紹介していきます。

ちなみに前回はこちらです。

スライドショー……順番に画像や資料を表示する機能のことを指します。今回WindowsフォームアプリケーションでPictureBoxとTimerを使ってランダムなスライドショーなるものを作ってみました。この過程や各ツールについて紹介していきます。

dreamparadaisu.com

2020-12-29 13:06

準備編

今回作成するWindowsフォームアプリケーションについて、

各章立てて触れていきます。

準備編：フォームの作成

以下のフォームを作成します。

各①～⑥のコントロールについては、以下の表になります。

No	アイテム	コントロール名
1	Label	Label1
2	TextBox	TextBox1
3	Label	Label2
4	Label	Label3
5	Button	Button1
6	PictureBox	PictureBox1

準備編：干支イラストの準備

今回PictureBox1に表示する干支の画像を、

下記サイトからダウンロードし使用させていただきました。

イラストボックス

※ゆりゆりのゆりさん、ありがとうございます。

ダウンロードした画像をそれぞれデスクトップ上の

任意に作成したフォルダに保存しています。

C:\Users\ユーザ名\Desktop\Eto

※ユーザ名には自身のPC端末のユーザ名が割り当てられます。 OSによっては異なるかと思います。

実行環境

筆者の実行環境は、

VisualStudio2019
Windows 10 64bit
.Net Framework 4.5.1

になります。

※　Windows7 8 8.1でも動作はできますが、画面デザインの表示が変わるかもしれません。

アプリケーションの目的

TextBox1に2000年以降の西暦を入力し、Button1を押すことで

入力された西暦の干支を算出し、求まった干支をLabel3に表示するとともに

PictureBox1にLabel3に表示された干支の画像が表示できることを目的とします。

プログラム編

定数宣言

2000年より前の西暦は対象外なので、あらかじめ数値を宣言します。

''' 
    ''' 2000年より前の計算をしないのであらかじめ数値を定数として宣言
    ''' 
    Private Const TARGET_YEAR As Integer = 2000

干支の画像が保存されているフォルダの場所を定数として宣言します。

''' 
    ''' 干支の画像を格納するフォルダパスを宣言
    ''' 
    Private Const ETO_PICTURE_DIR As String = "C:\Users\ユーザ名\Desktop\Eto"

※ユーザ名は各自の端末のユーザ名になります。

干支の計算

干支の計算については、2000年以降の場合は以下の式で算出することができます。

干支 = 入力された西暦 – 2000
　 = 1で求まった値 + 5
　 = 2で求まった値 / 12
　 = 3の余り

が答えになります。

求まった答えを以下の表に当てはめてあげることで、その西暦の干支がわかります。

あまり	干支
1	ねずみ(子)
2	うし(丑)
3	とら(寅)
4	うさぎ(卯)
5	たつ(辰)
6	へび(巳)
7	うま(午)
8	ひつじ(未)
9	さる(申)
10	とり(酉)
11	いぬ(戌)
12	いのしし(亥)

例えば、2015年の干支を知りたい場合、

干支 = 2015 – 2000

= 15 + 5

= 20 / 12

= 8(あまり)

表を参考に、求まった値は8なので、”未”年になります。

この計算をプログラムにてコードで書くと、以下のようになります。

((CInt(入力された年) – 2000) + 5 ) Mod 12

※ Modは余りを求める、算術演算子になります。

干支の計算：あまりを干支に変換

このままでは求まった値が何の干支なのかプログラムではわからないので、

値を干支に変換する関数を作成します。

''' 
    ''' 算出されたあまりから干支を取得
    ''' 
    ''' 
    ''' 
    Private Function GetEto(ByVal eto As Integer) As String
        Select Case eto
            Case 1 : Return "Nezumi"
            Case 2 : Return "Ushi"
            Case 3 : Return "Tora"
            Case 4 : Return "Usagi"
            Case 5 : Return "Tatsu"
            Case 6 : Return "Hebi"
            Case 7 : Return "Uma"
            Case 8 : Return "Hitsuji"
            Case 9 : Return "Saru"
            Case 10 : Return "Tori"
            Case 11 : Return "Inu"
            Case 12 : Return "Inoshishi"
            Case Else : Return ""
        End Select
    End Function

これとは別に、ローマ字表記を日本語表記に変換する関数も作成します。

''' 
    ''' 干支の名前を表示用に変換し、結果を返す
    ''' 
    ''' 
    ''' 
    Private Function ConvertDispNameEto(ByVal eto As String) As String
        Select Case eto
            Case "Nezumi" : Return "子"
            Case "Ushi" : Return "丑"
            Case "Tora" : Return "寅"
            Case "Usagi" : Return "卯"
            Case "Tatsu" : Return "辰"
            Case "Hebi" : Return "巳"
            Case "Uma" : Return "午"
            Case "Hitsuji" : Return "未"
            Case "Saru" : Return "申"
            Case "Tori" : Return "酉"
            Case "Inu" : Return "戌"
            Case "Inoshishi" : Return "亥"
            Case Else : Return ""
        End Select
    End Function

計算ボタン押下後の処理

入力値がない場合は処理をしないようにします。

''' 
    ''' 計算ボタン押下後
    ''' 
    ''' 
    ''' 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 入力値が空白でないかチェック
        ' 空白なら処理をしない
        ' 2000年より前でも処理をしない
        If Me.TextBox1.Text <> "" And CInt(Me.TextBox1.Text) >= TARGET_YEAR Then


        End If
    End Sub

入力値がある場合、以下の流れで処理を進めていきます。

干支画像ファイルのパスを取得
入力された西暦から干支を計算
2で求まった値からローマ字表記の干支に変換
結果をLabel3に表示
PictureBox1にLabel3に表示されている干支の画像を表示

''' 
    ''' 計算ボタン押下後
    ''' 
    ''' 
    ''' 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 入力値が空白でないかチェック
        ' 空白なら処理をしない
        ' 2000年より前でも処理をしない
        If Me.TextBox1.Text <> "" And CInt(Me.TextBox1.Text) >= TARGET_YEAR Then

            ' 干支画像の取得
            Dim files As String() = System.IO.Directory.GetFiles(ETO_PICTURE_DIR)

            ' 入力された西暦から干支を計算
            Dim eto As Integer = ((CInt(Me.TextBox1.Text) - TARGET_YEAR) + 5) Mod 12
            Dim resEto As String = GetEto(eto)

            ' 結果をLabelに表示
            Me.Label3.Text = ConvertDispNameEto(resEto)

            ' 干支の画像を表示
            ' PicturaBox1に表示される画像サイズを変更 → Zoom
            PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
            PictureBox1.Image = System.Drawing.Image.FromFile(ETO_PICTURE_DIR + "\" + resEto + ".png")
        End If
    End Sub

実行編

それでは実行をしていきます。

プログラム起動時

西暦を入力

干支を計算ボタンを押下後

ちなみに2021年で実行すると……

言わずもがなですが…丑になります。

まとめ

今回、入力された年の干支を教えてくれるアプリケーションを作成し、

その年の干支の算出方法や表示の仕方などを解説していきました。

読者の方の何らかの参考になれば嬉しいです。

今年もこんな感じで作ったプログラムや学んだことを紹介していきます。

最後までご覧いただきありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

作って覚える Visual Basic 2019 デスクトップアプリ入門

かんたんVisual　Basic改訂2版

【VB.Net】Substringメソッドを使用した文字列内情報の抽出

The post 【VB.Net】2000年以降の干支を計算するアプリを作ってみた first appeared on リョクちゃの電脳日記.

【VB.Net】String型からDateTime型への変換

リョクちゃ — Sat, 19 Dec 2020 07:16:48 +0000

どうも！リョクちゃです。

今回は、タイトルの通りString型からDatetime型へ変換をする方法を紹介していきます。

文字列として与えられた2つの日付をDateTime型に変換し、どちらの日付が最新日かどうかを

判定し結果を返すといった例を交えて解説をしていきます。

ちなみに前回はこちら、

これまでにMid関数やLeft/Right関数を使用して文字列内情報を抽出する方法を紹介していきましたが、今回はStringクラスで提供されているSubstringメソッドを使用した方法を例を交えて紹介しています。

dreamparadaisu.com

2020-12-18 07:35

日付書式(フォーマット)について

String型の日付をDateTime型へ変換していく前に、日付書式について触れていきます。

日付書式とは、

ISO 8601（1988年）では、”YYYY-MM-DD”方式（年・月・日の順番で、紀年法による西暦（CE）で年を数字4桁、月と日とを各々数字2桁で表す方式）と定められている。日付 – Wikipedia

とネットでは解説されています。

Yを年、Mを月、Dを日とすることで、日付を表すことができます。

YやM、Dの数によって表示のされ方も変えることができます。

例えば、YYYY-MM-DDであれば、

2020-12-19と日付を表示することができます。

以下に、一覧を記します。

No	書式	詳細
1	d	月の日にち例) 1 ～ 31
2	dd	月の日にち 2桁表示例) 01 ~ 31
3	M	月例) 1 ~ 12
4	MM	月 2桁表示例) 01 ~ 12
5	yy	年末尾2桁表示例) 00 ~ 99
6	yyy	年 3桁以上の表示例) 001 ~ 999
7	yyyy	年 4桁表示例) 0001 ~ 9999

String型からDateTime型への変換 : DateTime.Parse()

String型の日付からDateTime型に変換するには、

DateTime.Parse()を使用します。

Parseメソッドは以下の引数を渡す必要があります。

DateTime.Parse(“文字列型の日付データ”)

引数を渡すことで、引数をDateTime型に変換したデータを戻り値として返します。

ただし、引数として与えられたデータの書式が日付書式と一致しない場合は、

エラーとなってしまいます。

ここでいう正しい日付書式とは、

yyyy-MM-ddやyyyy/MM/ddとして日付データが表せているかになります。

yyyy-MM-ddなら2020-12-19

yyyy/MM/ddなら2020/12/19

yyyyMMddなら20201219となるのですが、

こちらだとParseメソッドではエラーとなります。

これらを踏まえ、コードで書くと以下のようになります。

Dim date1 As DateTime = DateTime.Parse("2020/12/19")
' 結果
' 2020/12/19 : DateTime型

正しく変換できているか判定　：　DateTime.TryParse()

DateTime.Parse()では、日付書式が違うとエラーになると説明をしました。

しかしながら都度エラーが出ていたら、アプリケーションにとしては使いづらいですよね。

そんな時に、正しく日付に変換できているかどうかをチェックしてくれる関数があります。

それが、DateTime.TryParse()になります。

これは以下のようにして使うことができます。

DateTime.TryParse(“文字列型の日付データ”,”変換結果を格納する変数”)

引数に文字列型の日付データとそれを変換した結果を格納する変数をそれぞれ渡します。

戻り値は、日付が正しく変換できるかどうかをチェックしたBoolean型で返されます。

正しく変換された場合は、Trueを返し、されない場合はFalseを返します。

これを使うことで、事前に変換できたかどうかのチェックをさせることができます。

踏まえて、使い方をコードで書くと以下のようになります。

Dim date As DateTime = Nothing
If DateTime.TryParse("2020/12/19", date) Then
    ' 正しく変換できた場合の処理
Else
    ' 正しく変換できなかった場合の処理

End If

それでは、例としてフォームを作成して変換について理解を深めていきます。

準備編：フォームの作成

今回は以下のようなフォームを作成します。

No	コントロール	名前
1	Label	Label1
2	TextBox	TextBox1
3	Label	Label3
4	Label	Label4
5	Label	Label2
6	TextBox	TextBox2
7	Button	Button1

実行環境

筆者の実行環境は、

VisualStudio2019
Windows 10 64bit
.Net Framework 4.5.1

になります。

※　Windows7 8 8.1でも動作はできますが、画面デザインの表示が変わるかもしれません。

アプリケーションの目的

日付1(TextBox1)と日付2(TextBox2)に入力された文字列型の日付をボタンを押すことで、

DateTime型に変換した後、日付1と日付2のどちらが最新の日付かを判定し、

最新の日付をLabel4に表示することを目的とします。

プログラム編

前述で紹介した変換方法を踏まえて、作成したコードがこちらになります。

Public Class TestDateTime
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 変数の宣言
        Dim date1 As DateTime = Nothing
        Dim date2 As DateTime = Nothing

        ' 入力がされていなければ処理をしない
        If Me.TextBox1.Text <> "" And Me.TextBox2.Text <> "" Then
            ' 正しく変換されたかどうかを判定
            ' DateTime.TryParse()
            ' 引数1 : 文字列型の日付データ
            ' 引数2 : 結果を格納する変数
            If DateTime.TryParse(Me.TextBox1.Text, date1) And
                DateTime.TryParse(Me.TextBox2.Text, date2) Then
                ' 正しく変換されていれば処理を行う

                ' 日付の比較を行う
                If date1 > date2 Then
                    ' date1のほうが最新
                    Me.Label4.Text = date1
                Else
                    ' date2のほうが最新
                    Me.Label4.Text = date2
                End If

            Else
                ' 日付書式が違います。
                MessageBox.Show("入力された日付書式が違います。", "Error",
                                MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        End If

    End Sub
End Class

今回は、アプリケーションの操作性等も考慮してTryParse()を使っています。

実行編

それでは実際に作成したコードを実行し、動作を確認していきます。

プログラム起動時

日付をそれぞれ入力しています。

ボタンを押し判定した結果になります。

日付書式が正しくない場合は、以下のようになります。

例えば、日付書式がそれぞれ違う場合の比較の場合

正しく判定をし、最新の日付を返してくれることが確認できます。

まとめ

Striung型からDateTime型への変換方法について、例を交えて変換の考え方や

変換に使う関数の使い方について解説をしていきました。

入力値として日付が与えられることは

開発するアプリケーションによっては頻繁に出くわすかもしれません。

そんな時に今回紹介した関数を思い出して使っていただけたらなと思います。

最後までご覧いただきありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

作って覚える Visual Basic 2019 デスクトップアプリ入門

かんたんVisual　Basic改訂2版

【VB.Net】Mid関数を使った文字列内の情報を抽出する方法

The post 【VB.Net】String型からDateTime型への変換 first appeared on リョクちゃの電脳日記.

【VB.Net】Substringメソッドを使用した文字列内情報の抽出

リョクちゃ — Thu, 17 Dec 2020 22:35:43 +0000

どうも！リョクちゃです。

今回も与えられた文字列内の任意情報を抽出する方法を紹介していきます。

これまでにMid関数やLeft関数、Right関数を使用した文字列内情報の抽出の方法や

考え方を紹介し、各関数の使い方を例を交えて解説していきました。

今回はStringクラスで提供されているSubstringメソッドを使用して

文字列内の任意情報を抽出していきます。

ちなみに過去の文字列内情報に関する記事はこちら

入力値として受け取られる文字列には複数の情報が含まれている場合があります。この場合、受け取った文字列から各種情報を抽出するためにVB.NetにはMid関数が用意されていません。今回は、Mid関数の使い方から抽出の考え方を紹介していきます。

dreamparadaisu.com

2020-12-11 21:57

【VB.Net】LeftとRight関数を使って文字列内の情報を抽出

前回はMid関数を使って文字列内の情報を抽出する方法を紹介しました。今回はLeft関数とRight関数を駆使して文字列内の情報を抽出する方法を例を交えて紹介しています。

dreamparadaisu.com

2020-12-15 21:43

Substring関数

この関数は、以下の記述で使用することができます。

文字列.Substring(抽出開始位置、抽出する文字列の長さ)

イメージとしては以下のようになります。

コードで書くと、

Dim fruit As String = "Apple".Substring(3,1)
' l がfruit変数に代入される

準備編：フォームの作成

フォームについては、前回作成したフォームを再利用します。

実行環境

筆者の実行環境は、

VisualStudio2019
Windows 10 64bit
.Net Framework 4.5.1

になります。

※　Windows7 8 8.1でも動作はできますが、画面デザインの表示が変わるかもしれません。

アプリケーションの目的

適当な入力値を入力し、ボタンを押すことでそれぞれ指定の位置から情報を抽出し、

それぞれ抽出した情報を表示することを目的とします。

ただし、Substringメソッドを使用して行えるコードとする。

プログラム編

それではプログラムを作成していきます。

まずは、フォームデザイン上でボタンコントロールをダブルクリックし、

コードビューにボタンイベントを作成します。

Public Class TestMid

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


    End Sub
End Class

入力値ボックスに入力がされていれば処理をするようにします。

Public Class TestMid

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 入力値があれば
        If Me.TextBox1.Text <> "" Then

    End Sub
End Class

ここからは抽出するための準備をしていきます。

考え方としては、前回の記事と同じになりますので、コードのみを変えていきます。

Public Class TestMid
    Private Const PlaceCode As Integer = 3      ' 所在地コード
    Private Const TeleCode As Integer = 10      ' 電話番号コード
    Private Const NameCode As Integer = 5     　' 氏名コード

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 入力値があれば
        If Me.TextBox1.Text <> "" Then
            ' Left関数とRight関数を使って抽出してみる。
            Dim place As String = Me.TextBox1.Text.Substring(0, PlaceCode)
            Dim tele As String = Me.TextBox1.Text.Substring(PlaceCode, TeleCode)
            Dim name As String = Me.TextBox1.Text.Substring(PlaceCode + TeleCode, NameCode)

            ' テキストボックスへ出力
            Me.TextBox2.Text = place
            Me.TextBox3.Text = tele
            Me.TextBox4.Text = name
        End If
    End Sub
End Class

それぞれ、所在地コードを抽出する場合は、

Me.TextBox1.Text.Substring(0, PlaceCode)

開始位置を0番目として、文字列の長さにPlaceCodeの長さを引数として渡しています。

電話番号コードを抽出する場合は、

Me.TextBox1.Text.Substring(PlaceCode, TeleCode)

所在地コードの長さを開始位置として、TeleCodeの長さを引数として渡しています。

そうすることで開始位置が3番目から、10の長さを抽出し結果を返します。

氏名コードを抽出する場合は、

Me.TextBox1.Text.Substring(PlaceCode + TeleCode, NameCode)

所在地コードと電話番号コードの長さを足しわせた位置を開始位置として、

NameCodeの長さを引数として渡しています。

実行編

作成したコードを実行していきます。

ボタンを押すと、

まとめ

Substringメソッドを使用した文字列内の任意情報を抽出する

方法について考え方や使い方を解説しました。

抽出する文字列.Substring(開始位置,抽出する文字列の長さ)

を覚えておけばすぐに使用することができます。

文字列内の情報を抽出する方法としては様々な方法があります。

用途に応じて、自身が使いやすい方法で試していただければなと思います。

最後までご覧いただきありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

作って覚える Visual Basic 2019 デスクトップアプリ入門

かんたんVisual　Basic改訂2版

【VB.Net】Mid関数を使った文字列内の情報を抽出する方法

The post 【VB.Net】Substringメソッドを使用した文字列内情報の抽出 first appeared on リョクちゃの電脳日記.

【VB.Net】LeftとRight関数を使って文字列内の情報を抽出

リョクちゃ — Tue, 15 Dec 2020 12:43:28 +0000

どうも！リョクちゃです。

今回は、前回に紹介したMid関数の他に文字列内の情報を抽出する方法として、

Left関数とRight関数があります。

この関数の使い方を例を交えて紹介していきつつ、

Mid関数と組み合わせて使うことで抽出のパターンを覚えていただけたらなと思います。

ちなみに前回はこちら、

dreamparadaisu.com

2020-12-11 21:57

Left関数とRight関数

Left関数は、文字列の左端を開始位置として、

任意の長さの文字を抽出対象の文字列内から抽出してくれる関数です。

一方でRight関数は、文字列の右端を開始位置として、

任意の長さの文字を抽出対象の文字列内から抽出してくれる関数です。

それぞれ書き方としては、

Microsoft.VisualBasic.Left(抽出対象文字列, 抽出する文字列の長さ)

Microsoft.VisualBasic.Right(抽出対象文字列, 抽出する文字列の長さ)

※Imports Microsoft.VisualBesicと記述していれば、

Microsoft.VisualBasicに関しては省略ができます。

それぞれ、第1引数に抽出したい文字列

第2引数には抽出する文字列の長さを引数として渡します。

準備編：フォームの作成

前回作成したフォームがある読者の方は、前回のフォームを使ってください。

そちらを使ってコードを書いていきます。

実行環境

筆者の実行環境は、

VisualStudio2019
Windows 10 64bit
.Net Framework 4.5.1

になります。

※　Windows7 8 8.1でも動作はできますが、画面デザインの表示が変わるかもしれません。

アプリケーションの目的

適当な入力値を入力し、ボタンを押すことでそれぞれ指定の位置から情報を抽出し、

それぞれ抽出した情報を表示することを目的とします。

ただし、Left関数とRight関数、Mid関数を駆使して行えるコードとする。

どちらか一方のみでは禁止とする。

プログラム編

それではプログラムを作成していきます。

まずは、フォームデザイン上でボタンコントロールをダブルクリックし、

コードビューにボタンイベントを作成します。

Public Class TestMid

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub
End Class

入力値ボックスに入力がされていれば処理をするようにします。

Public Class TestMid

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 入力値があれば
        If Me.TextBox1.Text <> "" Then

    End Sub
End Class

ここからは抽出するための準備をしていきます。

考え方としては、前回の記事と同じでコードのみを変えていきます。

入力値として与えられる文字列には、

所在地コード(3桁)
電話番号(10桁)
氏名コード(5桁)

順に18桁が与えられます。

これを踏まえ、あらかじめ桁数がわかっているので桁数を定数として宣言しておきます。

Public Class TestMid
    Private Const PlaceCode As Integer = 3      ' 所在地コード
    Private Const TeleCode As Integer = 10      ' 電話番号
    Private Const NameCode As Integer = 5       ' 氏名コード

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 入力値があれば
        If Me.TextBox1.Text <> "" Then

        End If
    End Sub
End Class

まずは、Left関数を使って所在地コードを抽出していきます。

書き方としては、

Microsoft.VisualBasic.Left(TextBox1.Text, PlaceCode)

と書くことで、入力値の左端から所在地コードの長さ分を抽出してくれます。

一方でRight関数を使って氏名コードを抽出する書き方としては、

Microsoft.VisualBasic.Right(TextBox1.Text, NameCode)

と書くことで、入力値の右端から氏名コードの長さ分を抽出してくれます。

最後に、Mid関数を使って電話番号を抽出していきます。

Mid(TextBox1.Text, PlaceCode + 1, TeleCode)

全てのコードを合わせると以下の形になります。

Public Class TestMid
    Private Const PlaceCode As Integer = 3      ' 所在地コード
    Private Const TeleCode As Integer = 10      ' 電話番号コード
    Private Const NameCode As Integer = 5     ' 氏名コード

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 入力値があれば
        If Me.TextBox1.Text <> "" Then
            ' Left関数とRight関数を使って抽出してみる。
            Dim place As String = Microsoft.VisualBasic.Left(TextBox1.Text, PlaceCode)
            Dim tele As String = Mid(TextBox1.Text, PlaceCode + 1, TeleCode)
            Dim name As String = Microsoft.VisualBasic.Right(TextBox1.Text, NameCode)

            ' テキストボックスへ出力
            Me.TextBox2.Text = place
            Me.TextBox3.Text = tele
            Me.TextBox4.Text = name
        End If
    End Sub
End Class

実行編

作成したコードを実行していきます。

ボタンを押すと、

例を1つ実行します。

他の入力値でも桁数があっていれば正しく抽出することができます。

まとめ

Left関数とRight関数について、例を交えて使い方や

データ抽出のパターンについて紹介していきました。

これを機に文字列内の情報を抽出する際は、

これら関数を使った方法を試していただければ嬉しいです。

最後までご覧いただきありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

作って覚える Visual Basic 2019 デスクトップアプリ入門

かんたんVisual　Basic改訂2版

【VB.Net】2進数を10進数に変換する関数を作成

The post 【VB.Net】LeftとRight関数を使って文字列内の情報を抽出 first appeared on リョクちゃの電脳日記.

【VB.Net】Mid関数を使った文字列内の情報を抽出する方法

リョクちゃ — Fri, 11 Dec 2020 12:57:52 +0000

どうも！リョクちゃです。

プログラムを作っていて、ふとこんなことに悩まされることはありませんか？

入力値として受け取った文字列に複数の情報が含まれていて、

これをそれぞれ文字列内から取り出して処理をするといった

問題に直面することがないでしょうか。

そんな時に使えるのがMid関数になります。

今回は、Mid関数と呼ばれる関数について紹介をしていきます。

ちなみに前回はこちら

VB.Netで2進数を10進数に変換する関数を作成していく過程で、2進数から10進数に変換する方法を例を交えて紹介しています。

dreamparadaisu.com

2020-12-09 00:23

Mid関数とは

第1引数に、抽出したい文字列を指定
第2引数に、開始位置(1から)を指定
第3引数に、抽出する文字列の長さを指定(※省略可能)

これらを指定することで第1引数の文字列から指定の位置の長さを持つ文字列を抽出し、

戻り値として返してくれる関数になります。

Mid関数の書き方

書き方としては、

Mid(“抽出したい文字列”、抽出開始位置、[抽出する文字列の長さ])

と書くことで使うことができます。

実際に例に則って使い方を学んでいきましょう。

準備編：フォームの作成

今回は以下のフォームを作成します。

入力値から情報を3つ抽出し表示するプログラムを作成していきます。

実行環境

筆者の実行環境は、

VisualStudio2019
Windows 10 64bit
.Net Framework 4.5.1

になります。

※　Windows7 8 8.1でも動作はできますが、画面デザインの表示が変わるかもしれません。

アプリケーションの目的

適当な入力値を入力し、ボタンを押すことでそれぞれ指定の位置から情報を抽出し、

それぞれ抽出した情報を表示することを目的とします。

プログラム編

それではプログラムを作成していきます。

まずは、フォームデザイン上でボタンコントロールをダブルクリックし、

コードビューにボタンイベントを作成します。

Public Class TestMid

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub
End Class

入力値ボックスに入力がされていれば処理をするようにします。

Public Class TestMid

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 入力値があれば
        If Me.TextBox1.Text <> "" Then

    End Sub
End Class

ここからは抽出するための準備をしていきます。

考え方として、入力値に既に含まれる情報がわかっている場合、

今回は、入力される文字列には、

所在地コード、電話番号、氏名コードの順番に18桁の情報が含まれているとします。

それを踏まえて下準備をすると、以下のコードになります。

Public Class TestMid
    Private Const PlaceCode As Integer = 3      ' 所在地コード
    Private Const TeleCode As Integer = 10      ' 電話番号
    Private Const NameCode As Integer = 5       ' 氏名コード

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 入力値があれば
        If Me.TextBox1.Text <> "" Then

        End If
    End Sub
End Class

定数として、各情報の桁数(文字列の長さ)を代入しています。

これら定数を元に入力値から各情報を抽出するコードを書いていきます。

Public Class TestMid
    Private Const PlaceCode As Integer = 3      ' 所在地コード
    Private Const TeleCode As Integer = 10      ' 電話番号コード
    Private Const NameCode As Integer = 5     ' 氏名コード

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 入力値があれば
        If Me.TextBox1.Text <> "" Then
            Dim place As String = Mid(TextBox1.Text, 1, PlaceCode)
            Dim tele As String = Mid(TextBox1.Text, PlaceCode + 1, TeleCode)
            Dim name As String = Mid(TextBox1.Text, PlaceCode + TeleCode + 1, NameCode)

        End If
    End Sub
End Class

各作成した変数(place,tele,name)に入力値から抽出した情報を代入しています。

各変数を例に説明していくと、

place変数には所在地コードを入力値から抽出して代入しています。

抽出方法としては、

Mid(入力値、1、PlaceCode)

とそれぞれ引数を渡すことで、

入力値の1文字目から長さ3の文字を抽出し代入しています。

tele変数には電話番号を入力値から抽出して代入しています。

これは、

Mid(入力値、PlaceCode + 1、TeleCode)

とそれぞれ渡すことで、

入力値のPlaceCodeの長さ+1をした位置から長さ10の文字を抽出し代入しています。

+1をしているのは開始位置が0からではなく1からになるためにその分の調整になります。

+1をしないで抽出をしてしまうと、PlaceCodeの最後の文字を開始位置とし、

抽出してしまいます。

開始位置に関しては、あらかじめ位置がわかっている場合は、

定数として宣言した各桁数を順番に足し合わせて最後に+1

をしてあげることで正確に抽出をすることができます。

ただし、これは入力値に含まれる各情報が固定値の場合に有効です。

抽出した値は各テキストボックスに表示をします。

Public Class TestMid
    Private Const PlaceCode As Integer = 3      ' 所在地コード
    Private Const TeleCode As Integer = 10      ' 電話番号コード
    Private Const NameCode As Integer = 5     ' 氏名コード

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 入力値があれば
        If Me.TextBox1.Text <> "" Then
            Dim place As String = Mid(TextBox1.Text, 1, PlaceCode)
            Dim tele As String = Mid(TextBox1.Text, PlaceCode + 1, TeleCode)
            Dim name As String = Mid(TextBox1.Text, PlaceCode + TeleCode + 1, NameCode)

            ' テキストボックスへ出力
            Me.TextBox2.Text = place
            Me.TextBox3.Text = tele
            Me.TextBox4.Text = name
        End If
    End Sub
End Class

これでコードは完成です。

実行編

先ほど作成したコードを実行していきます。

入力値欄に、「777991234567866574」と入力し、ボタンを押します。

ボタンを押すと、それぞれ入力値から抽出した情報を各テキストボックスに表示がされます。

まとめ

Mid関数について、使い方や抽出における考え方を例を交えて紹介していきました。

Mid関数はExcelでもサポートされているので、

知っている読者の方も多かったのではないでしょうか。

知っているけどどうやって使っていいのかわからない、

そんな読者の方の参考になればと思っております。

ぜひ、この記事をきっかけに使い方を学んでいただけたら嬉しいです。

最後までご覧いただきありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

作って覚える Visual Basic 2019 デスクトップアプリ入門

かんたんVisual　Basic改訂2版