Moonmile Solutions Blog

技術メルマガネタ

青木「歴史に if は無いというが、Visual Basic には if があるッ!!!」
田中「まぁ、そりゃそうでしょうね。if 文がないと条件分岐ができないし…」
青木「しかし、if が無ければ、前だけ向いて進めばいいという先生の話も理解できるし」
田中「いや、それ、ラジオの CM ですし…」
青木「しかし、if が無ければ、管直人の支持率もアップアップだったわけだし」
田中「if というか、それ現実ですし…というか、アップアップって…」
青木「しかし、if が無ければ、小学校の思い出が、今現実のものとなり、今ここで発現されたチェレンコフ光が」
田中「if というか、訳わからないし…しかも、最後が微妙に危ないし…」
青木「まぁ、あれだよな。if とか select とか無いほうが、物事一直線で安全だよな」
田中「いや、猪突猛進管内閣自暴自棄暴走茫漠ということで」

これも却下ネタ。
技術メルマガでは、政治ネタはオミット。

Public Class Form1

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

        Dim i1 As Integer = 0
        Dim i2 As Integer = 2

        ' 単純な = 演算子
        If i1 = 0 Then

        End If
        ' 否定のための <> 演算子
        If i1 <> 0 Then

        End If
        ' 比較演算子
        If i1 < 0 Then

        End If
        ' Else も使うよ
        If i1 = 0 Then
            ' マッチする場合
        Else
            ' マッチしない場合
        End If
        ' ElseIf も使うよ
        If i1 = 0 Then
            ' 最初の条件にマッチする場合
        ElseIf i1 = 1 Then
            ' 2番目の条件にマッチする場合
        Else
            ' それ以外
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        ' 2 つの条件を指定する
        Dim s1 As String = "tonny"
        Dim s2 As String = "masuda"

        ' 両方の条件を一度に満たす
        If s1 = "tonny" And s2 = "masuda" Then

        End If
        If s1 = "tonny" AndAlso s2 = "masuda" Then

        End If
        ' どちらか一方の条件を満たす
        If s1 = "tonny" Or s2 = "masuda" Then

        End If
        If s1 = "tonny" OrElse s2 = "masuda" Then

        End If

        ' ベン図を使う
        If s1 <> "tonny" Or s2 <> "masuda" Then

        End If
        ' 複雑なので not を使う
        If Not (s1 = "tonny" And s2 = "masuda") Then

        End If
        ' 条件が多くて分かりづらい場合は、if 文を重ねると良い
        If s1 <> "tonny" Then
            If s2 <> "masuda" Then

            End If
        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim s1 As String = "tonny"
        Select Case s1
            Case "tonny"
                ' tonny の場合
            Case "masuda"
                ' masuda の場合
            Case Else
                ' 上記以外
        End Select

        ' 実は if else と同じ
        If s1 = "tonny" Then
            ' tonny の場合
        ElseIf s1 = "masuda" Then
            ' masuda の場合
        Else
            ' 上記以外
        End If

        ' : を使って短く書ける
        Dim s2 As String = ""
        Select Case s1
            Case "tonny" : s2 = "トニー"
            Case "masuda" : s2 = "増田"
            Case Else : s2 = "トニー 増田"
        End Select

        ' 関数を使ってシンプルに
        Dim s3 As String = Check(s1)

        ' 文字列の場合は、Dictonary を使う方法もある
        ' あらかじめ設定しておく
        Dim dic As New Dictionary(Of String, String)
        dic.Add("tonny", "トニー")
        dic.Add("masuda", "増田")
        ' 辞書から検索
        If dic.ContainsKey(s1) = True Then
            s3 = dic(s1)
        Else
            s3 = "トニー 増田"
        End If

    End Sub

    ''' <summary>
    ''' SELECT 内で Return を使う
    ''' </summary>
    ''' <param name="str"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function Check(ByVal str As String)
        Select Case str
            Case "tonny" : Return "トニー"
            Case "masuda" : Return "増田"
            Case Else : Return "トニー 増田"
        End Select
    End Function

End Class

技術メルマガのネタ

青木「文○列と言えば、な～んだ？」
田中「先輩…伏字にしても、文字列としてか読めないんですけど」
青木「まあぁ、そうかもな。伏字にすると、アレだから、文♡列」っていうのはどうだ？」
田中「先輩…伏字というか、なんというか、文字列ですよね。やっぱり」
青木「そうかぁ、そうなると、文字列♡ っていうのは、どうだ？」
田中「…」
青木「ほら、あだち充が開発した、なんでもラブコメになってしまうという、技を君は知らないのか？」
田中「…」
青木「コホン…ああ、秋空。空が高いなぁ」
田中「盆には早いですが…」

だいたい、これだけ覚えておけば大丈夫よ、ってな感じです。
個人的には String.IsNllOrEmpty は使いたくないんですけどね。確かに String 型は Nothing/Null が入るので、null を代入したときに Length プロパティでチェックすると例外が発生してしまう訳ですが、データベースでの NULL を扱うならば、明示的に Nullable を使うほうが他との対応（nullable(of integer)とか）がよいかなぁと。

Imports System.Data.SqlClient

Public Class Form1

    '''
    ''' 基本的なところをちょろっと
    '''
    ''' <param name="sender" />
    ''' <param name="e" />
    '''
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim s1 As String = "普通の初期化"
        ' NULL を入れることができる
        Dim s2 As String = Nothing
        ' Empty を入れることができる
        Dim s3 As String = String.Empty
#If False Then
        If s2.Length = 0 Then
            ' 例外発生
        End If
#End If
        If s3 = "" Then
            ' 実は空白と同じ
            MessageBox.Show("実は空白と同じ")
        End If

        If String.IsNullOrEmpty(s2) = True Then
            MessageBox.Show("IsNullOrEmpty を使う")
        End If

        ' 直接文字列に対してメソッドを使える
        Dim s4 As String = "tonny masuda".ToUpper
        MessageBox.Show(s4)

    End Sub

    '''
    ''' String は値型扱いになる
    '''
    ''' <param name="sender" />
    ''' <param name="e" />
    '''
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim src As String = "tonny"
        Dim dest As String = ""
        ' 文字列はコピーされる
        dest = src
        ' コピー元を変えても、コピー先は変わらない
        src = "TONNY"
        MessageBox.Show( _
            String.Format("src is {0}. dest is {1}", src, dest))
    End Sub

    '''
    ''' ToString を使ってフォーマットする
    '''
    ''' <param name="sender" />
    ''' <param name="e" />
    '''
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ' 日付をフォーマット
        MessageBox.Show(Date.Now.ToString("yyyy年MM月dd日"))
        ' 数値をフォーマット
        Dim i As Integer = 1000
        MessageBox.Show(i.ToString("#,###円"))
        ' クラス名など
        Dim cn As New SqlConnection
        MessageBox.Show(cn.ToString)
        ' ToString を overrides する
        Dim hello As New Hello
        hello.age = 40
        hello.name = "tonny masuda"
        MessageBox.Show(hello.ToString)
    End Sub

    '''
    ''' 文字列の連結諸々
    '''
    ''' <param name="sender" />
    ''' <param name="e" />
    '''
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        ' + 演算子で連結
        Dim s1 As String = "tonny" + " " + "masuda"
        ' & 演算子で連結
        Dim s2 As String = "tonny" & " " & "masuda"
        ' 数値から暗黙の変換
        Dim s3 As String = 1234
        ' 数値へ暗黙の変換
        Dim i4 As Integer = "1234"
    End Sub

    '''
    ''' よく使われる String のメソッド
    '''
    ''' <param name="sender" />
    ''' <param name="e" />
    '''
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim s1 As String = "tonny masuda"

        ' 文字列の長さ
        Dim i2 As Integer = s1.Length
        ' 先頭の文字
        Dim s3 As String = s1.Substring(0, 1)
        Dim s4 As String = s1(0)
        ' 最後の文字
        Dim s5 As String = s1.Substring(s1.Length - 1, 1)
        Dim s6 As String = s1(s1.Length - 1)
        ' 大文字/小文字
        Dim s7 As String = s1.ToUpper
        Dim s8 As String = s1.ToLower
        ' 前後の空白を削除
        Dim s9 As String = s1.Trim
        ' 置き換え
        Dim s10 As String = s1.Replace("masuda", "増田")
        ' 指定文字列を削除
        Dim s11 As String = s1.Replace("禁則事項ですッ!!!", "")
        ' 先頭の5文字だけ残す
        Dim s12 As String = s1.Substring(0, 5)
        Dim s13 As String = s1.Remove(5)
        ' 左寄せ/右寄せ
        Dim s14 As String = s1.PadRight(20)
        Dim s15 As String = s1.PadLeft(20, "○")
        MessageBox.Show(s15)

    End Sub
End Class

'''
''' ToString を overrides したクラス
'''
'''
Public Class Hello
    Public age As Integer
    Public name As String

    Public Overrides Function ToString() As String
        Return String.Format("オラ {0}. 年齢 {1} 歳だけど、よろしくなッ!!!", name, age)
    End Function
End Class