المشاركات : 351
المواضيع 48
الإنتساب : Oct 2012
السمعة :
16
الشكر: 897
تم شكره 309 مرات في 142 مشاركات
السلام عليكم
لدي ارقام تأتي بالصيغة المحلية و أريد ان تكتب بالصيغة الدولية ليتم نسخها و الصقها في موقع للرسائل النصية
إذا كان رقم الهاتف مثلاً
056002587
عند الضغط على البوتن يختفي الصفر ويتم إضافة المفتاح الدول
فيكون بهذا الشكل
96656002587
الملفات المرفقة
تعديل الرقم الدولي.rar (الحجم : 33.21 ك ب / التحميلات : 24)
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
المشاركات : 351
المواضيع 48
الإنتساب : Oct 2012
السمعة :
16
الشكر: 897
تم شكره 309 مرات في 142 مشاركات
(25-02-18, 01:26 AM) طالب برمجة كتب : PHP كود :
Dim txt As String = "056002587" txt = "966" & Val ( txt ) MsgBox ( txt )
أحسنت بارك الله فيك
و لكن أريد الكود يشمل أي رقم أقوم بأدخاله في Textbox1
هو حالياً ثابت على الرقم "056002587" فقط
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
المشاركات : 400
المواضيع 0
الإنتساب : Dec 2017
السمعة :
69
الشكر: 46
تم شكره 517 مرات في 325 مشاركات
ضع بدل النص الثابت textbox1,text
المشاركات : 351
المواضيع 48
الإنتساب : Oct 2012
السمعة :
16
الشكر: 897
تم شكره 309 مرات في 142 مشاركات
26-02-18, 12:53 AM
(آخر تعديل لهذه المشاركة : 26-02-18, 08:58 PM {2} بواسطة أبووسم .)
(25-02-18, 10:35 PM) طالب برمجة كتب : ضع بدل النص الثابت textbox1,text
اشكرك مرة أخرى على سرعة ردك و تجاوبك
إذا كنت تقصد أن اكتبه بهذا الشكل
كود :
Dim txt As String = "TextBox1.Text"
txt = "966" & Val(txt)
MsgBox(txt)
فللأسف لم ينجح الكود
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
المشاركات : 351
المواضيع 48
الإنتساب : Oct 2012
السمعة :
16
الشكر: 897
تم شكره 309 مرات في 142 مشاركات
ممتاز
الف شكر لك و الشكر موصول للأخ طالب برمجة
لا حرمكم الله الأجر و جزاكم الله خير
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره