ماهي الطريقه المستخدمه لاقتطاع النص كلمه كلمه

السلام عليكم ورحمة الله وبركاته :

بالفعل اخي تستطيع فعل ذلك باستخدامك الى الداله Split وهي تقسيم النص إلى أجزاء أو كلمات وذلك بناءا على تحديدك شرط التقسيم , وفي مثالك مثلا شرط التحديد هو كلمه كلمة فبالتالي يمكنك تحديد الشرط وهو " " المسافه الخاليه , حيث انها تقوم بوضع ناتج عملية التقسيم في Array مؤقته او افتراضية قمت بتعريفها مسبقا وذلك يكون الكود:

 

		Dim strText() As String
		Dim strYourText As String
		Dim I As Integer

		strYourText = "How Are You"

		strText = Split(strYourText, " ")

		For I = 0 To UBound(strText)
			MsgBox(strText(I))
		Next I

بالتوفيق .......

A7med_prof

A7med_prof كتب:

السلام عليكم ورحمة الله وبركاته :

بالفعل اخي تستطيع فعل ذلك باستخدامك الى الداله Split وهي تقسيم النص إلى أجزاء أو كلمات وذلك بناءا على تحديدك شرط التقسيم , وفي مثالك مثلا شرط التحديد هو كلمه كلمة فبالتالي يمكنك تحديد الشرط وهو " " المسافه الخاليه , حيث انها تقوم بوضع ناتج عملية التقسيم في Array مؤقته او افتراضية قمت بتعريفها مسبقا وذلك يكون الكود:

 

		Dim strText() As String
		Dim strYourText As String
		Dim I As Integer

		strYourText = "How Are You"

		strText = Split(strYourText, " ")

		For I = 0 To UBound(strText)
			MsgBox(strText(I))
		Next I

تسلم ايديك

فعلا جميلة

الأخ الفاضل ...

Split.zip

مثال بأستخدام (MS Visual Basic.NET 2005)، أرجوا ان يساعدك فيما تريد إنجازه

كذلك يمكنك أستخدم التالى فيما تريد إنجازه:

		Dim sWords() As String
		Dim sSentence As String
		Dim n As Long

		sSentence = "Welcome   to	Visual Basic.NET"
		sWords = sSentence.Trim.Split(" ")
		For n = sWords.GetLowerBound(0) To sWords.GetUpperBound(0)
			If sWords(n).Trim.Length > 0 Then
				MessageBox.Show(sWords(n).Trim)
			End If
		Next

ملحوظة: راجع [أستفسار هام و سريع - فى فصل محتويات التيكيست بوكس] [كيف أستطيع وضع تكست يأخد الحرفين الأولى فقط من الاسم الاول والاسم الخير واضعا بينهما مسافة]

شكراً

أشكر لكم تفاعلكم

ولكن انا لااريده باستخدام split أريد الاقتطاع باستخدام substring أو mid

انا اعمل على الفيجول بيسك 2005

أرجواأرجووو التكرم بالرد مع خالص الشكر ..

الأخ الفاضل ...

Split_up1.zip

مثال بأستخدام (MS Visual Basic.NET 2005)، أرجوا ان يساعدك فيما تريد إنجازه

بأستخدام Mid:

		Dim sSentence As String
		Dim ch As String
		Dim sWord As String
		Dim n As Long

		sSentence = "Welcome   to	Visual Basic.NET"
		sSentence = sSentence & " "

		sWord = ""
		For n = 1 To sSentence.Length
			ch = Mid$(sSentence, n, 1)
			If ch = " " Then
				sWord = sWord.Trim
				If sWord.Length > 0 Then
					MessageBox.Show(sWord)
				End If
				sWord = ""
			Else
				sWord = sWord + ch
			End If
		Next

بأستخدام SubString:

		Dim sSentence As String
		Dim ch As String
		Dim sWord As String
		Dim n As Long

		sSentence = "Welcome   to	Visual Basic.NET"
		sSentence = sSentence & " "

		sWord = ""
		For n = 1 To sSentence.Length - 1
			ch = sSentence.Substring(n, 1)
			If ch = " " Then
				sWord = sWord.Trim
				If sWord.Length > 0 Then
					MessageBox.Show(sWord)
				End If
				sWord = ""
			Else
				sWord = sWord + ch
			End If
		Next

شكراً

أشكر لك أخي Eng.usama على تفاعلك

ولكن انا لااعرف طول النص فهو يختلف من طول لاخر فلا استطيع تحديد طوله ففي المثال انت حدت الجمله

أعرف اني اطلت ولكن ياليت أنك تكمل معروفك

ولك جزيل الشكر وخالص العرفان

أرجو منكم الرد

ولكم مني كل الشكر

السلام عليكم

هذا رابط موضوع للأستاذ محمد سامر ابو سلو , اعتقد انه حيفيدك

/index.php?showtopic=110396

السلام عليكم

طول النص يحدد بالتعليمات التالية

sSentence.Length

وهو متغير مع تغير النص الذي تود تقسيمه (sSentence)

الله يجزااااااااااااااااااكم الف الف خير

ويجعله في موازين حسناتكم

بالفعل افدتوني لاحرمتم الاجر