ايران ويج

سلام

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

مثلا

(text)

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

تشکر

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

(۰۱-شهریور-۱۳۸۸, ۱۳:۵۶:۱۳)x7337x نوشته است: [ -> ]سلام

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

مثلا

(text)

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

تشکر

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

کد: 
Dim A As String

        A = "(text)"

        MsgBox(Mid(A, InStr(A, "(") + 1, InStr(A, ")") - InStr(A, "(") - 1))

مرسی

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

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

کد: 
If InStr(TextBox1.Text, ")") > 0 And InStr(TextBox1.Text, "(") > 0 Then

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

End If

با Trim هم میشه:

کد: 
Dim chs() As Char = {"(", ")"}

        Dim s As String = TextBox1.Text.Trim(chs)

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

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

کد: 
TextBox1.Text = TextBox1.Text.Trim(("()").ToCharArray)

(۰۱-شهریور-۱۳۸۸, ۱۳:۵۶:۱۳)x7337x نوشته است: [ -> ]سلام

چطور میشه هر چی که بین 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 همچین چیزی نوشته بشه ، کلی وقت و فسفر مصرف میکرد.

x7337x

CRazYFULL

far_222000

x7337x

CRazYFULL

ajlajlajl

pashmaloo