إعـــــــلان

تقليص
لا يوجد إعلان حتى الآن.

كيف احول string الي number ؟

تقليص
هذا الموضوع مغلق.
X
X
تقليص
 
  • الصفحة لـ 1
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة
السابق template التالي
  • #1

    كيف احول string الي number ؟

    السلام عليكم ورحمة الله وبركاته
    مشكلة تتكرر معي باستمرار و ارجو ان افهم كيفية حلها
    علي سبيل المثال عندما استدعي قيمة ما من ملف تكست باستخدام TextFile.ReadFromString
    ثم احاول استخدام هذه القيمة في عملية حسابية يعطيني هذا الخطأ
    Error attempt to perform arithmetic on a string value
    ما حل هذه المشكلة ولماذا تحدث اصلا ؟
    شـكــ وبارك الله فيكم ـــرا لكم ... لكم مني أجمل تحية .
    الكلمات الدلالية: number, string, احول, الى, ط§ط­ظˆظ„, ط§ظ„ظٹ, ظƒظٹظپ, كيف
  • #2
    هناك تعليمة برمجية تعمل على التحويل إلى رقم وهى " ( ) tonumber " فيمكن التطبيق كالتالى على مثالك :

    كود:
    --
result = TextFile.ReadToString("C:\\MyFile.txt");
s = tonumber(result);

d = s*5 ;
Dialog.Message("",d);
    أو يمكنك إستخدام أحد أكواد التعامل مع النصوص وهى :

    كود:
    result = String.ToNumber("5");

    تعليق

    • #3
      ReadToTable

      تعليق

      • #4
        أو :

        إذ كــــان الملف النصي يحمل قيمــــة واحدة أي سطر واحد
        فيمكنك كذلك تجربة الآتي :
        [html]k = io.input("AutoPlay\\Docs\\1.txt"):read ("*l")
        Dialog.Message("Notice", k*5);[/html]
        شـــريطة أن لا يكون سطرا شاغرا قبل البيانات لأنه في كل الحالات سيعطيك خطـأ
        الا إذا أضفت كود يعالج حالة الشغور و يحذفها موفــــق .

        تعليق

        • #5
          لنقترض الان : ملف نصي فيه عشرات الأسطر الفارغة
          ثم نجد قيمة رقمية " عدد " ثم يأتي بعد سطر العدد عشرات الأسطر الفارغة

          نريد الوصول إلى الرقم و القيام بعملية و اهمال كل الأسطر الفارغة في الملف النصي

          الحل في حرف n
          جرب التعديل هذا على الكود السابق
          [html]k = io.input("AutoPlay\\Docs\\1.txt"):read ("*n")
          Dialog.Message("Notice", k*5);[/html]


          هات حالات ممكنة الحدوث .. موفق

          تعليق

          • #6
            المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
            لنقترض الان : ملف نصي فيه عشرات الأسطر الفارغة
            ثم نجد قيمة رقمية " عدد " ثم يأتي بعد سطر العدد عشرات الأسطر الفارغة

            نريد الوصول إلى الرقم و القيام بعملية و اهمال كل الأسطر الفارغة في الملف النصي

            الحل في حرف n
            جرب التعديل هذا على الكود السابق
            [html]k = io.input("AutoPlay\\Docs\\1.txt"):read ("*n")
            Dialog.Message("Notice", k*5);[/html]


            هات حالات ممكنة الحدوث .. موفق
            --------------------------------------------------------
            بسم الله الرحمن الرحيم

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


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

            -

            هنا اريد ان اطرح ســـــؤال
            في ملف txt قائمة بهذة الشكل





            لايوجد علامة مميز او فاصل ولا مكان الرقم في السطر ثابت
            كما هو واضح في الصورة
            هل يمكن استدعاء الارقام في القائمة الي ListBox

            قائمة الاسماء في المرفقات للتجربة عليها ؟

            موفق بإذن الله ... لك مني أجمل تحية .







            الملفات المرفقة

            تعليق

            • #7
              سؤال ممتاز أستاذي المحترم
              كود PHP:
              c = TextFile.ReadToTable("AutoPlay\\Docs\\1.txt");
              for               y =1, #c do
              x = c[y]
              ListBox.AddItem("ListBox1", string.match (x, "%d+"), "");
              end 
              لا يجب أن يخلو سطرا من قيمة رقمية

              أما في حالة وجود سطر من بين الأسطر لا يشمل أرقام

              فهذا الشرط يعالج الأمر

              كود PHP:
              c = TextFile.ReadToTable("AutoPlay\\Docs\\1.txt");
              for               y =1, #c do
              x = c[y]
              b = string.match (x, "%d+")
              if               b ~= nil then
              ListBox              .AddItem("ListBox1", b, "");
              end
              end 

              تعليق

              • #8
                أشكركم جميعا من كل قلبي :abc_145:
                سأجرب الأكواد التي تفضلتم بذكرها ثم أعود إليكم بالنتائج

                تعليق

                • #9
                  بسم الله الرحمن الرحيم

                  شكراً لك استاذ ثامر على الابداع والتميز

                  كود مميز من اكواد ابو بلقيس


                  كود PHP:
                  c = TextFile.ReadToTable("AutoPlay\\Docs\\1.txt");
                  for                   y =1, #c do
                  x = c[y]
                  b = string.match (x, "%d+")
                  if                   b ~= nil then
                  ListBox                  .AddItem("ListBox1", b, "");
                  end
                  end 
                  الاروع ان استبدال d بـــ D يجلب النص بدون الارقام

                  موفق بإذن الله ... لك مني أجمل تحية .

                  تعليق

                  • #10
                    المشاركة الأصلية بواسطة ياسرهتهت مشاهدة المشاركة
                    بسم الله الرحمن الرحيم

                    شكراً لك استاذ ثامر على الابداع والتميز

                    كود مميز من اكواد ابو بلقيس


                    كود PHP:
                    c = textfile.readtotable("autoplay\\docs\\1.txt");
                    for                     y =1, #c do
                    x = c[y]
                    b = string.match (x, "%d+")
                    if                     b ~= nil then
                    listbox                    .additem("listbox1", b, "");
                    end
                    end 
                    الاروع ان استبدال d بـــ d يجلب النص بدون الارقام

                    موفق بإذن الله ... لك مني أجمل تحية .

                    بالضبط ... وماذا لو أردت فقط الاسماء العربية و استبعاد ذات الاحرف اللاتينية ؟

                    تعليق

                    • #11
                      المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
                      بالضبط ... وماذا لو أردت فقط الاسماء العربية و استبعاد ذات الاحرف اللاتينية ؟

                      الجواب
                      كود PHP:
                      c = TextFile.ReadToTable("AutoPlay\\Docs\\1.txt");
                      for                       y =1, #c do
                      x = c[y]
                      ListBox.AddItem("ListBox1", string.match (x, "%W+"), "");
                      end 
                      ولكن يحتاج معالجة الاسطر الانجليزية تظهر فارغة في البست بكس

                      تعليق

                      • #12
                        شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
                        :teslam:

                        تعليق

                        • #13
                          المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة
                          هناك تعليمة برمجية تعمل على التحويل إلى رقم وهى " ( ) tonumber " فيمكن التطبيق كالتالى على مثالك :

                          كود:
                          --
result = TextFile.ReadToString("C:\\MyFile.txt");
s = tonumber(result);

d = s*5 ;
Dialog.Message("",d);
                          أو يمكنك إستخدام أحد أكواد التعامل مع النصوص وهى :

                          كود:
                          result = String.ToNumber("5");
                          شكرا جزيلا أخي الكريم عبود جربت الكود الاول و الثاني و كلاهما يعمل و تم حل المشكلة

                          المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
                          ReadToTable
                          شكرا جزيلا أخي الكريم ثامر سأجرب الأكواد كلها التي ذكرتها و أوافيك بالنتائج

                          تعليق

                          • #14
                            أخي الحبيب ثامر .. آسف علي تأخري في الرد لظروف مرضية
                            الاكواد مفيدة جدا .. روعة

                            تعليق

                            • #15
                              المشاركة الأصلية بواسطة علي قد حالي مشاهدة المشاركة
                              أخي الحبيب ثامر .. آسف علي تأخري في الرد لظروف مرضية
                              الاكواد مفيدة جدا .. روعة
                              أخي :
                              تمنياتي لك بالشفاء إن شاء الله
                              موفق .

                              تعليق

                              السابق template التالي

                              مواضيع تهمك

                              تقليص
                              بطاقة Apple iTunes الصين 30 CNY: الحل الأمثل للمحتوى الرقمي
                              المنتدى: القسم العام نشرت بواسطة: ماريا عبد الله الوقت: 11-28-2025 الساعة 08:17 PM
                              يعمل...
                              X