[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 كتب :

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

PHP كود :

receivedData = ReceiveSerialData().replace(";",(";" & vbnewline)) 


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

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

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

الان يطلع كذا

إقتباس :;FA14077030
;FB07077845

الان اريد اقول اذا حصلت في المربع بداية الجمله تبدا في 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 


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

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

   


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