View Full Version : سوال: شمردن تعداد يك كاركتر خاص در يك رشته
Sal2010
شنبه 08 خرداد 1389, 11:02 صبح
با سلام
ببخشيد بعضي وقتها سوالها خيلي ابتدايي ميشه !
اگه ممكنه راهنمايي بفرماييد براي شمردن تعداد A از چه دستوري بايد استفاده كنم
"String1="123A7655677AjjkkAjjjh
كه جواب بايد 3 باشد.
hossein71
شنبه 08 خرداد 1389, 11:24 صبح
x=0
for i=1 to len(string1)
if mid$(string1,i,1)="A" then
x=x+1
end if
next i
خروجی مورد نظر مقدار x است.
Mohamad ghorbani
شنبه 08 خرداد 1389, 11:24 صبح
سلام. این کد رو امتحان کن.
Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
k = Mid(Text1.Text, i, 1)
If k = "A" Then
t = t + 1
End If
Next
Print t
End Sub
Sal2010
شنبه 08 خرداد 1389, 11:40 صبح
با سلام
از توجه شما متشكرم
ولي منظور من يك دستور بود چون توي زبان Clipper كه تحت داس بود و قديمي اين
امكان وجود داشت
مهران رسا
شنبه 08 خرداد 1389, 12:36 عصر
با سلام
از توجه شما متشكرم
ولي منظور من يك دستور بود چون توي زبان Clipper كه تحت داس بود و قديمي اين
امكان وجود داشت
در VB همچین تابعی وجود نداره . برای اینکار هموطنور که دوستان زحمتش رو کشیدند باید بطور غیر مستقیم از تابع Mid استفاده کنید .
ali_habibi1384
شنبه 08 خرداد 1389, 18:30 عصر
چرا این همه خط کد بنویسیم؟
MsgBox Len(String1) - Len(Replace(String1, "A", ""))
xxxxx_xxxxx
شنبه 08 خرداد 1389, 20:33 عصر
:چشمک:
MsgBox UBound(Split(String1, "A"))
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.