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

**ياسرهتهت ياسرهتهت** · 16-08-2017, 05:32 AM

**المـهاجر المـهاجر** · 16-08-2017, 11:48 AM

عندما تبنى مبنى
لا تضع الأساس بشكل مائل
ثم تسأل عن كيفية إستعدال البناء

قم بتقويم الأساس
لا تصلح الملفات النصية لما انت بصدده الآن

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

عبد الهادي بهاب · 16-08-2017, 11:51 AM

http://sites.ienajah.com/vb2/showthread.php?t=24581

ممكن

**ثامر أبو بلقيس ثامر أبو بلقيس** · 16-08-2017, 01:25 PM

السلام عليكم ورحمة الله وبركاته
في زر البحث أكتب ياصديقي الكود :

كود PHP:


Input.SetText("Input_Yas", "");Input.SetText("Input_no", "");
tblNames = TextFile.ReadToTable("AutoPlay\\Docs\\LIST.txt");
sResult=''
sResult2=''
local sNames = table.concat(tblNames,"%|%")
for i = 1, #tblNames do
local _,n = string.gsub(sNames,tblNames[i],"")
local sline = string.format("%s =%d",tblNames[i],n)
local _,d = string.gsub(sResult,sline,"")
if (d == 0) and tblNames[i] == Input.GetText("sersh").. '|Yas'then
Input.SetText("Input_Yas", String.Replace(sline, Input.GetText("sersh").. '|Yas =', "", false));
end
local sline2 = string.format("%s =%d",tblNames[i],n)
local _,d = string.gsub(sResult2,sline2,"")
if (d == 0) and tblNames[i] == Input.GetText("sersh").. '|No'then
Input.SetText("Input_no", String.Replace(sline2, Input.GetText("sersh").. '|No =', "", false));
end
end

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

عبد الهادي بهاب · 16-08-2017, 02:24 PM

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

https://up.top4top.net/downloadf-593fc8dz1-rar.html

**ثامر أبو بلقيس ثامر أبو بلقيس** · 16-08-2017, 02:43 PM

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

http://sites.ienajah.com/vb2/showthread.php?t=24581

ممكن

ممكــــــــن

**ياسرهتهت ياسرهتهت** · 16-08-2017, 02:44 PM

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

عندما تبنى مبنى
لا تضع الأساس بشكل مائل
ثم تسأل عن كيفية إستعدال البناء

قم بتقويم الأساس
لا تصلح الملفات النصية لما انت بصدده الآن

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

------------
بسم الله الرحمن الرحيم
شكرا لك استاذ المهاجر على الرد والملاحظات
انا دائما احب توجيهاتك وملاحظاتك
اتمنا ان تعطيني فكرة احفظ بها قائمة اسماء
سيتكرر الاسم فيها مع yas او no
واستطيع بسهوله الحصول على عدد الـ yas no لاسم

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

**ياسرهتهت ياسرهتهت** · 16-08-2017, 02:48 PM

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

http://sites.ienajah.com/vb2/showthread.php?t=24581

ممكن

بسم الله الرحمن الرحيم
شكرا لك استاذ عبد الهادي

**ياسرهتهت ياسرهتهت** · 16-08-2017, 02:50 PM

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

https://up.top4top.net/downloadf-593fc8dz1-rar.html

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

افكارك رائعه استاذ عبد الهادي
واكوادك هي التي افهمها بسرعه
شكرا لك وبارك الله فيك
موفق بإذن الله ... لك مني أجمل تحية .

**ياسرهتهت ياسرهتهت** · 16-08-2017, 02:54 PM

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

السلام عليكم ورحمة الله وبركاته
في زر البحث أكتب ياصديقي الكود :

كود PHP:


Input.SetText("Input_Yas", "");Input.SetText("Input_no", "");

tblNames = TextFile.ReadToTable("AutoPlay\\Docs\\LIST.txt");

sResult=''

sResult2=''

local sNames = table.concat(tblNames,"%|%")

for i = 1, #tblNames do

local _,n = string.gsub(sNames,tblNames[i],"")

local sline = string.format("%s =%d",tblNames[i],n)

local _,d = string.gsub(sResult,sline,"")

if (d == 0) and tblNames[i] == Input.GetText("sersh").. '|Yas'then

Input.SetText("Input_Yas", String.Replace(sline, Input.GetText("sersh").. '|Yas =', "", false));

end

local sline2 = string.format("%s =%d",tblNames[i],n)

local _,d = string.gsub(sResult2,sline2,"")

if (d == 0) and tblNames[i] == Input.GetText("sersh").. '|No'then

Input.SetText("Input_no", String.Replace(sline2, Input.GetText("sersh").. '|No =', "", false));

end

end

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

------------------

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

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

**ياسرهتهت ياسرهتهت** · 16-08-2017, 03:02 PM

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

ممكــــــــن

-------------------
بسم الله الرحمن الرحيم
انا بالامس وبالتعامل مع كود لاستاذ هيثم
لايجاد عدد مرات وجود كلمة في انبت

وصلة الي نيجة معقولة

هذا الكود

كود PHP:


----------------------------------------------------------------------------------all



b = Input.GetText("Input1");

name = String.Replace(b, "|No", "", false);





get_string = name



all_txt = TextFile.ReadToString("AutoPlay\\Docs\\LIST.txt");

found = 0

result = 0

if get_string == "" then

Dialog.Message("Haitham.2012", "ÍÏÏ ÃæáÇ ÇáäÕ ÇáãÑÇÏ ÇáÈÍË Úäå")

else

repeat

result = result + 1

result = String.Find(all_txt, get_string, result, false);

if result ~= -1 then

found = found + 1

end

until result == -1

--Dialog.Message("Haitham.2012", "ÇáäÕ ( " ..name.. " ) æÌÏ ( " .. found .. " ) ãÑå / ãÑÇÊ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)

Input.SetText("Inpall", found);



end

-----------------------------------------------------------------------------------------------yas

b = Input.GetText("Input1");

namess = String.Replace(b, "|No", "|Yas", false);





get_string = namess



all_txt = TextFile.ReadToString("AutoPlay\\Docs\\LIST.txt");

found = 0

result = 0

if get_string == "" then

Dialog.Message("Haitham.2012", "ÍÏÏ ÃæáÇ ÇáäÕ ÇáãÑÇÏ ÇáÈÍË Úäå")

else

repeat

result = result + 1

result = String.Find(all_txt, get_string, result, false);

if result ~= -1 then

found = found + 1

end

until result == -1

--Dialog.Message("Haitham.2012", "ÇáäÕ ( " ..name.. " ) æÌÏ ( " .. found .. " ) ãÑå / ãÑÇÊ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)

Input.SetText("Inpyas", found);



end



---------------------------------------------------------------------no

get_string = Input.GetText("Input1");

name = String.Replace(get_string, "|No", "", false);

all_txt = TextFile.ReadToString("AutoPlay\\Docs\\LIST.txt");

found = 0

result = 0

if get_string == "" then

Dialog.Message("Haitham.2012", "ÍÏÏ ÃæáÇ ÇáäÕ ÇáãÑÇÏ ÇáÈÍË Úäå")

else

repeat

result = result + 1

result = String.Find(all_txt, get_string, result, false);

if result ~= -1 then

found = found + 1

end

until result == -1

--Dialog.Message("Haitham.2012", "ÇáäÕ ( " ..name.. " ) æÌÏ ( " .. found .. " ) ãÑå / ãÑÇÊ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)

Input.SetText("Inpno", found);



end

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

**المـهاجر المـهاجر** · 16-08-2017, 03:43 PM

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

------------
بسم الله الرحمن الرحيم
شكرا لك استاذ المهاجر على الرد والملاحظات
انا دائما احب توجيهاتك وملاحظاتك
اتمنا ان تعطيني فكرة احفظ بها قائمة اسماء
سيتكرر الاسم فيها مع yas او no
واستطيع بسهوله الحصول على عدد الـ yas no لاسم

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

عن ماذا تعبر yes و no فى البرنامج ؟؟
حضور غياب ؟
رسوب نجاح ؟
و ماذا يعنى تكرارها ؟؟؟
معلومات مطلوبة لاضع لك تصور صحيح يبتعد تماما عن تكرار الاسماء

و دعك من محاولات وضع الفرس خلف العربة
امامها أو خلفها ستسير العربة
لكن اى الحالتين أسلس و ايسر ؟؟

**فرح صالحي فرح صالحي** · 16-08-2017, 04:20 PM

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

إستعدال

هذه المفردة جلبت انتباهي
تحياتي اخي عثمان

**ياسرهتهت ياسرهتهت** · 16-08-2017, 04:21 PM

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

عن ماذا تعبر yes و no فى البرنامج ؟؟
حضور غياب ؟
رسوب نجاح ؟
و ماذا يعنى تكرارها ؟؟؟
معلومات مطلوبة لاضع لك تصور صحيح يبتعد تماما عن تكرار الاسماء

و دعك من محاولات وضع الفرس خلف العربة
امامها أو خلفها ستسير العربة
لكن اى الحالتين أسلس و ايسر ؟؟

--------
بسم الله الرحمن الرحيم
اقصد الحضور والغياب وما تهمني no هي لا نها تعني عدد ايام الغياب

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

ســــــــؤال (هام جدااا ) خاص بالبحث في ملف نصي (Text )

ســــــــؤال (هام جدااا ) خاص بالبحث في ملف نصي (Text )

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك