إزالة أو نزع علامات 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، وسيفتح نافذة Microsoft Visual Basic for Applications.

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 من الخلايا المحددة، انظر لقطة الشاشة:

الوظائف ذات الصلة:

مقالات أخرى: