حذف أو إزالة علامات HTML من السلاسل النصية

إذا كانت لديك سلاسل نصية متعددة محاطة بعلامات HTML، فستساعدك الطرق المذكورة في هذا المقال على إزالة جميع علامات HTML بسهولة.

• حذف أو إزالة جميع علامات HTML بسيط باستخدام صيغة
• حذف أو إزالة بعض علامات HTML المعقدة باستخدام كود VBA

حذف أو إزالة جميع علامات HTML بسيط باستخدام صيغة

إذا كانت سلاسلك النصية محاطة بعلامات HTML بسيطة، فإن دالة MID في Excel يمكنها مساعدتك على تنفيذ هذه المهمة بسهولة. الصيغة العامة هي:

• stringالسلسلة النصية أو قيمة الخلية التي ترغب في إزالة علامات HTML منها.
• text_start: رقم الموقع الذي يبدأ منه أول حرف ترغب في استخدامه.
• tag_lenطول علامات HTML الموجودة داخل السلسلة النصية.

يرجى نسخ الصيغة التالية أو إدخالها في خلية فارغة:

بعد ذلك، اسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد تطبيق هذه الصيغة عليها، وستتم إزالة جميع علامات HTML من الخلايا كما هو موضح في لقطة الشاشة أدناه:

شرح الصيغة:

LEN(A2)-7: تُستخدم دالة LEN هنا لحساب طول السلسلة النصية في الخلية A2، ثم تطرح 7 —وهو عدد أحرف علامات HTML بما في ذلك العلامتين الافتتاحية والإغلاقية— للحصول على عدد الأحرف المطلوب استخراجها باستثناء علامات HTML. وستُستخدم قيمة الإرجاع كمعامل num_chars داخل دالة MID.

MID(A2,4,LEN(A2)-7): تُستخدم دالة MID هنا لاستخراج جميع الأحرف بدءًا من الحرف الرابع، حيث يكون طول السلسلة المستخرَجة مساويًا للعدد الذي تُرجعه دالة LEN.

حذف أو إزالة بعض علامات HTML المعقدة باستخدام كود VBA

إذا احتوت السلسلة النصية على علامات HTML متعددة، كما يظهر في لقطة الشاشة أدناه، فقد لا تعمل الصيغة السابقة بشكل صحيح. وفي هذه الحالة، يمكن أن يساعدك كود VBA التالي في التعامل مع علامات HTML المعقدة داخل السلاسل النصية.

1. اضغط مع الاستمرار على مفتاحَيAlt + F11 في Excel، وسيفتح ذلك نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

2. انقر علىإدراج > وحدة نمطية، ثم الصق كود VBA التالي في نافذة الوحدة النمطية.

Sub RemoveTags()
'updateby Extendoffice 
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select data range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xRg.NumberFormat = "@"
    With CreateObject("vbscript.regexp")
        .Pattern = "\<.*?\>"
        .Global = True
        For Each xCell In xRg
            xCell.Value = .Replace(xCell.Value, "")
        Next
    End With
End Sub

3. بعد ذلك، اضغط على مفتاحF5 لتشغيل هذا الكود، وستظهر نافذة منبثقة. يُرجى تحديد الخلايا التي تريد إزالة علامات HTML منها. انظر لقطة الشاشة:

4. بعد ذلك، انقر على زرموافق، وستُزال جميع علامات HTML من الخلايا المحددة. انظر لقطة الشاشة:

الدوال ذات الصلة المستخدمة:

مقالات إضافية: