Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement