تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تحويل دالة لعمل العكس html to bbcode
#1
السلام عليكم ورحمة الله وبركاته
وجدت دالة تقوم بتحويل البيبي كود الى اتش ام ال واريد ان اعكسها
كود :
Public Function ConvertHTML2BB(ByVal html As String) As String
   Try
     'Define regex
     Dim regExp As Regex

     'Regex for URL tag without anchor
     regExp = New Regex("\[url\]([^\]]+)\[\/url\]")
     html = regExp.Replace(html, "<a href=""$1"">$1</a>")

     'Regex for URL with anchor
     regExp = New Regex("\[url=([^\]]+)\]([^\]]+)\[\/url\]")
     html = regExp.Replace(html, "<a href=""$1"">$2</a>")

     'Image regex
     regExp = New Regex("\[img\]([^\]]+)\[\/img\]")
     html = regExp.Replace(html, "<img src=""$1"" />")

     'Bold text
     regExp = New Regex("\[b\](.+?)\[\/b\]")
     html = regExp.Replace(html, "<b>$1</b>")

     'Italic text
     regExp = New Regex("\[i\](.+?)\[\/i\]")
     html = regExp.Replace(html, "<i>$1</i>")

     'Underline text
     regExp = New Regex("\[u\](.+?)\[\/u\]")
     html = regExp.Replace(html, "<u>$1</u>")

     'Font size
     regExp = New Regex("\[size=([^\]]+)\]([^\]]+)\[\/size\]")
     html = regExp.Replace(html, "<span style=""font-size: $1px"">$2</span>")

     'Font color
     regExp = New Regex("\[color=([^\]]+)\]([^\]]+)\[\/color\]")
     html = regExp.Replace(html, "<span style=""color: $1"">$2</span>")

     Return html
   Catch ex As Exception
     Return Nothing
     Debug.Print(ex.ToString)
   End Try
 End Function
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#2
.....

تكمن المشكلة في أن تنسيق HTML يختلف من مطور إلى آخر، في حين أن تنسيق BBCode في الغالب ثابت (موحد) في جميع المحررات.
بمعنى أن مطور يستخدم <span> وآخر يستخدم <p> وهكذا....
بالإضافة لاستدعاء الاستايلات بالامرclass والجافا سكريبت التي تقوم أيضاً بالتنسيق وكل هذا يزيد من صعوبة التحويل من HTML إلى BBCode...

التحويل من HTML إلى BBCode لم يتمكن منه حتى مواقع التحويل بشكل صحيح مثل:
BBCode Converter - BBCode to HTML and Back
HTML To BB Code Converter

.....
الرد }}}}
تم الشكر بواسطة:
#3
بارك الله فيك
هل ممكن الايضاح الرمز $1 و $2 مافائدتها وكيف تستخدم
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#4
.....

$1 و2$ هي متغيرات ينتجها Regex تحتوي القيم المتغيرة المستخرجة من كود BBCode مثل اللون والنص والرابط.
ويتم التعويض بقيمتها عن طريق الامر Replace الخاص بنفس كائن Regex المنشأ والذي كما هو في الدالة regExp.
وبالمثال يتضح المقال.
كود :
BBCode كود
[color=#ffff]مرحبا[/color]

القيم المستخرجة
$1 = #ffff
$2 = مرحبا

وفيه تحديد أماكن وضع القيم بالتريب HTML قالب كود
<span style="color: $1">$2</span>

بعد التعويض بالقيم
<span style="color: #ffff">مرحبا</span>

$1 وتوجد قوالب ليس فيها إلا متغير واحد

وقوالب HTML الموجودة في المثال هي:
كود :
رابط ليس له عنوان نصي ونلاحظ أنه سيظهر الرابط كعنوان نصي أيضاً
<a href="$1">$1</a>

رابط له عنوان نصي
<a href="$1">$2</a>

صورة
<img src="$1" />

خط سميك
<b>$1</b>

خط مائل
<i>$1</i>

تسطير الخط
<u>$1</u>

حجم الخط
<span style="font-size: $1px">$2</span>

لون الخط
<span style="color: $1">$2</span>

وأعتقد أن الدالة المذكورة ينقصها القالب التالي
كود :
نوع الخط - اسم الخط
<span style="font-family: $1;">$2</span>

وتضاف في الدالة كالتالي
كود :
'Font face
regExp = New Regex("\[font=([^\]]+)\]([^\]]+)\[\/font\]")
html = regExp.Replace(html, "<span style=""font-family: $1"">$2</span>")


.....
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كتابت كود لعمل نافذه hano 2 84 04-11-16, 07:45 PM
آخر رد: silverlight
  [VB.NET] تحويل التاريخ لسلسلة نصية tifagreet 1 91 01-11-16, 01:28 PM
آخر رد: ممدوح
Information [VB.NET] خطاء في الكرستال ريبورت عند تحويل قاعدة البيانات من اكسس إلى ميسكوال 3msoft 2 71 22-10-16, 11:49 PM
آخر رد: 3msoft
  تحويل الحروف الصغيره إلى كبيره hano 4 141 12-10-16, 08:16 PM
آخر رد: hano
  [سؤال] مساعدة في تحويل المشروع من VB6 الى الدونت نت عبدالرحمن المكاوي 8 246 09-10-16, 06:21 PM
آخر رد: أبو عمر
  [كود] اريد كود استخراج سورس موقع تحويل تلقائي sharo.azad 0 72 08-10-16, 03:10 PM
آخر رد: sharo.azad
  [سؤال] عدد الجداول في المطلوبه لعمل سندات قبض وسندات صرف اليوم مبتدئة وغداً محترفة 1 77 02-10-16, 04:37 PM
آخر رد: أبو عمر
  [سؤال] تحويل العمله الى نص مكتوب dbahl 4 1,389 22-09-16, 09:09 AM
آخر رد: FreeComp1
  [VB.NET] برنامج ممتاز لعمل Setup لبرنامجك - Advanced Installer Kian Tech 2 177 19-09-16, 03:26 AM
آخر رد: shwehdi4pc
  دالة لجعل مربع النص لا يقبل حروف atefkhalf2004 6 148 17-09-16, 12:38 AM
آخر رد: أبو عمر

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم