PDA

View Full Version : جستجو در text



aleas2
چهارشنبه 22 دی 1389, 15:04 عصر
چطوری میتونم تو text جستجو کنم که مثلا چند تا حرف دلخوام تو text هسته مثلا بگه تو text چند تا / هسته؟

quiet_programmer
چهارشنبه 22 دی 1389, 15:21 عصر
با سلام.

این کد تعداد کاراکتر "/" رو میشماره و نشون میده


Index=0;
while instr(Index+1,me.Text1.Text,"/")<>0
Count=Count+1
Index=Instr(Index,me.Text1.Text,"/")
wend
msgbox(Trim(str(Count)))

تنها مشکلی که هست چون الان وی بی رو سیستمم نصب نیست نتونستم کد رو ازلحاظ درستی برسی کنم اما باز اگه مشکلی داشت بگو تا کد قطعی رو برات بنویسم.

aleas2
چهارشنبه 22 دی 1389, 16:45 عصر
اهان !من فکر میکردم دستور خاصی برای اینکار باشه ممنون اینی شما دادین کار نکرد این کار میکنه

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

xxxxx_xxxxx
پنج شنبه 23 دی 1389, 07:02 صبح
سلام،
تابع Split هم میتونه این کارو انجام بده. این تابع بر اساس یک یا چند کاراکتر، رشته شما رو تجزیه میکنه و در یک آرایه قرار میده. با بررسی تعداد خانه های آرایه می تونید متوجه بشید که چندبار اون علامت در رشته تکرار شده.

برای اطلاعات بیشتر تاپیک های زیر رو ببینید:
http://barnamenevis.org/tags.php?tag=split