جدا کردن کلمه های یک متن

[vahid_d_0101]

با سلام فکر کنید من یه متغییر دارم که تو اون جمله ی
vahid:salam:113:5658
هست حالا میخوام کلمه هایی که بین دونقطه هستند را جدا جدا داخل textbox ها بریزم قبلا برای این کار کدی تو سایت دیدم ولی نمیدونم در رابطه با چه موضوعی بود اگه کسی کمک کنه خیلی ممنون میشم :بوس:

[کیوان معینی]

خیلی ساده است ، بعیده نتونی شایدم وقت نداری، رو فرمت Comman, Textbox, Listbox بزار :




Private Sub Command1_Click()
Dim S As String ' Input String
Dim P(50) As String ' Array Output
Dim i As Integer ' Counter
Dim Temp As Variant ' Temporary Variable

S = Text1.Text
Temp = i = 1
List1.Clear

While Len(S) > 0 And InStr(1, S, ":") > 0
Temp = InStr(1, S, ":")
P(i) = Mid(S, 1, Temp - 1)
List1.AddItem P(i)
S = Mid(S, Temp + 1, Len(S) - Temp)
Wend
If Len(S) > 0 And InStr(Temp, S, ":") = 0 Then List1.AddItem S
End Sub

[mpmsoft]

با Split هم به سادگي مي تونستيد بدست بياريد




T1= Split(Text1.Text,":")(0)
T2= Split(Text1.Text,":")(1)
T3= Split(Text1.Text,":")(2)

[کیوان معینی]

بله همونطور که دوستمون گفتند تابع Split هم میتونه این کار رو انجام بده ولی چون Vahid عزیز اشاره به کد کرده بود

... قبلا برای این کار کدی تو سایت دیدم ولی نمیدونم در رابطه با چه موضوعی بود ...
این رو نوشتم ، تابع Join هم بر عکس Split عمل میکنه .