[عابر سبيل 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 كتب :

(30-08-18, 03:44 PM)dubai.eig كتب : جميل جدا بارك الله فيك

الحمدالله ضبط

بس باقي شي واحد 

الان يطلع كذا



الان اريد اقول اذا حصلت في المربع بداية الجمله تبدا في FA  خذ الثمان ارقام البعده
ونفس الشي في FB


الكود الي عندي هذا

كود :

  If txtReceived.Text.Substring(0, 2) = "FA" Then


           MsgBox(FRQ)

       ElseIf txtReceived.Text.Substring(0, 2) = "FB" Then
 
           MsgBox(FRQ)
 End If

غير شغال




جربت هذا الكود

كود :

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

MsgBox(FRQ)
         

       ElseIf txtReceived.Text.Contains("FB") Then
           MsgBox(FRQ)
 End If

اشتغل على If txtReceived.Text.Contains("FA") Then فقط وما قراء الثاني
FB



وبارك الله فيك وشكرا على وقتك ومجهودك

جرب هذه الطريقة

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 وليس على مربع النص

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