مساعدة في تحويل نص الى رقم

[ازهر عبد العزيز]

السلام عليكم
كل عام وانتم بالف خير
احتاج تحويل نص الى رقم كمثال تحويل النص y0372023r0b9g0v5 الى رقم مع ابقاء الارقام ان وجدت

[kha9009lid]

33 دقائق مضت, ازهر عبد العزيز said:

احتاج تحويل نص الى رقم كمثال تحويل النص y0372023r0b9g0v5 الى رقم مع ابقاء الارقام ان وجدت

جرب

Dim k As Integer
Dim x As Integer
For k = 1 To Len(tx)
x = Asc(Mid(tx, k))
If x >= 48 And x <= 58 Then
Me.tx2 = tx2 & Mid(tx, k, 1)
End If
Next k

مرفق مثال

 

Database1641.accdb

تم تعديل مايو 16, 2021 بواسطه kha9009lid

[ازهر عبد العزيز]

الاستاذ  kha9009lid  جزاك الله عني كل خير 

[jjafferr]

وعليكم السلام 🙂

 

معذرة اخوي خالد ، بدل ما يستعمل اخوي ازهر كودك ابو 8 اسطر ، انا اقدم له حل ابو سطر واحد فقط ، ويشتغل في الكود والاستعلام 

Remove_Letters: Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace("y0372023r0b9g0v5", "q", ""), "w", ""), "e", ""), "r", ""), "t", ""), "y", ""), "u", ""), "i", ""), "o", ""), "p", ""), "a", ""), "s", ""), "d", ""), "f", ""), "g", ""), "h", ""), "j", ""), "k", ""), "l", ""), "z", ""), "x", ""), "c", ""), "v", ""), "b", ""), "n", ""), "m", "")

 

جعفر

الحروف على تسلسل لوحة المفاتيح 🙂

[kha9009lid]

منذ ساعه, jjafferr said:

معذرة اخوي خالد ، بدل ما يستعمل اخوي ازهر كودك ابو 8 اسطر ، انا اقدم له حل ابو سطر واحد فقط ، ويشتغل في الكود والاستعلام 

يامرحبا ترحيبة كلها لك

انا اقول لك جرب كودك في استعلام بعد اسنادة لحقل النص المطلوب تعديله

سوف يعمل ببطء شديد وكل ماكانت السجلات اكثر يكون اكثر بطء

ثانيا انت استخدمت دالة الاستبدال بعدد احرف الهجائية الانجليزية وبالتالي عدد احرف الكود لديك اكبر ههههههه

ثالثا لو كان الحقول مختلطة باحرف ورموز كودك استاذنا لن يعمل حتى تقوم باضافة هذه الرموز

رابعا لو كانت بعض الحقول تحتوي على احرف عربية ايضا لن يعمل وسيكون لدينا حمسين Replace

اما بشأن العمل في الاستعلام فالاستاذ ازهر لم يحدد ويمكن بتعديل بسيط تعديله الى وحدة نمطية وسوف يعمل

Public Function ExNum(sInput) As String
Dim s As String, w As String
Dim k As Integer
If Not IsNull(sInput) Then
For k = 1 To Len(sInput)
w = Mid(sInput, k, 1)
Select Case w
Case "0" To "9"
s = s & w
Case Else
End Select
Next k
End If
ExNum = s
End Function

وللاستدعاء

exnum([tx])

وكل عام وانت بخير

تم تعديل مايو 16, 2021 بواسطه kha9009lid

[kha9009lid]

وهذه نتيجة عد الاحرف

=Len([tx2])

 

[ازهر عبد العزيز]

بخصوص كود الاستاذ جعفر  جزاه الله عني كل خير

تم تعديل مايو 16, 2021 بواسطه ازهر عبد العزيز

[kha9009lid]

16 دقائق مضت, ازهر عبد العزيز said:

بخصوص كود الاستاذ جعفر  جزاه الله عني كل خير

ليس عنك فقط اخي ازهر

بل جزاه الله عنا جميعا كل خير

الحقيقة لولا وجود اخواني واساتذتي الفضلاء بدون تسميه لما حرصت على المشاركة بالموقع

هذا ردي على استاذي ابو عبد الله في موضوع سابق 👇

اقتباس

   في ٥‏/٤‏/٢٠٢١ at 16:38, kha9009lid said:

    انا في حالات كثير اتعمد المداخله في ردودك لغرض معرفة البدائل التي لديكم استاذي العزيز

 

[jjafferr]

هذا الموضوع يذكرني في مشاركة لي في منتدى اجنبي:

صاحب الموضوع وضع شرح طويل عن مشكلته ، وقامت خبيرة بالرد على سؤاله بسطر واحد ،

وعلى سبيل المزاح قلت لها:

حرام ان صاحب الموضوع يكتب هذا الكم من الكلمات ويحصل على اجابة سطر واحد !!

ثم وضعت كود بعدة اسطر (ولم يكن افضل من كود السطر) وقلت لصاحب الموضوع لا تزعل وتفضل اجابة بكود اطول 🙂

والذي استغربت منه هو ، ان صاحب الموضوع قام بإختيار طريقتي كأفضل حل !!

ولما قلت له اني كنت امزح في وضع الحل ، وان الحل الافضل هو كود السطر الواحد ، رد عليّ قائلا: يتم الدفع لي على البرمجة بعدد الاسطر التي اكتبها 😬


وطبعا اخوي خالد انت عرفت بأن هذا السطر كان مزحة 🙂

 

اخوي ازهر ، عدد الاسطر الحقيقية لهذا الكود هي:

R = Replace( _
     Replace( _
      Replace( _
       Replace( _
        Replace( _
         Replace( _
          Replace( _
           Replace( _
            Replace( _
             Replace( _
              Replace( _
               Replace( _
                Replace( _
                 Replace( _
                  Replace( _
                   Replace( _
                    Replace( _
                     Replace( _
                      Replace( _
                       Replace( _
                        Replace( _
                         Replace( _
                          Replace( _
                           Replace( _
                            Replace( _
                            Replace("y0372023r0b9g0v5", "q", ""), "w", ""), "e", ""), "r", ""), "t", ""), "y", ""), "u", ""), "i", ""), "o", ""), "p", ""), "a", ""), "s", ""), "d", ""), "f", ""), "g", ""), "h", ""), "j", ""), "k", ""), "l", ""), "z", ""), "x", ""), "c", ""), "v", ""), "b", ""), "n", ""), "m", "")

 

وعلشان يكون الكود اوضح للفهم والقراءة ، فيصبح:

R = Replace( _
     Replace( _
      Replace( _
       Replace( _
        Replace( _
         Replace( _
          Replace( _
           Replace( _
            Replace( _
             Replace( _
              Replace( _
               Replace( _
                Replace( _
                 Replace( _
                  Replace( _
                   Replace( _
                    Replace( _
                     Replace( _
                      Replace( _
                       Replace( _
                        Replace( _
                         Replace( _
                          Replace( _
                           Replace( _
                            Replace( _
                            Replace("y0372023r0b9g0v5", "q", "") _
						      , "w", "") _
						      , "e", "") _
						      , "r", "") _
						      , "t", "") _
						      , "y", "") _
						      , "u", "") _
						      , "i", "") _
						      , "o", "") _
						      , "p", "") _
						      , "a", "") _
						      , "s", "") _
						      , "d", "") _
						      , "f", "") _
						      , "g", "") _
						      , "h", "") _
						      , "j", "") _
						      , "k", "") _
						      , "l", "") _
						      , "z", "") _
						      , "x", "") _
						      , "c", "") _
						      , "v", "") _
						      , "b", "") _
						      , "n", "") _
						      , "m", "")

 

جعفر

[kha9009lid]

2 ساعات مضت, jjafferr said:

وطبعا اخوي خالد انت عرفت بأن هذا السطر كان مزحة

اكيد اعرف يا ابا عبد الله 🙂

[Moosak]

بما أن الأستاذ خالد قام بإحياء هذا الموضوع من جديد أحببت أن أدلو بدلوي 😁

هذه طريقتي لفصل الأرقام من النص .. والعكس نزع الحروف من بين الأرقام  ..

أولا : استخراج الأرقام من النص وحذف الحروف :

Public Function ExtractNumbersFromText(strText As String)
Dim x As Long
Dim L As String
Dim r As String

For x = 1 To Len(strText)

    L = Mid(strText, x, 1)
    If IsNumeric(L) Then
    r = r & L
    End If
Next x
ExtractNumbersFromText = r
End Function

ثانيا : اسخراج الحروف وحذف الأرقام :

Public Function RemoveNumbersFromText(strText As String)
Dim x As Long
Dim L As String
Dim r As String

For x = 1 To Len(strText)

    L = Mid(strText, x, 1)
    If Not IsNumeric(L) Then
    r = r & L
    End If
Next x
RemoveNumbersFromText = r
End Function

abc.rar

[متقاعد]

18 دقائق مضت, Moosak said:

خالد قام بإحياء هذا الموضوع من جديد

الله سبحانه من يحيي ويميت

وَضَرَبَ لَنَا مَثَلًا وَنَسِيَ خَلْقَهُ قَالَ مَن يُحْيِي الْعِظَامَ وَهِيَ رَمِيمٌ * قُلْ يُحْيِيهَا الَّذِي أَنشَأَهَا أَوَّلَ مَرَّةٍ وَهُوَ بِكُلِّ خَلْقٍ عَلِيمٌ

كان مجرد رد خاطئ في مكان ووقت غير مناسب وعدلته

تحياتي

[Moosak]

23 دقائق مضت, Moosak said:

الأستاذ خالد

هذا الاسم يليق بك أكثر 😉 مقروناً باللقب المناسب لك (الخبير) 😊👌🏼

[متقاعد]

4 دقائق مضت, Moosak said:

هذا الاسم يليق بك أكثر

شكرا لمشاعرك الطيبة مع ذلك هذه الالقاب ليست ذات اهميه بالنسبة لي

هذا ⬇️ اقتباس لجزء من رسالتي لاحد الكبار في الموقع

في 15‏/8‏/2022 at 20:08, kha90lid said:

ولكني اتمنى من اخي الحبيب اعادة رتبتي الى ما كانت عليه وفق الترتيب التلقائي

فانا كما اشرت في اول مشاركة مجرد عضو يشارك وفقا لما يتسع له وقته واتمنى بدايه جديدة بغض النظر عن اسمي الحقيقي فلا مشكلة من الاشارة اليه

[Moosak]

هذا اللقب يقود الناس المتعطشين للمعرفة إلى المنبع الصافي أمثالكم لقضاء حوائجهم 🙂 

واحتسب الأجر عند الله ..

تم تعديل أغسطس 23, 2022 بواسطه Moosak

[AbuuAhmed]

أكثر ما أكرهه في البرمجة هو تكديس الأكواد للوصول إلى أقصر كود.
من الحالات التي مرت علي أذكر منها حالتين:
الأولى صاحبها يستخدم الفاصلة بين الأسطر ":" ولا يستخدم أسطر فارغة بين الدوال ليخرج ويعلن أن كوده هو الأفضل لأنه الأقصر!!
والأخرى صاحبها يستخدم نتائج بعد تحضيرها منفصلة خارج الكود الأصل ، ثم يستخدمها كثوابت ويستخدم أسطر بيانات تصل طول السطر فيها إلى ما يقارب الألف حرف ليعلن أن كوده هو الأقصر والأسرع.

ملاحظة أخرى عملية السرعة ليست مطلوبة في كل الأوقات ، نحتاجها أكثر في العمل الذي به حسابات كثيرة ومتكررة وهذا نادر جدا ، أما لو كانت عملية تحويلات لملف بيانات قديمة ولمرة واحدة مثلا فلا داعي للإنشغال بالسرعة والإختصار فالكود سوف يستخدم مرة أو مرتين ثم يهمل/يترك/يرمى لانتهاء الحاجة له.

حركتوا مشاعري المدفونة.

[AbuuAhmed]

في 16‏/5‏/2021 at 18:12, kha9009lid said:

If x >= 48 And x <= 58 Then

 

في 23‏/8‏/2022 at 19:41, Moosak said:

If IsNumeric(L) Then

 

 

في 16‏/5‏/2021 at 23:50, kha9009lid said:

Case "0" To "9"

 

وهذه أيضا من عندي:

If L Like "[0-9]" Then
أو
If L Like "[0123456789]" Then