تقييم الموضوع :
  • 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>")


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مساعدة] تحويل من #C إلى Vb أحمد إبراهيم سعد 3 48 أمس, 01:09 PM
آخر رد: طالب برمجة
  تحويل عدد الى تاريخ الميساني 2 73 12-12-17, 08:23 PM
آخر رد: الميساني
  [VB.NET] تحويل التاريخ الميلادي والهجري محمد مسافر 7 6,421 03-12-17, 05:15 AM
آخر رد: mabualwafa2
  اريد المساعده لعمل نظامي يقبل تعدد المستخدمين يعمل على الشبكه samawi 3 106 26-11-17, 01:09 PM
آخر رد: Amir_alzubidy
  هل يمكن تحويل ال Query في السيكوال الي جدول مثل الاكسس khaled12345 2 95 19-11-17, 02:02 PM
آخر رد: khaled12345
  كود لعمل عملية الجمع في الوقت Bin-Komet 0 44 11-11-17, 09:19 PM
آخر رد: Bin-Komet
  [VB.NET] تحويل صفحات الطباعة الي صور محمد اسماعيل 11 190 28-10-17, 08:45 PM
آخر رد: محمد اسماعيل
  تحويل امتداد قاعدة البيانات العيدروس 10 202 27-10-17, 12:33 PM
آخر رد: العيدروس
  [سؤال] رغم استخدام دالة المعالج الخلفي إلا أنه ما زال يوجد تهنيج عند تنفيذ الكود السندبااد 6 199 25-10-17, 05:29 PM
آخر رد: السندبااد
Lightbulb [مثال] تحويل التاريخ الميلادي الى هجري داخل الداتا جريد من قاعدة بيانات اكسس محمود بكرى 20 706 30-08-17, 02:37 PM
آخر رد: محمود بكرى

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


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