كود آخر لمعرفة عدد تكرار جملة معينة ضمن جملة


Private Sub Command1_Click()

strText = " 'منتديات يوميات سمعيات مرئيات' "

strSeg = Split(strText, "يات")

MsgBox " كلمة يات توجد في" & strText & UBound(strSeg) & " مرة"

End Sub

 

http://www.arabteam2000-forum.com/

Share |

معلومات إضافية