أستفسار هام و سريع - فى فصل محتويات التيكيست بوكس

أرجو من الأخوة الرد السريع و لكم جزيل الشكر

أرجو من الأخوة الرد السريع و لكم جزيل الشكر

الأخ الفاضل ...

يمكنك أستخدام دالة تقوم بذلك مثل دالة Separator الموضحة بالمثال التالى:

Private Sub Form_Load()
	Dim Number1 As Long, Number2 As Long

	Call Separator("123/123456", Number1, Number2)

	MsgBox Number1
	MsgBox Number2
End Sub

Private Sub Separator(ByVal strText As String, ByRef Num1 As Long, ByRef Num2 As Long)
	Dim Str() As String

	Str = Split(Trim(strText), "/")
	Num1 = Val(Trim(Str(LBound(Str))))
	Num2 = Val(Trim(Str(UBound(Str))))
End Sub

شكراً

شكرا للأخ المهندس أسامة على الأهتمام

لو ممكن أن ترفع لى مثال ليوضح أكثر

و شكرا

أشكرك يا أخ أسامة

لقد وصلنى المثال و أأأألف شكر و لكن لى أستفسار أخر

و هو لو كانت أرقام و حروف فما العمل

Me.AutoRedraw = True

Dim aDummy() As String
Dim i As Integer

aDummy = Split("123/123456/ArabTeam/Fady", "/")

For i = 0 To UBound(aDummy)
	Print aDummy(i)
Next