تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[ تمّ الحل ] : تعديل على نص المخرجات لأوامر Command AT
#1
السلام عليكم و رحمة الله و بركاته
إخواني الأفاضل عسى أن تكونوا كلكم بألف خير إن شاء الله
و أرجو منكم فضلا و ليس أمر المساعدة بحل هاته الإشكالية التي أول مرة أغوص بها
لمعرفة الرصيد الموجود بهاتفي النقال قمت باستعمال هذا الكود
كود :
      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
هذا الكود المستخدم يعمل جيدا و يجلب الرصيد مثلما ينبغي
المشكلة و سؤالي إخواني الأكارم .. كيف يمكن إخفاء العبارات المحاطة بالمستطيلات الحمراء و منعها من الظهور على التاكست بوكس
بارك الله فيكم و لكم مقدما و جزاكم خير الجزاء إن شاء الله
مجموعتنا على الفايسبوك
الرد }}
تم الشكر بواسطة:
#2
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
الرد }}
تم الشكر بواسطة: عبد العزيز البسكري
#3
شكرا و بارك الله فيك أخي الكريم
فقط أرجع للبيت و أجرب و أخبرك بالنتيجة ان شاء الله
تحياتي
مجموعتنا على الفايسبوك
الرد }}
تم الشكر بواسطة: wahmed
#4
السّلام عليكم و رحمة الله و بركاته
 بارك الله فيك و لك و جزاك خير الجزاء إن شاء الله و زادك من علمه و فضله
تمام التمام و الحمد لله 
تحياتي واحتراماتي
مجموعتنا على الفايسبوك
الرد }}
تم الشكر بواسطة: wahmed



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم