التعامل مع النصوص .. بحاجة إلى عبقري

من أجل توضيح أكثر أضيف هذا المثال :

لدي نص طويل به رموز وأريد أن أحول هذه الرموز إلى HTML Tags مثلاً أريد جعل النص عريض باستخدام <b>

مثلا لدي أسطر مكونة من أيات وأريد ان أستبد علامة ( * ) الأولى بـ ( <b> ) والنجمة الثانية بـ ( </b> ) :

المثال :

قال تعالى * يا أَيُّهَا الَّذِينَ آمَنُوا أَوْفُوا بِالْعُقُودِ * وقال في آية أخرى * وَ أَوْفُوا بِعَهْدِ اللَّهِ إِذا عاهَدْتُمْ وَ لا تَنْقُضُوا الأَْيْمانَ بَعْدَ تَوْكِيدِها *

وقال تعالى في أداء الأمانة * وَ لا تَبْخَسُوا النَّاسَ أَشْياءَهُمْ *

الكود المطلوب يفترض أن يعطي هذه النتيجة :

قال تعالى <b> يا أَيُّهَا الَّذِينَ آمَنُوا أَوْفُوا بِالْعُقُودِ </b> وقال في آية أخرى <b> وَ أَوْفُوا بِعَهْدِ اللَّهِ إِذا عاهَدْتُمْ وَ لا تَنْقُضُوا الأَْيْمانَ بَعْدَ تَوْكِيدِها </b>

وقال تعالى في أداء الأمانة <b> وَ لا تَبْخَسُوا النَّاسَ أَشْياءَهُمْ </b>

ما هي السورة الموجودة بها هذه الأية ؟؟

مرفق مشروع يوضح كيفية عمل ذلك ..

والكود الذي تريده سيكون كالتالي.. وهو علي ما أعتقد أقل كود يمكن كتابته لتنفيذ المطلوب :

Private Sub Command1_Click()
Dim sText As String
Dim arr() As String
sText = Text1.Text
arr = Split(sText, "*")
sText = ""
If Not(UBound(arr)) Or (UBound(arr) Mod 2) Then Exit Sub

For i = LBound(arr) To UBound(arr)
 If i = UBound(arr) Then
	sText = sText & arr(i)
 Else

 If i Mod 2 Then
	sText = sText & arr(i) & "</B>"
 Else
	sText = sText & arr(i) & "<B>"
 End If
 End If
Next
Text1 = sText
End Sub

صورة المشروع

Convert.rar

مشكور أخى "Pharaonic_Guy"

على هذا المثال الجميل

شكرا أخي Zain

نسيت أن أقول أنني أقصد هذه الآية :

(وَ أَوْفُوا بِعَهْدِ اللَّهِ إِذا عاهَدْتُمْ وَ لا تَنْقُضُوا الأَْيْمانَ بَعْدَ تَوْكِيدِها)

السلام عليكم

أخى الكريم Pharaonic_Guy

والله مثال رائع من عضو متميز

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

شكرا أخي العزيز GENIUS-IT ..

شاكر ومقدر لك هذا التعاون ..

أي أيه تقصد أخي ؟

الله يوفقك وييسر أمورك