شخابيط وأفكار شخابيط وافكار : اضافة رمز محدد بعد مواضع معينه فى سلسلة نصية ايا كان طول هذه السلسلة ☺

[ابو جودي]

السلام عليكم ورحمة والله تعالى وبركاته

طيب ببساطه انظر للسلسلة النصية الاتية 

"Moh8202281012343434"

ونريد التعديل عليها لتظهر بهذا الشكل 
"Moh-820-228-101-234-343-4"

او بهذا الشكل
"Moh,820,228,101,234,343,4"

او بهذا الشكل
Moh820/228101/234343/4
 

يتم عمل ذلك من خلال الكود الاتى 

Function ReFormat(ByVal strText As String, Optional strSymbol As String = "-", Optional intCountDigits As Integer = 3)
 Dim i As Long
 ReFormat = ""
 For i = 0 To Len(strText) - 1 Step intCountDigits
     If i = 0 Then
        ReFormat = Mid(strText, i + 1, intCountDigits)
     Else
        ReFormat = ReFormat & strSymbol & Mid(strText, i + 1, intCountDigits)
     End If
 Next i
End Function

syntax code

ReFormat(string ,Symbol, Count Digits)

Result By default syntax used

ReFormat(string)
Symbol >-->>  -
Count Digits >-->> 3 

اذا من خلال استدعاء الكود عن طريق البنية المفضلة الاتية: 

ReFormat(string)

تحصل على اضافة العلامة - بعد كل 3 مواضع فى السلسلة النصية

اما اذا اردت التعديل فى شكل الرمز وعدد المواضع يمكنك استخدام الكود الاتى :

ReFormat(string ,Symbol, Count Digits)

مثلا لو اردت استخدام الرمز  $  بدلا من الرمز  -  
وتريد وضع الرمز فى السلسلة النصية بعد كل خمس مواضع يكون الكود كالأتى:

ReFormat(string ,"$", 5)

 

[Moosak]

وعليكم السلام ورحمة الله وبركاته ..🙂

ألف شكر باش مهندس محمد ..🌹

وعلى طول نجرب ونقول ينقل للمكتبة اللي بالي بالك 😁

 

[Moosak]

بعد التجربة الدالة راااائعة ما شاء الله ويمكن تطبيقها على أكثر مما تتصور ، واحتياجات متعددة 🙂 ..

وهذه بعض الأمثلة :

1 2 3 4 5 6 7 8 9
1-2-3-4-5-6-7-8-9
12-34-56-78-9
1234-5678-9
1/2/3/4/5/6/7/8
A/B/C/D/E/F/G
م ح م د   ع ص ا م
شـــكـــرا
 

[Amr Ashraf]

جزاكم الله خير , فكرة جميلة