[عبد العزيز البسكري]

(26-01-17, 03:01 PM)sendbad100 كتب : غيرها هكذا

كود :

Dim txt As String
txt = "مع سعيد 20 ومع حسن 15 ومع كمال 6 قطعة"

Dim sp() As String
sp() = Split(txt, " ")