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

مطلوب مساعدة فى حذف جملة فى نص

بدأه eldahawe في 8 يوليو 2009 · 3 رد · 530 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

برنامج لحذف جملة فى نص

المطلوب : التعديل فى البرنامج و إزالة أكبر نص محصور بين (a)(z) تلقائيا

بمعنى لو النص يحتوى على الجمل التاليى

(a)-gfd@#*6+-gfd#*6+sHGr(sH%_-Gr.2-^7k.(z)

(a)-gfd@#*6+sHGr(?>hfdsk.(z)

(a)#*6+sHGr.(z)

المطلوب ان البرنامج يحذف الجملة التالية تلقائيا لانها اكبر جملة

(a)-gfd@#*6+-gfd#*6+sHGr(sH%_-Gr.2-^7k.(z)

وللتوضيح أكثر البرنامج بالمرفقات

بارك الله فيكم ولكم جزيل الشكر

a.rar

[/وسط]

#2

تفضل

Private Sub Command1_Click()
'	Text1.Text = ReplaceAll(Text2.Text, Text3.Text, "")
	Dim MaxLen As Integer
	Dim RowNo As Integer
	If Trim(Me.Text2) = "" Then Exit Sub
	Me.Text2 = Me.Text2 & "		 "
	tmparr = Split(Me.Text2, "		 ")
	For n = 0 To UBound(tmparr)
		If Len(tmparr(n)) > MaxLen Then
			RowNo = n
			MaxLen = Len(Trim(tmparr(n)))
		End If
	Next n
	Me.Text3 = tmparr(RowNo)
	Me.Text1 = ReplaceAll(Me.Text2, Me.Text3 & "		 ", "")
End Sub

كن كالنخيل عن الأحقاد مرتفعا .. يرمى بصخر فيرمى أطيب الثمر

#3
عبدالفتاح حسن كتب:
تفضل

Private Sub Command1_Click()
'	Text1.Text = ReplaceAll(Text2.Text, Text3.Text, "")
	Dim MaxLen As Integer
	Dim RowNo As Integer
	If Trim(Me.Text2) = "" Then Exit Sub
	Me.Text2 = Me.Text2 & "		 "
	tmparr = Split(Me.Text2, "		 ")
	For n = 0 To UBound(tmparr)
		If Len(tmparr(n)) > MaxLen Then
			RowNo = n
			MaxLen = Len(Trim(tmparr(n)))
		End If
	Next n
	Me.Text3 = tmparr(RowNo)
	Me.Text1 = ReplaceAll(Me.Text2, Me.Text3 & "		 ", "")
End Sub

شكرا لك اخى الفاضل على الرد

الله يفتح عليك خيرات الدنيا و الآخرة

ولكن الجمل ليس بينها مسافات

أنا وضعت المسافات فقط للتوضيح

الجمل ستكون هكذا

(a)*(z)(a)****(z)(a)**(z)(a)***(z)

المطلوب : البرنامج يزيل أكبر نص محصور بين (a)(z)

وهو

(a)****(z)

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

(a)*(z)(a)**(z)(a)***(z)

عدلت لك البرنامج بالمرفقات

والف شكر لك

a.rar

[/وسط]

#4 
Private Sub Command1_Click()
	Dim arrStr() As String
	Dim longest As String
	Dim seg As Variant
	arrStr = Split(Text2.Text, "(z)")

	For Each seg In arrStr
		If Len(seg) > Len(longest) Then longest = seg
	Next

	Text1.Text = Replace(Text2.Text, longest & "(z)", "")
End Sub

سبحان الله وبحمده ... سبحان الله العظيم

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

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

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

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

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