ممكن مساعده(تقسيم Text معين)

yasomk كتب:

:happy: السلام عليكم ,, ويعطيكم العافيه جميعا

هلأ في عندي نص معين موجود بتيكست بوكس ... بدي لما اكبس

button

النص يتقسم لكلماته وكلماته تتخزن وويحسب كم مره ظهرت كل كلمه بهاد النص ,,, بعدين اعرض الكلمات وبجانبها عدد المرات الي ظهرت فيها بالنص!

فاذا ما فيها غلبه عليكم ,, بدي منكم تساعدوني كيف ابدأ بهالشي ,, خطرت ببالي فكره بتعتمد على هاد الحكي وبدي اجربها .. وسامحوني لاني لسا بتعلم في بي.نيت فمش عارفه كيف ابدأ :wacko:

:happy: وشكرا الكم مقدما

yasomk كتب:

:happy: السلام عليكم ,, ويعطيكم العافيه جميعا

هلأ في عندي نص معين موجود بتيكست بوكس ... بدي لما اكبس

button

النص يتقسم لكلماته وكلماته تتخزن وويحسب كم مره ظهرت كل كلمه بهاد النص ,,, بعدين اعرض الكلمات وبجانبها عدد المرات الي ظهرت فيها بالنص!

فاذا ما فيها غلبه عليكم ,, بدي منكم تساعدوني كيف ابدأ بهالشي ,, خطرت ببالي فكره بتعتمد على هاد الحكي وبدي اجربها .. وسامحوني لاني لسا بتعلم في بي.نيت فمش عارفه كيف ابدأ :wacko:

:happy: وشكرا الكم مقدما

وعليكـم السلام

كــ فكرة بسيطة

ممكن انك تاخذي اول كلمة عن طريق الـ instr هذه الميثود تاخذ 2 ياراميتر

الأول الـ text والثاني " "

وترجع لك موقع اول space

وبعدها استخدمي left هذه الميثود تاخذ 2 باراميتر

الأول text والثاني الـ position

وبكاذ تكونين حصلتي على اول كلمة ...احفظيها في متغير

وامشي بنفس الطريقه على بقية الكلمات

.

.

هذا اللي عندي

أتمنى أكون أفدتك

فورم TextBox1 , ListBox1 , Button1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		'تعريف قائمة
		Dim WordList As Collections.IList = Nothing

		Dim i, ii, iR, iL, WordFound As Integer


		ListBox1.Items.Clear()
		'تقسيم النص حسب المسافات بداخله و تخرين الكلمات في القائمة التي سبق تعريفها
		WordList = TextBox1.Text.Split(" ")
		'حلقة تكرار لجميع الكلمات
		For i = 0 To WordList.Count - 1
			'متغير لحساب عدد تكرار الكلمة
			iR = 0
			'حلقة تكرار أخرى لمقارنة الكلمة مع كلمات النص كاملاً
			For ii = 0 To WordList.Count - 1
				If WordList.Item(i) = WordList.Item(ii) Then
					'في حال العثور على الكلمة نزيد بمقدار 1
					iR += 1
				End If
			Next
			'متغير لمنع تكرار الكلمة في قائمة النتائج
			WordFound = 0
			'حلقة تكرار نبحث عن الكلمة في قائمة listbox
			For iL = 0 To ListBox1.Items.Count - 1
				'إذا وجدنا الكلمة أعط المتغير القيمة 1
				If ListBox1.Items(iL) = WordList(i) & "," & iR Then WordFound = 1
			Next
			'إذا لم نعثر على الكلمة في القائمة أدرجها
			If WordFound = 0 Then ListBox1.Items.Add(WordList(i) & "," & iR)
		Next
	End Sub

M!ss Java كتب:

وعليكـم السلام

كــ فكرة بسيطة

ممكن انك تاخذي اول كلمة عن طريق الـ instr هذه الميثود تاخذ 2 ياراميتر

الأول الـ text والثاني " "

وترجع لك موقع اول space

وبعدها استخدمي left هذه الميثود تاخذ 2 باراميتر

الأول text والثاني الـ position

وبكاذ تكونين حصلتي على اول كلمة ...احفظيها في متغير

وامشي بنفس الطريقه على بقية الكلمات

.

.

هذا اللي عندي

أتمنى أكون أفدتك

تسلميييي يا رب

بحاول فيها ان شالله

الفريد كتب:

فورم TextBox1 , ListBox1 , Button1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		'تعريف قائمة
		Dim WordList As Collections.IList = Nothing

		Dim i, ii, iR, iL, WordFound As Integer


		ListBox1.Items.Clear()
		'تقسيم النص حسب المسافات بداخله و تخرين الكلمات في القائمة التي سبق تعريفها
		WordList = TextBox1.Text.Split(" ")
		'حلقة تكرار لجميع الكلمات
		For i = 0 To WordList.Count - 1
			'متغير لحساب عدد تكرار الكلمة
			iR = 0
			'حلقة تكرار أخرى لمقارنة الكلمة مع كلمات النص كاملاً
			For ii = 0 To WordList.Count - 1
				If WordList.Item(i) = WordList.Item(ii) Then
					'في حال العثور على الكلمة نزيد بمقدار 1
					iR += 1
				End If
			Next
			'متغير لمنع تكرار الكلمة في قائمة النتائج
			WordFound = 0
			'حلقة تكرار نبحث عن الكلمة في قائمة listbox
			For iL = 0 To ListBox1.Items.Count - 1
				'إذا وجدنا الكلمة أعط المتغير القيمة 1
				If ListBox1.Items(iL) = WordList(i) & "," & iR Then WordFound = 1
			Next
			'إذا لم نعثر على الكلمة في القائمة أدرجها
			If WordFound = 0 Then ListBox1.Items.Add(WordList(i) & "," & iR)
		Next
	End Sub

شكرررراااا كتير غلبتك اخي

سؤال اخر اذا ما في غلبه عليك ,, ممكن انه انقل قيم معينه مخزنه ب

Array or object

الي

table in sql database ?

yasomk كتب:

سؤال اخر اذا ما في غلبه عليك ,, ممكن انه انقل قيم معينه مخزنه ب

Array or object

الي

table in sql database ?

لا أعرف :( فلم يسبق لي التعامل مع sql database