المشاركات : 97
المواضيع 33
الإنتساب : Dec 2013
السمعة :
0
الشكر: 0
تم شكره 62 مرات في 49 مشاركات
السلام عليكم ورحمة الله وبركاته
لدي حقل إسمه Montant يتكون من 13حرف
وقيمته تساوي 18.622,77
وعند حفظه في ملف نصي يجب ان تكون قيمته على هذا الشكل 0000001862277
كيف يمكنني الحصول على هذه النتيجة
المشاركات : 100
المواضيع 0
الإنتساب : Mar 2019
السمعة :
17
الشكر: 0
تم شكره 109 مرات في 75 مشاركات
18-03-19, 09:08 AM
(آخر تعديل لهذه المشاركة : 18-03-19, 01:56 PM {2} بواسطة 5000.)
ضع هذا الكود في الفورم
Private Function GetFormatNumber(a As String) As String
Dim b = ""
For Each c As Char In a.ToCharArray
If Char.IsNumber( c ) Then b &= c
Next
Return CULng(b).ToString("D13")
End Function
ثم قم بالاستفاده منه بالشكل التالي
Dim t = "18.622,77"
Dim y = GetFormatNumber(t)
MsgBox(y)
المشاركات : 97
المواضيع 33
الإنتساب : Dec 2013
السمعة :
0
الشكر: 0
تم شكره 62 مرات في 49 مشاركات
بارك الله فيك أخي على الإجابة
الكود لا يعمل
تظهر رسالة في السطر
If Char.IsNumber© Then b &= c
Overload resolution failed because no accessible 'IsNumber' accepts this number of argumentss this
المشاركات : 100
المواضيع 0
الإنتساب : Mar 2019
السمعة :
17
الشكر: 0
تم شكره 109 مرات في 75 مشاركات
تم تعديل الكود
كانت المشكلة بسبب ما في محرر المشاركات قام بتغيير ( c ) الى © واظطررت لوضع مسافات داخل القوس
المشاركات : 97
المواضيع 33
الإنتساب : Dec 2013
السمعة :
0
الشكر: 0
تم شكره 62 مرات في 49 مشاركات
شكرا لك أخي 5000 بارك الله فيك
كود شغال
وجاري التجربة على الداتاقريدفيو
والداتاباز
المشاركات : 100
المواضيع 1
الإنتساب : Jan 2019
السمعة :
35
الشكر: 189
تم شكره 249 مرات في 107 مشاركات
هذا الكود يقوم باعطاء كود رقمي من 13 رقما
Dim Montant As Double = 18622.7
Dim a = Montant.ToString("00000000000.00").Replace(".","")
المشاركات : 97
المواضيع 33
الإنتساب : Dec 2013
السمعة :
0
الشكر: 0
تم شكره 62 مرات في 49 مشاركات
04-04-19, 05:31 PM
(آخر تعديل لهذه المشاركة : 04-04-19, 05:32 PM {2} بواسطة ahmedfa71.)
بارك الله فيك أخي بدري على الرد
كيف يمكن تطبيق ذلك على خلية معينة من داتا قريد الخلية C4
writer.Write( & C2 & "" & C3 & "" & GetFormatNumber(C4) & "" & C1)