جستجو

[aleas]

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

[CRazYFULL]

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

[aleas]

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

کد 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 


[mohamadpk]

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

[CRazYFULL]

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

جدا کردن به وسيله تابع 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

[aleas]

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

کد:

Split(Text1.Tex, strStart)(1)

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