سؤال تحميل المتغيرات بقيم من مربع نص ؟؟؟

تقصد مثل أرقام ال IP

يوجد أكثر من طريقة لذلك وأعتقد أن ال regular expression هي الأفضل في مثل هذه الحالة سواء للتحقق أو التعرف على المدخلات

عموماً هذه طريقة تقليدية على مربع نص عادي

xa = InStr(1, Text1.Text, ",")
Print "1 is: " & Mid(Text1.Text, 1, xa - 1)
xb = xa
xa = InStr(xb + 1, Text1.Text, ",")
Print "2 is: " & Mid(Text1.Text, xb + 1, xa - xb - 1)
xb = xa
xa = InStr(xb + 1, Text1.Text, ",")
Print "3 is: " & Mid(Text1.Text, xb + 1, xa - xb - 1)
xb = xa
Print "4 is: " & Mid(Text1.Text, xb + 1)

مشكور والله يا اخى

السلام عليكم

لقد انشأت دالة function تدخل اليها الجملة كاملة و تحدد لها الحرف الذى يفصل بين اجزاء الجملة و سوف ترجع لك الدالة الكلمات مجزأة فى مصفوفة و بالتالى لابد ان تستقبل العائد من الدالة فى مصفوفة و اليكم الكود

Public Function Atta(ByVal Word As String, ByVal Fasel As String) As String()
Dim c As Integer
Dim T() As String
c = 0
For i = 1 To Len(Word)
If Mid(Word, i, 1) = Fasel Then c = c + 1
Next i

ReDim T(c)
tword = Word
For i = 1 To c + 1
N = InStr(tword, Fasel)
If N > 0 Then
T(i - 1) = Mid(tword, 1, N - 1)
tword = Mid(tword, N + 1, Len(tword))
Else
T(c) = tword
End If
Next i

Atta = T
End Function

sub command1_click()
Dim IpData() As String
dim word as string

word = "196,186,10,1"

IpData=atta(word,",")

For i = LBound(IpData) To UBound(IpData) ' من اصغر عنصر فى المصفوفة لاكبر عنصر فيها
MsgBox IpData(i) ' يعرض لك كل عنصر من الكلمات المجزأة على حده
Next i

end sub

الكود معقد شوية لكنه عام و تستطيع فهمه و استخدامه بصفة عامة فى اي تجزأة للكلمات

وارجو ان اكون اوفيت

مع خالص تحياتى

ابراهيم

بارك الله فيك يا اخى