شمردن تعداد يك كاركتر خاص در يك رشته

[Sal2010]

با سلام
ببخشيد بعضي وقتها سوالها خيلي ابتدايي ميشه !
اگه ممكنه راهنمايي بفرماييد براي شمردن تعداد A از چه دستوري بايد استفاده كنم
"String1="123A7655677AjjkkAjjjh
كه جواب بايد 3 باشد.

[hossein71]

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]

سلام. این کد رو امتحان کن.

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]

با سلام
از توجه شما متشكرم
ولي منظور من يك دستور بود چون توي زبان Clipper كه تحت داس بود و قديمي اين
امكان وجود داشت

[مهران رسا]

با سلام
از توجه شما متشكرم
ولي منظور من يك دستور بود چون توي زبان Clipper كه تحت داس بود و قديمي اين
امكان وجود داشت
در VB همچین تابعی وجود نداره . برای اینکار هموطنور که دوستان زحمتش رو کشیدند باید بطور غیر مستقیم از تابع Mid استفاده کنید .

[ali_habibi1384]

چرا این همه خط کد بنویسیم؟


MsgBox Len(String1) - Len(Replace(String1, "A", ""))

[xxxxx_xxxxx]

:چشمک:


MsgBox UBound(Split(String1, "A"))