[dubai.eig]

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

(30-08-18, 03:44 PM)dubai.eig كتب :

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

(30-08-18, 02:15 PM)dubai.eig كتب : السلام عليكم ورحمة الله

عندي textbox   ينزل في كلام والكلام يكون مشبوك مع بعض

إقتباس :;FA14070795;FB07077845;MD0C

اريد اعطي امر له بان اذا حصلت هذه العلامه ";"

ابدى بسطر جديد

ليكون الناتج

إقتباس :;FA14070795
;FB07077845
;MD0C

حاولت مع هذا الكود

كود :

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


       If receivedData.Contains(";") Then
           txtReceived.Text &= receivedData & Environment.NewLine
       End If

بس ما ضبط

كود :

  Function ReceiveSerialData() As String
       Dim Incoming As String
       Try
           Incoming = SerialPort1.ReadExisting()

           If Incoming Is Nothing Then
           Return "nothing" & vbCrLf
       Else
           Return Incoming
       End If
       Catch ex As TimeoutException
       Return "Error: Serial Port read timed out."
       End Try

   End Function

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

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

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

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

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

وشكرا من جديد