جدا کردن یک متن از بین ...

[x7337x]

سلام

چطور میشه هر چی که بین 2 تا پرانتز یا ... باشه رو جدا کرد؟

مثلا

(text)

بشه test رو جدا کرد


تشکر

[CRazYFULL]

کد:

TextBox1.Text = Split(Split("(iranvig)", "(")(1), ")")(0)

[far_222000]

سلام

چطور میشه هر چی که بین 2 تا پرانتز یا ... باشه رو جدا کرد؟

مثلا

(text)

بشه test رو جدا کرد


تشکر

با دستور زیر می تونی این کار رو انجام بدی:

کد:

Dim A As String
        A = "(text)"
        MsgBox(Mid(A, InStr(A, "(") + 1, InStr(A, ")") - InStr(A, "(") - 1))

[x7337x]

مرسی

حالا اگه پیدا نکرد چی؟ خوب اینطور که خطا صادر میشه

[CRazYFULL]

اول با instr بگرد ببين کارکتر مورد نظر وجود داره يا نه بعد جدا سازی کن
يه کتاب در مورد کار با تابع های VB و کار با رشته ها بخون, اينجور کارها واسط آسون ميشه

کد:

If InStr(TextBox1.Text, ")") > 0 And InStr(TextBox1.Text, "(") > 0 Then
TextBox1.Text = Split(Split("(iranvig)", "(")(1), ")")(0)
End If

[ajlajlajl]

با Trim هم میشه:

کد:

Dim chs() As Char = {"(", ")"}
        Dim s As String = TextBox1.Text.Trim(chs)

این دستور اگه کاراکتر های توی آرایه ای که بهش میدید رو توی رشته پیدا کنه حذفشون میکنه.(البته فقط از دو طرف)

البته اینجوری هم میشه نوشت

کد:

TextBox1.Text = TextBox1.Text.Trim(("()").ToCharArray)

[pashmaloo]

سلام

چطور میشه هر چی که بین 2 تا پرانتز یا ... باشه رو جدا کرد؟

مثلا

(text)

بشه test رو جدا کرد

چون سئوالت تو vb.net بود ، گفتم شاید بخواهی از امکاناتی که net. داره و vb6 نداره استفاده کنی ،
اینجور موقع ها من ترجیح میدم از RegularExpression استفاده کنم :

کد php:

Dim RegEx As New System.Text.RegularExpressions.Regex("\x28(?<Value>\w*)\x29")

 Dim MatchCol As System.Text.RegularExpressions.MatchCollection
 MatchCol = RegEx.Matches("(yek),dow,seh,(chahar),(panj)")
 For i = 0 To MatchCol.Count - 1
 MessageBox.Show(MatchCol(i).Groups("Value").Value)
 Next 


این کد مزیتی که داره اینه که در کل رشته را میگردد و همه match ها را به شما میدهد ( نه فقط اولی را ) ، اگر قرار بود با vb6 همچین چیزی نوشته بشه ، کلی وقت و فسفر مصرف میکرد.