none
我想問: 如何Searh RichTextBox3.Text 內有數值 問題 RRS feed

  • 問題

  • 比如TEXTBOX.TEXT = "5"
    RichTextBox3.Text= " 1,2,3,4,5,...15,25,"
    我想在RichTextBox3.Text 找出"5"  字 及可以在"5" 前後插入"(" ,")" 括號 或變色,
    但問題係 找到5, 15 25,
    我想只係找到的是"5"
    "15","15" 不要...

    不知大家明白我想問的問題嗎?(我怕表達不好)
    2009年11月30日 上午 05:37

解答

  • Hi,

    RichTextBox3.Text.Replace(" 7 "," (7) ")

    謙卑學習,持之以恆,才能不斷的Level Up http://www.dotblogs.com.tw/larrynung/
    • 已標示為解答 ikuzzi 2009年11月30日 上午 07:47
    2009年11月30日 上午 06:32

所有回覆

  • Hi,

           Dim input As String = "1,2,3,4,5,...15,25,"
            Dim splitArray() As String = input.Split(","c)
            For idx As Integer = 0 To splitArray.Length - 1
                If splitArray(idx) = "5" Then
                    splitArray(idx) = "(5)"
                End If
            Next
            Dim output As String = String.Join(",", splitArray)
            Console.WriteLine(output)

    也可以使用正規表示式

    或Replace取代的方式
            Dim input As String = "1,2,3,4,5,...15,25,"
            Console.WriteLine(input.Trim(",").Insert(0, ",").Insert(input.Length - 1, ",").Replace(",5,", ",(5),").Trim(","))

    謙卑學習,持之以恆,才能不斷的Level Up http://www.dotblogs.com.tw/larrynung/
    2009年11月30日 上午 05:52
  • 1)   15    19    35    21    43    22
    2)     9    19    15    32    11      2
    3)   15    41    21    19      7    26
    4)   19    26    10    32    15      3
    5)   38    11      3      1    22    32
    6)     3      4    20    32    42    41
    7)   13    19    23    27    15    45
    8)     1    13      7    17      3    14
    9)     2    38      3    10      6      7
    10)   38    10    22      8    13    35
    11)     2      8    35    45    24    19
    12)   45    41    27    10      4    28
    13)     4    24      1      7    23    26
    14)     9      3    23    32    20    27
    15)   10      8      6    31    28    43

    * 以上RichTextBox 的內容文字
    比如 要找的 TEXTBOX =文字 是"7" 的話

    結果:
    1)   15    19    35    21    43    22
    2)     9    19    15    32    11      2
    3)   15    41    21    19      (7)   26
    4)   19    26    10    32    15      3
    5)   38    11      3      1    22    32
    6)     3      4    20    32    42    41
    7)   13    19    23    27    15    45
    8)     1    13      (7)    17      3    14
    9)     2    38      3    10      6      (7)
    10)   38    10    22      8    13    35
    11)     2      8    35    45    24    19
    12)   45    41    27    10      4    28
    13)     4    24      1      (7)    23    26
    14)     9      3    23    32    20    27
    15)   10      8      6    31    28    43
    2009年11月30日 上午 06:28
  • Hi,

    RichTextBox3.Text.Replace(" 7 "," (7) ")

    謙卑學習,持之以恆,才能不斷的Level Up http://www.dotblogs.com.tw/larrynung/
    • 已標示為解答 ikuzzi 2009年11月30日 上午 07:47
    2009年11月30日 上午 06:32
  • 謝謝您!蹂躪MVP使用者勳章使用者勳章使用者勳章使用者勳章使用者勳章
    2009年11月30日 上午 07:46