[dubai.eig]

(30-08-18, 06:15 PM)عابر سبيل 2 كتب :

(30-08-18, 05:55 PM)dubai.eig كتب :

(30-08-18, 05:40 PM)عابر سبيل 2 كتب :

(30-08-18, 05:13 PM)dubai.eig كتب :

(30-08-18, 04:09 PM)عابر سبيل 2 كتب : جرب هذه الطريقة

PHP كود :

Dim arr() As String
arr = Regex.Matches(receivedData, "(?<=\w+)\d+?(?=;)").
      Cast(Of Match).Select(Function(x As Match) x.Value).ToArray 


ستحصل على مصفوفة فيها الأرقام فقط

---

وهذا كامل الكود

PHP كود :

'هنا استقبل اكلام 
Dim receivedData As String = ""
receivedData = ReceiveSerialData()

Dim arr() As String
arr = Regex.Matches(receivedData, "(?<=\w+)\d+?(?=;)").
      Cast(Of Match).Select(Function(x As Match) x.Value).ToArray

For Each a As String In arr
    MsgBox(a)
Next 


شغلك جميل بارك الله فيك

بس الان لان عندي اكثر من عمليه في نفس الوقت وفي المربع يطلع

;FA14070795
;FB07077845
;MD0C


علشان كذا اريد اوضح  اقول للكود في حالت حصلت اول حرفين

FA

او

FB
او
MD

لكل حرفين اريد اعمل عمليه

ان شاءالله قدرة اوصل الفكرة

وشكرا من جديد

جرب هذا الكود

PHP كود :

'هنا استقبل اكلام 
Dim receivedData As String = ""
receivedData = ReceiveSerialData()

Dim arr() As String = receivedData.ToString.Split({";"}, StringSplitOptions.RemoveEmptyEntries)
For Each a As String In arr
    Select Case a.Substring(0, 2)

        Case "FA"
            MsgBox("---FA---")

        Case "FB"
            MsgBox("---FB---")

        Case "MD"
            MsgBox("---MD---")

    End Select
Next 


تعبتك معاي بارك الله فيك

مع الاسف نفس الشي




يقراء بس اول السطر

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

لهذا لم تصل إلى النتيجة المطلوبة

لاحظ أنني استخدمت الطريقة على ReceiveSerialData وليس على مربع النص

استخدم كود مشاركتي كاملا ثم أخبرني بالنتيجة

كلامك صحيح 

فعلا الكود شغال والحمدالله   

شكرا لك وبارك الله في مجهودك

شكرا من جديد

تسم والله ما قصرة واعتذر 

---

(30-08-18, 06:27 PM)anoname كتب :

كود :

If txtReceived.Text.Contains("FA") Then

MsgBox(FRQ)
       

      Else
If txtReceived2.Text.Contains("FB") Then
          MsgBox(FRQ)
End If

ربما يعمل هذا بكل بساطة

شكرا على متابعتك تم حل الموضوع والحمدالله شكرا لك