+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] كود سهل جدا لحذف التشكيل (/showthread.php?tid=36423)
كود سهل جدا لحذف التشكيل - عبد الهادي بهاب - 16-09-20
السلام عليكم
استئناسا بكود للاخ المهاجر بلغة lua
يمكن ان نحذف تشكيل اي نص فقط بوضع الكود البسيط
بإختصار
نستبعد الكود أسكى الأكبر من 240
في اي زر ضع التالي
PHP كود :
Dim Str = "قُل لَّوْ كَانَ الْبَحْرُ مِدَادًا لِّكَلِمَاتِ رَبِّي لَنَفِدَ الْبَحْرُ قَبْلَ أَن تَنفَدَ كَلِمَاتُ رَبِّي وَلَوْ جِئْنَا بِمِثْلِهِ مَدَدًا "
MsgBox(Str)
Dim NewStr = ""
For gh = 0 To Str.Length - 1 : Dim ass = Asc(Str(gh)) : If ass < 240 Then : NewStr = NewStr & Str(gh) : End If : Next
MsgBox(NewStr)