منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - [ تمّ الحل ] : تعديل على نص المخرجات لأوامر Command AT

السلام عليكم و رحمة الله و بركاته

إخواني الأفاضل عسى أن تكونوا كلكم بألف خير إن شاء الله

و أرجو منكم فضلا و ليس أمر المساعدة بحل هاته الإشكالية التي أول مرة أغوص بها

لمعرفة الرصيد الموجود بهاتفي النقال قمت باستعمال هذا الكود

كود :

      If Not (SerialPort1.IsOpen = True) Then

            SerialPort1.Open()

        End If

        SerialPort1.Write("AT+CUSD=1," & Convert.ToString(Chr(34)) & "*710#" & Convert.ToString(Chr(34)) & ",15" & System.Environment.NewLine)

        System.Threading.Thread.Sleep(7000)

        Me.TextBox1.Text = SerialPort1.ReadExisting

هذا الكود المستخدم يعمل جيدا و يجلب الرصيد مثلما ينبغي

المشكلة و سؤالي إخواني الأكارم .. كيف يمكن إخفاء العبارات المحاطة بالمستطيلات الحمراء و منعها من الظهور على التاكست بوكس

بارك الله فيكم و لكم مقدما و جزاكم خير الجزاء إن شاء الله

PHP كود :

Dim v = Regex.Match(TextBox1.Text, "\+CUSD:(.+?)OK", RegexOptions.Singleline Or RegexOptions.IgnoreCase).Groups(1).Value
Dim Credit = Regex.Match(v, "Credit\s?(\d+(\.\d+)?)", RegexOptions.Singleline Or RegexOptions.IgnoreCase).Groups(1).Value.Trim
Dim Bonus = Regex.Match(v, "Bonus\s?(\d+(\.\d+)?)", RegexOptions.Singleline Or RegexOptions.IgnoreCase).Groups(1).Value.Trim
Dim Internet = Regex.Match(v, "Internet:(\d+)", RegexOptions.Singleline Or RegexOptions.IgnoreCase).Groups(1).Value.Trim

TextBox1.Text = v

MsgBox("Credit= " & Credit)
MsgBox("Bonus= " & Bonus)
MsgBox("Internet= " & Internet) 

شكرا و بارك الله فيك أخي الكريم
فقط أرجع للبيت و أجرب و أخبرك بالنتيجة ان شاء الله
تحياتي

السّلام عليكم و رحمة الله و بركاته

بارك الله فيك و لك و جزاك خير الجزاء إن شاء الله و زادك من علمه و فضله

تمام التمام و الحمد لله

تحياتي واحتراماتي

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عبد العزيز البسكري

wahmed

عبد العزيز البسكري

عبد العزيز البسكري