Public Class Form1
    Dim find1Of As String
    Private Sub 匯入檔案ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 匯入檔案ToolStripMenuItem.Click
        Dim fileReader As System.IO.StreamReader
        fileReader =
        My.Computer.FileSystem.OpenTextFileReader("C:\\text.txt")
        Dim stringReader As String
        stringReader = fileReader.ReadToEnd
        RichTextBox1.Text = stringReader
    End Sub

    Private Sub 設定牆壁ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 設定牆壁ToolStripMenuItem.Click
        Dim searchString As String = "1"
        Dim index As Integer = Me.RichTextBox1.Text.IndexOf(searchString)
        '當有找到時 index 回傳 在RichTextBox1.Text 找到時的第一個字元位置 
        If index <> -1 Then
            '選取找到的字串 
            RichTextBox1.Select(index, searchString.Length)
            '改變字串的內容
            RichTextBox1.SelectedText = "█"
        End If

    End Sub

    Private Sub 設定空氣ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 設定空氣ToolStripMenuItem.Click
        Dim searchString2 As String = "0"
        Dim index2 As Integer = Me.RichTextBox1.Text.IndexOf(searchString2)
        '當有找到時 index 回傳 在RichTextBox1.Text 找到時的第一個字元位置 
        If index2 <> -1 Then
            '選取找到的字串 
            RichTextBox1.Select(index2, searchString2.Length)
            '改變字串的內容
            RichTextBox1.SelectedText = "　"

        End If
    End Sub

    Private Sub 設定凸起物ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 設定凸起物ToolStripMenuItem.Click
        Dim searchString3 As String = "2"
        Dim index3 As Integer = Me.RichTextBox1.Text.IndexOf(searchString3)
        '當有找到時 index 回傳 在RichTextBox1.Text 找到時的第一個字元位置 
        If index3 <> -1 Then
            '選取找到的字串 
            RichTextBox1.Select(index3, searchString3.Length)
            '改變字串的內容
            RichTextBox1.SelectedText = "┴"
        End If
    End Sub

    Private Sub 去除逗點ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 去除逗點ToolStripMenuItem.Click
        Dim searchString4 As String = ","
        Dim index4 As Integer = Me.RichTextBox1.Text.IndexOf(searchString4)
        '當有找到時 index 回傳 在RichTextBox1.Text 找到時的第一個字元位置 
        If index4 <> -1 Then
            '選取找到的字串 
            RichTextBox1.Select(index4, searchString4.Length)
            '改變字串的內容
            RichTextBox1.SelectedText = ""
        End If
    End Sub

    Private Sub 起點ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 起點ToolStripMenuItem.Click
        Dim searchString5 As String = "m"
        Dim index5 As Integer = Me.RichTextBox1.Text.IndexOf(searchString5)
        '當有找到時 index 回傳 在RichTextBox1.Text 找到時的第一個字元位置 
        If index5 <> -1 Then
            '選取找到的字串 
            RichTextBox1.Select(index5, searchString5.Length)
            '改變字串的內容
            RichTextBox1.SelectedText = "＠"
        End If
    End Sub

    Private Sub 終點ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 終點ToolStripMenuItem.Click
        Dim searchString6 As String = "n"
        Dim index6 As Integer = Me.RichTextBox1.Text.IndexOf(searchString6)
        '當有找到時 index 回傳 在RichTextBox1.Text 找到時的第一個字元位置 
        If index6 <> -1 Then
            '選取找到的字串 
            RichTextBox1.Select(index6, searchString6.Length)
            '改變字串的內容           
            RichTextBox1.SelectedText = "★"
        End If
    End Sub

    Private Sub 跑地圖ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 跑地圖ToolStripMenuItem1.Click

    End Sub
End Class