Private Sub miDemo_字串A中可以找到字串B_Click()

    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Private Sub miDemo_字串A中可以找到字串B_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miDemo_字串A中可以找到字串B.Click
        ' OK [2008-05-13-PM-09-23-08]

        Dim SB As New System.Text.StringBuilder
        Dim T As String

        T = "西方論政，不會以忠奸等傳統標準看人看事，而是以人格完整（Integrity），前後一貫（Consistency）做為判斷的標準。因為只有人格完整與前後一貫，這種人始可堪信賴，這種人也不會扭曲自己和扭曲事情。看著民進黨主政八年，它的政治被許多藍綠通吃的名嘴所扭曲，它的經濟也被藍綠通吃者所敗壞，再加上本身不知檢點，有了權力後就享受權力的滋味，陳水扁家人動輒收受貴重達百萬的禮物，一個小官僚也收受貴重達十八萬的名筆。這個政黨及它的政府又怎不被人放棄呢？"

        '        Me.Do_PasteStringToTopOfRichTextBox(T)

        Dim myTextGivenByUser As String

        myTextGivenByUser = InputBox("Please input a string ( 請輸入一個字串)")

        If 字串A中可以找到字串B(T, myTextGivenByUser) Then
            '            MsgBox("找到 --> " & myTextGivenByUser)
            '            Me.Do_PasteStringToTopOfRichTextBox("找到 -- >" & myTextGivenByUser)
            SB.Append("找到 -- >" & myTextGivenByUser)
        Else
            '            MsgBox("找不到")
            '            Me.Do_PasteStringToTopOfRichTextBox("找不到 -- >" & myTextGivenByUser)
            SB.Append("找不到 -- >" & myTextGivenByUser)
        End If

        SB.Append(vbNewLine)
        SB.Append(vbNewLine)
        SB.Append(T)
        SB.Append(vbNewLine)
        SB.Append(vbNewLine)
        SB.Append("-  -  -  -  -  -  -  -  -  -  -  -  -  -  -")
        SB.Append(vbNewLine)
        SB.Append("-  -  -  -  -  -  -  -  -  -  -  -  -  -  -")
        SB.Append(vbNewLine)

        Me.Do_PasteStringToTopOfRichTextBox(SB.ToString)

    End Sub
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -