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

**عبود عبود عبود عبود** · 03-11-2016, 05:53 PM

هناك تعليمة برمجية تعمل على التحويل إلى رقم وهى " ( ) tonumber " فيمكن التطبيق كالتالى على مثالك :

كود:

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

d = s*5 ;
Dialog.Message("",d);

أو يمكنك إستخدام أحد أكواد التعامل مع النصوص وهى :

كود:

result = String.ToNumber("5");

**ثامر أبو بلقيس ثامر أبو بلقيس** · 03-11-2016, 06:46 PM

ReadToTable

**ثامر أبو بلقيس ثامر أبو بلقيس** · 03-11-2016, 08:47 PM

أو :

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 03-11-2016, 09:07 PM

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

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

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

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

**ياسرهتهت ياسرهتهت** · 04-11-2016, 03:21 AM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

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

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

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

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

--------------------------------------------------------
بسم الله الرحمن الرحيم

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

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

-

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

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

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

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

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

1.rar (322 بايت, 2 مشاهدات)

**ثامر أبو بلقيس ثامر أبو بلقيس** · 04-11-2016, 09:38 AM

سؤال ممتاز أستاذي المحترم

كود 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

**علي قد حالي علي قد حالي** · 04-11-2016, 10:32 AM

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

**ياسرهتهت ياسرهتهت** · 04-11-2016, 02:45 PM

بسم الله الرحمن الرحيم

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

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

كود 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 يجلب النص بدون الارقام

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 04-11-2016, 02:51 PM

المشاركة الأصلية بواسطة ياسرهتهت مشاهدة المشاركة

بسم الله الرحمن الرحيم

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

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

كود 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 يجلب النص بدون الارقام

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

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

**ياسرهتهت ياسرهتهت** · 04-11-2016, 08:05 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

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

الجواب

كود PHP:


c = TextFile.ReadToTable("AutoPlay\\Docs\\1.txt");

for y =1, #c do

x = c[y]

ListBox.AddItem("ListBox1", string.match (x, "%W+"), "");

end

ولكن يحتاج معالجة الاسطر الانجليزية تظهر فارغة في البست بكس

**ثامر أبو بلقيس ثامر أبو بلقيس** · 04-11-2016, 08:10 PM

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

**علي قد حالي علي قد حالي** · 05-11-2016, 01:39 AM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

هناك تعليمة برمجية تعمل على التحويل إلى رقم وهى " ( ) tonumber " فيمكن التطبيق كالتالى على مثالك :

كود:

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

d = s*5 ;
Dialog.Message("",d);

أو يمكنك إستخدام أحد أكواد التعامل مع النصوص وهى :

كود:

result = String.ToNumber("5");

شكرا جزيلا أخي الكريم عبود

جربت الكود الاول و الثاني و كلاهما يعمل و تم حل المشكلة

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

ReadToTable

شكرا جزيلا أخي الكريم ثامر

سأجرب الأكواد كلها التي ذكرتها و أوافيك بالنتائج

**علي قد حالي علي قد حالي** · 30-11-2016, 09:43 PM

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 04-12-2016, 02:35 PM

المشاركة الأصلية بواسطة علي قد حالي مشاهدة المشاركة

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

أخي :
تمنياتي لك بالشفاء إن شاء الله
موفق .

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

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

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

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك