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

محمد بن أحمد أبو حذيفة · 25-08-2017, 09:37 AM

وصلت الى هذا

كود PHP:


--&#205;ÝÙ ãáÝ Ýí ÇáÌåÇÒ

sel = ListBox.GetSelected("ListBox1");

if sel~=nil then

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

result = Dialog.FileBrowse(false, "Locate File", "AutoPlay\\Docs", "All Files (*.rtf)|*.rtf|", Paragraph.GetText("Paragraph1"), "rtf", false, false);





if result~="CANCEL" then

RichText.SaveToFile("RichText1", result[1]);

end

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

else

Dialog.Message("ÇäÊÈÉ", "íÌÈ ÇáÊÍÏíÏ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

end

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

**ياسرهتهت ياسرهتهت** · 25-08-2017, 12:56 PM

المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة

وصلت الى هذا

كود PHP:


--&#205;ÝÙ ãáÝ Ýí ÇáÌåÇÒ

sel = ListBox.GetSelected("ListBox1");

if sel~=nil then

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

result = Dialog.FileBrowse(false, "Locate File", "AutoPlay\\Docs", "All Files (*.rtf)|*.rtf|", Paragraph.GetText("Paragraph1"), "rtf", false, false);





if result~="CANCEL" then

RichText.SaveToFile("RichText1", result[1]);

end

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

else

Dialog.Message("ÇäÊÈÉ", "íÌÈ ÇáÊÍÏíÏ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

end

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

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

جرب هذا لا يحفظ الملف الا اذا زاد الكلام او عدد الاحرف عن الجمله المكتوبه

مخصص للتفريغ الفتوة

كود PHP:


 --&#205;ÝÙ ãáÝ Ýí ÇáÌåÇÒ

n_letr = RichText.GetTextLength("RichText1");

   

   if (n_letr <=  20) then

      Dialog.Message("Notice", "Your message here.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

       

       else



        selected_items = ListBox.GetSelected("ListBox1");

            

            if (selected_items == nil) then

            

            Dialog.Message("Notice", "Your message here.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

            else

            

            

            

            result = Dialog.FileBrowse(false, "Locate File", "AutoPlay\\Docs", "All Files (*.rtf)|*.rtf|", Paragraph.GetText("Paragraph1"), "rtf", false, false);

                 if result~="CANCEL" then

                 RichText.SaveToFile("RichText1", result[1]);

                 end

            

            end

            

 end

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

محمد بن أحمد أبو حذيفة · 25-08-2017, 01:21 PM

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

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

جرب هذا لا يحفظ الملف الا اذا زاد الكلام او عدد الاحرف عن الجمله المكتوبه

مخصص للتفريغ الفتوة

كود PHP:


 --&#205;ÝÙ ãáÝ Ýí ÇáÌåÇÒ

n_letr = richtext.gettextlength("richtext1");

   

   if (n_letr <=  20) then

      dialog.message("notice", "your message here.", mb_ok, mb_iconinformation, mb_defbutton1);

       

       else



        selected_items = listbox.getselected("listbox1");

            

            if (selected_items == nil) then

            

            dialog.message("notice", "your message here.", mb_ok, mb_iconinformation, mb_defbutton1);

            else

            

            

            

            result = dialog.filebrowse(false, "locate file", "autoplay\\docs", "all files (*.rtf)|*.rtf|", paragraph.gettext("paragraph1"), "rtf", false, false);

                 if result~="cancel" then

                 richtext.savetofile("richtext1", result[1]);

                 end

            

            end

            

 end

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

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

**ياسرهتهت ياسرهتهت** · 25-08-2017, 01:55 PM

بسم الله الرحمن الرحيم
نعم يمكن عرض ملف افتراضي
لكن الملف المفتوح الي عندي لا يوضح مكان استدعاء التفريغ
في مشروعك

محمد بن أحمد أبو حذيفة · 25-08-2017, 05:12 PM

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

بسم الله الرحمن الرحيم
نعم يمكن عرض ملف افتراضي
لكن الملف المفتوح الي عندي لا يوضح مكان استدعاء التفريغ
في مشروعك

بارك الله فيك
تفضل الملف المفتوح

https://www.mediafire.com/file/a62xgrq9r2y455a/14.rar

يوحد زر حمل الشريط الحالي

انا وضعت فيه كود لكن لم اصل الى نتيجة لحد الان

اريد ان احفظ المحدد من اليست بوكس مع التفريغ الخاص به في مجدل ياخذ اسمه من Paragraph1 واحفظه مثلا على سطح المكتب
هل ممكن هذا

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

لاحظ هذا الخطأ عندك
[html]Folder.Create("C:\\",full_name);[/html]
الصواب
[html]Folder.Create("C:\\"..full_name);[/html]

**فرح صالحي فرح صالحي** · 25-08-2017, 06:17 PM

المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة

بارك الله فيك

جرب هذا

https://up.top4top.net/downloadf-601phfh61-zip.html

واعلمني لاظيف للموضوع

الرابط شغال والملف كذلك

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

[html]sel = ListBox.GetSelected("ListBox1");
if sel~=nil then
result = ListBox.GetItemText("ListBox1", sel[1]);
full_name = Dialog.Input("Welcome", "Please enter your full name:",result);
Folder.Create("C:\\"..full_name);
TextFile.WriteFromString("C:\\"..full_name.."\\".. Paragraph.GetText("Paragraph1")..".txt", RichText.GetText("RichText1", false), false);
else
Dialog.Message("انتبة", "يجب التحديد", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end[/html]

محمد بن أحمد أبو حذيفة · 25-08-2017, 07:15 PM

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

[html]sel = ListBox.GetSelected("ListBox1");
if sel~=nil then
result = ListBox.GetItemText("ListBox1", sel[1]);
full_name = Dialog.Input("Welcome", "Please enter your full name:",result);
Folder.Create("C:\\"..full_name);
TextFile.WriteFromString("C:\\"..full_name.."\\".. Paragraph.GetText("Paragraph1")..".txt", RichText.GetText("RichText1", false), false);
else
Dialog.Message("انتبة", "يجب التحديد", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end[/html]

بارك الله فيك لم انتبه للنقطتين

المهم الكود يعمل لكن ينسخ ملف التفريغ اما ملف الصوت فلا يوجد الامر
File.Copy

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

حتـــى أفهم مطلبك
تريد عند تنفيذ الأمر
إنشاء مجلد و بداخله ملف نصي لمحتوا كتابي متوافق

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

هل هذا هو المطلوب ؟

محمد بن أحمد أبو حذيفة · 25-08-2017, 10:33 PM

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

حتـــى أفهم مطلبك
تريد عند تنفيذ الأمر
إنشاء مجلد و بداخله ملف نصي لمحتوا كتابي متوافق

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

هل هذا هو المطلوب ؟

بارك الله فيك
نعم هو المطلوب انشاء مجلد بداخله ملف مكتوب هو لللتفريغ مرفق معه الملف الصوتي

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

**ياسرهتهت ياسرهتهت** · 26-08-2017, 01:33 AM

المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة

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

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

تمام اخي ابو حذيفة اين تريد مكان المجلد الذي سيكون به الملف المفرغ والملف الصوتي واسم المجلد نفس اسم الملف الصوتي

يعني مكان المجلد محدد ولا اترك الخيار مفتوح ؟

**ثامر أبو بلقيس ثامر أبو بلقيس** · 26-08-2017, 01:48 AM

جيد
لا أعرف لماذا سأقول لك
في الحدث --ListBox1 --on select --
احذف مؤقتا السطر المعبر على التايمر
هذا
[html]Page.StartTimer(500,1)[/html]

بعدما حذفته مؤقتا

جرب الان هذا الكود في زر حمل الشريط الحـــالي
[html]num = ListBox.GetSelected("ListBox1");
if num~=nil then
SONG = ListBox.GetItemData("ListBox1", num[1]);
y = ListBox.GetItemText("ListBox1", num[1]);
full_name = Dialog.Input("Welcome", "Please enter your full name:",y);
Folder.Create("C:\\"..full_name);
TextFile.WriteFromString("C:\\"..full_name.."\\".. Paragraph.GetText("Paragraph1")..".txt", RichText.GetText("RichText1", false), false);
File.Copy(SONG, "C:\\"..y.."\\", true, true, false, true, nil);
else
Dialog.Message("انتبة", "يجب التحديد", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end[/html]

ناجحة لكن تعطل ما تعلق بالتايمر ( شوفلوا حل )

**ثامر أبو بلقيس ثامر أبو بلقيس** · 26-08-2017, 02:01 AM

أو : لا تحذف شيء من اليست بوكس خليه كما كان

لكن احذف السطر الأول و الثاني المكتبوبين في التايمر
هاهما سبب المشاكل

[html]File = String.SplitPath("CD_Root\AutoPlay\Audio");
Label.SetText("status", "Now Playing: "..File.Filename);
[/html]

و اكتب الكود السابق في زر تحميل شريط الحالي
[html] num = ListBox.GetSelected("ListBox1");
if num~=nil then
SONG = ListBox.GetItemData("ListBox1", num[1]);
y = ListBox.GetItemText("ListBox1", num[1]);
full_name = Dialog.Input("Welcome", "Please enter your full name:",y);
Folder.Create("C:\\"..full_name);
TextFile.WriteFromString("C:\\"..full_name.."\\".. Paragraph.GetText("Paragraph1")..".txt", RichText.GetText("RichText1", false), false);
File.Copy(SONG, "C:\\"..y.."\\", true, true, false, true, nil);
else
Dialog.Message("انتبة", "يجب التحديد", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end[/html]

محمد بن أحمد أبو حذيفة · 26-08-2017, 08:58 AM

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

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

تمام اخي ابو حذيفة اين تريد مكان المجلد الذي سيكون به الملف المفرغ والملف الصوتي واسم المجلد نفس اسم الملف الصوتي

يعني مكان المجلد محدد ولا اترك الخيار مفتوح ؟

بارك الله فيك اخي ياسر
قدم الاخ ثامر هذا الكود

[HTML]num = ListBox.GetSelected("ListBox1");
if num~=nil then
SONG = ListBox.GetItemData("ListBox1", num[1]);
y = ListBox.GetItemText("ListBox1", num[1]);
full_name = Dialog.Input("Welcome", "Please enter your full name:",y);
Folder.Create("C:\\"..full_name);
TextFile.WriteFromString("C:\\"..full_name.."\\".. Paragraph.GetText("Paragraph1")..".txt", RichText.GetText("RichText1", false), false);
File.Copy(SONG, "C:\\"..y.."\\", true, true, false, true, nil);
else
Dialog.Message("انتبة", "يجب التحديد", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

[/HTML]

وهو يعمل جيدا

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

الكود
[HTML] num = ListBox.GetSelected("ListBox1");
if num~=nil then
SONG = ListBox.GetItemData("ListBox1", num[1]);
y = ListBox.GetItemText("ListBox1", num[1]);
t = Dialog.FolderBrowse(": من فضلك قم بتحديد مكان الحفظ للملف ", _DesktopFolder);
full_name = Dialog.Input("Welcome", "Please enter your full name:",y);
--StatusDlg.Show(MB_ICONNONE, false);
Folder.Create(t.."\\"..full_name);
TextFile.WriteFromString(t.."\\"..full_name.."\\". .Paragraph.GetText("Paragraph1")..".txt", RichText.GetText("RichText1", false), false);
File.Copy(SONG, t.."\\"..full_name, true, true, false, true, copy);
--File.Copy(result.."\\*.*", t.."\\"..name, true, true, false, true, copy);
else
Dialog.Message("انتبة", "يجب التحديد", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
[/HTML]اين الخلل

بارك الله فيكم جميعا على سعت صدركم وصبركم على تعليمنا

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

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

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك