VB2010(7)_替换字符串

Public Class Form1

    Private Sub btnStrings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStrings.Click
        Dim strResult As String
        strResult = "Hello World!"
        MessageBox.Show(strResult, "Strings")
    End Sub

    Private Sub btnConcatenation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConcatenation.Click
        Dim strResult As String
        Dim strOne As String
        Dim strTwo As String

        strOne = "Hello"
        strTwo = "World!"

        strResult = strOne & strTwo

        MessageBox.Show(strResult, "Strings")
    End Sub

    Private Sub btnLength_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLength.Click
        Dim strResult As String

        strResult = txtString.Text

        MessageBox.Show(strResult.Length.ToString & " characters(s)", "Strings")
    End Sub

    Private Sub btnSubStrings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubStrings.Click
        Dim strResult As String
        strResult = txtString.Text
        '前三个
        MessageBox.Show(strResult.Substring(0, 3), "Strings")
        '第3到6个
        MessageBox.Show(strResult.Substring(3, 3), "Strings")
        '后3个
        MessageBox.Show(strResult.Substring(strResult.Length - 3), "Strings")
    End Sub

    Private Sub btnReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReplace.Click
        Dim strData As String
        Dim strResult As String

        strData = txtString.Text
        strResult = strData.Replace("Hello", "Goodbye")

        txtString.Text = strResult
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtString.Text = "Hello the World!"
    End Sub
End Class
 

• 点赞
• 收藏
• 分享
• 文章举报