ต้องการตัดคำที่อยู่ในวงเล็บออกมาแสดงผลในหน้าเว็บเช่น Test(200) Test จะเอา200 ในหน้าเว็บอ่าครับ

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Text.RegularExpressions;
using System.Threading.Tasks;

namespace commonTest
{
    class Program
    {
        static void Main(string[] args)
        {
            StringBuilder iStr = new StringBuilder();
            iStr.AppendLine("(บัดนั้นจึงกล่าวแก่นางว่า) เมื่อพี่ไปแล้ว น้องลักษณ์จะคอยปกป้องเจ้า");
            iStr.AppendLine("ส่วนเจ้าเองก็ต้องให้ความเคารพและภักดีแก่น้องพรตผู้ครองเมือง");
            iStr.AppendLine("แม้นครบสิบสี่ปีเมื่อใด พี่ก็จะกลับมา");
            iStr.AppendLine("(ยามนั้นนางจึงเอ่ยตอบผู้เป็นเจ้าดวงใจว่า) ท่านพี่อันคุณธรรมของผู้มีคู่ครองนั้น ");
            iStr.AppendLine("ย่อมต้องครองคู่อยู่ร่วมกันทั้งยามทุกข์และยามสุข");
            iStr.AppendLine("เมื่อท่านจำต้องออกป่า ภรรยาเช่นข้าไหนเลยจะเสวยลาภยศอยู่ในวังได้");

            string tempStr = iStr.ToString();
            string pattern = @"\((\w+)\)";
            iStr.Clear();

            MatchCollection  tokenWordMacheSet = Regex.Matches(tempStr, pattern);
            foreach (Match matokenWord in tokenWordMacheSet)
            {
                iStr.AppendLine(string.Format("{0} {1}", matokenWord.Index, matokenWord.Value.ToString()));                              
            }

            System.Console.Write(iStr.ToString()); 
            System.Console.ReadLine();

        }
    }
}

int start = useragent.IndexOf("(") + 1;
int end = useragent.IndexOf(")", start);
string result = useragent.Substring(start, end - start);

Imports System.Text
Imports System.Text.RegularExpressions

Public Class RegxSexy

    Sub New() 'Ctor
    End Sub

    Public Shared Function Between(ByVal startWith As String, ByVal endWith As String, ByVal sPat As String) As String
       'จะใช้อันนี้ก็ได้ .Matches(sPat)
        Dim n As Match = New Regex(startWith & "(.+?)" & endWith).Match(sPat) '\w+ นั่นแหละ
        If n.Success Then
            Return n.Groups(1).ToString()
        End If
        Return "อีหนูอันนี้เหล็กนะไม่ใช่เอ็นไม่มีเล็กไม่มีใหญ่"
    End Function
End Class

Dim ริมหู = RegxSexy.Between("\(", "\)", "(นมหก(นมบูด(นมเน่า)))")
'***** ริมหู ทำไมต้องมี "\(" ***** อันนี้ต้องกลับไปดู ต้นฉบับ #NO1

Dim ริมฝีปาก = RegxSexy.Between("เธอ", "คน", "เธอ(นมหก(นมบูด(นมเน่า)))คนนั้น")