الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

دالة ترجع عدد مرات تكرار نص معين داخل مربع نص

مغلق
بدأه Meshal في 21 مايو 2007 · 4 رد · 801 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

لقد حاولت ان اكتب دالة تعيد لي مثلا عدد مرات ظهور "#" داخل مربع نص ولكن للأسف فشلت إليكم الكود اخواني فهل من مساعدة بارك الله فيكم ونفع بكم 

Private Function CounterStr(ByVal s As String) As Integer

		Dim p As Integer
		Dim count As Integer
		Dim start As Integer
		count = 0
		start = 1

		While True
			p = s.IndexOf("#", start)
			If p = 0 Then

					Exit Function
			Else
				count = count + 1
				start = p + 1

			End If




		End While
		Debug.Print(p & count)


		Return Count

	End Function

تم تعديل هذه المشاركة بواسطة Meshal في 21 مايو 2007 في 08:37

#2

السلام عليكم

راجع الرابط التالي

و بالتحديد الدرس التاسع Look around

في المثال يتضح المقال

#3

السلام عليكم

مشرفنا العزيز انا لا اريد التحقق من وجود ال "#" فقط ، انا اريد ان اعرف كم مرة تكرر هذا الرمز في مربع نص

اشكرك على المرور والتوجيه لدرس ممتع ولكن للأسف لم يجب على سؤالي

:(

#4

عزيزي للأسف انك لم تقرء الدرس جيداً , هنالك مثال يحتوي المطلوب تماماً

على كل حال شاهد النصوص البرمجية لعمل ذلك عبر تقنية Regx أو حمل المرفق.

Imports System.Text.RegularExpressions
Public Class Form1
	Private Sub Form1_Load(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles MyBase.Load

		txtData.Text = "I try to find # ir  can someone help to find that #" & _
	  "and  If there are no # or  ." & _
	  "But a lot of symbols, others than $ or # " & _
	  "But me still looking for MR # and,$ MR$ . Please help$."

	End Sub

	Private Sub Matches()
		Dim m As Match
		Dim Counter As Integer = 0
		Dim Result As String = String.Empty
		Dim rx As Regex
		Dim DisplayWord As String = String.Empty
		rx = New Regex("(?<!\" & txtFind.Text & ")\" & txtFind.Text)
		DisplayWord = txtFind.Text
		m = rx.Match(txtData.Text)
		Do While m.Success
			Counter += 1
			Result += Counter.ToString & " - " & m.Value.ToString & ControlChars.CrLf
			m = m.NextMatch
		Loop
		Me.txtResult.Text = Result & vbCrLf & " There are " & Counter & " " & DisplayWord & " Founded "
	End Sub

	Private Sub btnSearch_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles btnSearch.Click

		Matches()

	End Sub
End Class

FindSymbolByRegx.rar

في المثال يتضح المقال

#5

أولا اشكرك على سعة صدرك وعلى المثال الرائع الذي قدمته لي

ثانيا اريد ان اعترف بأني لم اقرأ الدرس جيدا :( ولكن على عجالة حيث وجدته غير نافع لحل مشكلتي واعتقدت انك فهمتني غلط ولكن الدرس كان اكثر من رائع وحمل المثال الموجود بالدرس التاسع ومثالك الذي ارفقته هنا

بصراحة ...

لك خالص شكري وتقديري اخي

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…