+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : لديا قيمة في تاكست بوكس اريد تحويلها (/showthread.php?tid=21703)
لديا قيمة في تاكست بوكس اريد تحويلها - wolf1120 - 14-09-17
السلام عليكم ورحمة اله وبركته
لديا قيمة في تاكست بوكس اريد تحويلها الى المثال التالى
مثلا
عندى 1DA811 اريد ارجاعها الى 11A81D
انشاء الله الفكرة وصلت للمبدعين في الفيجول بسيك
RE: لديا قيمة في تاكست بوكس اريد تحويلها - أبو نوره - 14-09-17
مرحبا اخى
اذا كان الطول ثابت 6حروف
PHP كود :
Dim s As String
s = "1DA811"
Dim r As String
r = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)
MsgBox r
RE: لديا قيمة في تاكست بوكس اريد تحويلها - wolf1120 - 14-09-17
بارك الله فيك اخي ابو نورة