كيف تستورد جزء من نص محدد ؟

Text1 = "Tired of writing readme: files for your programs> Fear not, for there is now a generator for you to compile them with the ease"
Dim a As Integer, b As Integer, c As String
a = InStr(1, Text1, ":", vbBinaryCompare)
b = InStr(1, Text1, ">", vbBinaryCompare)
c = Mid(Text1, a + 2, b - (a + 2))
Label1 = c

InStr تقوم بالبحث عن حرف معين وتعيد لي ترتيبه ضمن السلسلة.

Mid تسمح لي باقتطاع جزء معين من سلسلة بطول معين حددته من خلال الفرق بين مرتبتي الحرفين.

أخوي Xacker الف شكر لك ......... الله يعطيك الف عافية

نعم ضبطت معاي فبارك الله لك في علمك الذي لم تبخل به على إخوتك

دمت لإخيك مبجلا