ايران ويج

سلام خسته نباشید اول بگم بعد نبود یه چت باکس برای ویژوال هم میساختین
چطوری میتونم تو text جستجو کنم که مثلا چند تا حرف دلخوام تو text هسته مثلا بگه تو text چند تا / هسته؟

شما يه کتاب در مورد ويژوال بيسيک بخون جواب از اين قبيل سؤالات رو به دست مياری, اين سؤالت هم مربوط به قسمت توابع خود وی بی و کار با رشته ها ميشه

عزیز من خودم با کد نویسی بلدم ولی گفتم شاید کداختصاصی برای این کار باشه مثلا اینو خودم بلدم

کد php: 
Private Sub Command1_Click()
Dim count As Integer, i As Integer
count = 0
i = InStr(1, Text1.Text, "/")
Do While i <> 0
 count = count + 1
i = InStr(i + 1, Text1.Text, "/")
Loop
MsgBox count
End Sub 

از split استفاده کن بعد ubound بگیر از آرایه. این چه کاریه کردی.

نه همچين تابع وجود نداره

جدا کردن به وسيله تابع mid و Instr

کد: 
Dim X As Integer

Dim strStart As String, StrEnd As String

strStart = "/" ' az

StrEnd = "\" ' ta

If InStr(Text1.Tex, strStart) > 0 And InStr(Text1.Tex, StrEnd) > 0 Then

    X = InStr(1, Text1.Tex, strStart) + Len(strStart)

    MsgBox Mid(Text1.Tex, X, InStr(X, Text1.Tex, StrEnd) - X)

End If

جدا کردن به وسيله تابع Split

کد: 
Dim strStart As String, StrEnd As String

strStart = "/" ' az

StrEnd = "\" ' ta

If InStr(Text1.Tex, strStart) > 0 And InStr(Text1.Tex, StrEnd) > 0 Then

    MsgBox Split(Split(Text1.Tex, strStart)(1), StrEnd)(0)

End If

واقعا ممنون ولی من فقط میخواستم تعداد / رو بهم بگه چند تا هسته مشکلم حل شد فقط میشه تابع Split بهم توضیح بدین طرز استفاده ازش چی؟

کد: 
Split(Text1.Tex, strStart)(1)

مثلا این 1 کارش چی چه عدادی میشه گذاشت؟کار کلی دستور چی؟و...

aleas

CRazYFULL

aleas

mohamadpk

CRazYFULL

aleas