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

[محمد بن أحمد أبو حذيفة]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

الملف المرفق موجود

شرح الملف

أنا اشغل ملف 3gp من ليست بوكس وعند تحديده يظهر عنوانه في Paragraph1

في نفس الوقت وأنا استمع أقوم بتفريغ المحاضرة في RichText1


المطلوب

توجد أزرار للتعامل مع التفريغ منها حفظ التفريغ
1- أريد أن يحفظ هذا الزر التفريغ في الأسطوانة بحيث يأخذ اسم الحفظ من Paragraph1
2- عند تحديد ملف من اليست بوكس يستدعي التفريغ أن وجد ويفتحه في RichText1
3- أريد زر يحفظ المحدد من اليست بوكس مع التفريغ الخاص به أن وجد في مجدل يأخذ اسمه منParagraph1






الملف المفتوح (https://up.top4top.net/downloadf-601391tw1-zip.html)


أسال الله التوفيق للجميع


ومعذرة على الإطالة

[ثامر أبو بلقيس]

ارفع الملف المفتوح جيدا ليحاول معك الزملاء :abc_051:

[محمد بن أحمد أبو حذيفة]

ارفع الملف المفتوح جيدا ليحاول معك الزملاء :abc_051:

بارك الله فيك
ماهو الخلل الموجود في الملف

[محمد بن أحمد أبو حذيفة]

تم تدراك الخطا


رابط جديد (http://3rbup.com/0c8a4c4a1c1209d9)

[ياسرهتهت]

تم تدراك الخطا


رابط جديد (http://3rbup.com/0c8a4c4a1c1209d9)

--------------------------------
بسم الله الرحمن الرحيم
اخي العزيز نفس المشكله
الرابط الاول لا يفتح وكنت اعتقد المشكله عندي فقط
الرابط الثاني ايضا لا يحمل ......؟؟؟؟؟؟
موفق بإذن الله ... لك مني أجمل تحية .

[عبود عبود]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته


توجد أزرار للتعامل مع التفريغ منها حفظ التفريغ



وعليكم السلام ورحمة الله وبركاته

مش فاهم يعنى إية التعامل مع التفريغ يعنى إية كلمة التفريغ ؟

أما بالنسبة لإمكانية الحفظ بالإسم الذى يظهر فى البراجراف فيمكنك إستبدال الكود الموجود فى الزر حفظ بالكود التالى :

--
--ÍÝÙ ãáÝ Ýí ÇáÌåÇÒ
result = Dialog.FileBrowse(false, "Locate File", _DesktopFolder, "All Files (*.rtf)|*.rtf|", Paragraph.GetText("Paragraph1"), "rtf", false, false);
if result~="CANCEL" then
RichText.SaveToFile("RichText1", result[1]);
end

[محمد بن أحمد أبو حذيفة]

--------------------------------
بسم الله الرحمن الرحيم
اخي العزيز نفس المشكله
الرابط الاول لا يفتح وكنت اعتقد المشكله عندي فقط
الرابط الثاني ايضا لا يحمل ......؟؟؟؟؟؟
موفق بإذن الله ... لك مني أجمل تحية .

بارك الله فيك

جرب هذا

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

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

[محمد بن أحمد أبو حذيفة]

وعليكم السلام ورحمة الله وبركاته

مش فاهم يعنى إية التعامل مع التفريغ يعنى إية كلمة التفريغ ؟

أما بالنسبة لإمكانية الحفظ بالإسم الذى يظهر فى البراجراف فيمكنك إستبدال الكود الموجود فى الزر حفظ بالكود التالى :

--
--ÍÝÙ ãáÝ Ýí ÇáÌåÇÒ
result = dialog.filebrowse(false, "locate file", _desktopfolder, "all files (*.rtf)|*.rtf|", paragraph.gettext("paragraph1"), "rtf", false, false);
if result~="cancel" then
richtext.savetofile("richtext1", result[1]);
end



بارك الله فيك اخي عبود

هل ممكن ان نجعل الحفظ في مجلد doc الخاص بالاسطوانة لانه سيتم استدعائه فيما بعد

[محمد بن أحمد أبو حذيفة]

استعملت هذا الكود
حفظ ملف في مجلد DOC



--حفظ ملف في مجلد DOC
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

[ياسرهتهت]

بارك الله فيك

جرب هذا

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

واعلمني لاظيف للموضوع
---------------------
بسم الله الرحمن الرحيم
لا يعمل اخي الكريم
موفق بإذن الله ... لك مني أجمل تحية .

[محمد بن أحمد أبو حذيفة]

واستعملت هذا الكود لاستدعاء ملف التفريغ من مجدل DOC

result = Dialog.FileBrowse(true, "Locate File", "AutoPlay\\Docs", "All Files (*.rtf)|*.rtf|", SONG, "rtf", false, false);
RichText.LoadFromFile("RichText1", result[1]);

لكن هنا المستخدم هو من يبحث ويحدد ملف التفريغ من المجلد DOC

فهل ممكن ان نجعله يحدد اليا عند التحديد من الليست بوكس

[محمد بن أحمد أبو حذيفة]

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

جرب هذا واخبرني

http://up.ibda3gate.com/do.php?id=8361

[ياسرهتهت]

جرب هذا واخبرني

http://up.ibda3gate.com/do.php?id=8361


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

[محمد بن أحمد أبو حذيفة]

جرب هذا هو الاخير وبه بعض التعديلات

1- حفظ التفريغ مباشرة في مجلد doc بالاسم المطلوب

استدعاء التفريغ المطلوب اليا

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

http://3rbup.com/9623498d0da2073b

[محمد بن أحمد أبو حذيفة]

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

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

--ÍÝÙ ãáÝ Ýí ÇáÌåÇÒ


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

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

[محمد بن أحمد أبو حذيفة]

وصلت الى هذا

--ÍÝÙ ãáÝ Ýí ÇáÌåÇÒ
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


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

[ياسرهتهت]

وصلت الى هذا

--ÍÝÙ ãáÝ Ýí ÇáÌåÇÒ
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


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

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

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

--ÍÝÙ ãáÝ Ýí ÇáÌåÇÒ
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


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

[محمد بن أحمد أبو حذيفة]

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

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

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

--ÍÝÙ ãáÝ Ýí ÇáÌåÇÒ
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


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



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

[ياسرهتهت]

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

[محمد بن أحمد أبو حذيفة]

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

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

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

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

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

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

[ثامر أبو بلقيس]

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

[فرح صالحي]

بارك الله فيك

جرب هذا

https://up.top4top.net/downloadf-601phfh61-zip.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

[محمد بن أحمد أبو حذيفة]

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

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

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

[ثامر أبو بلقيس]

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

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

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

[محمد بن أحمد أبو حذيفة]

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

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

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

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

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

[ياسرهتهت]

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

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

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

[ثامر أبو بلقيس]

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

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

جرب الان هذا الكود في زر حمل الشريط الحـــالي
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

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

[ثامر أبو بلقيس]

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

لكن احذف السطر الأول و الثاني المكتبوبين في التايمر
هاهما سبب المشاكل :abc_088:
File = String.SplitPath("CD_Root\AutoPlay\Audio");
Label.SetText("status", "Now Playing: "..File.Filename);


و اكتب الكود السابق في زر تحميل شريط الحالي
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

[محمد بن أحمد أبو حذيفة]

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

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

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



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


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



وهو يعمل جيدا

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

الكود
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
اين الخلل

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

[محمد بن أحمد أبو حذيفة]

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

لكن احذف السطر الأول و الثاني المكتبوبين في التايمر
هاهما سبب المشاكل :abc_088:
File = String.SplitPath("CD_Root\AutoPlay\Audio");
Label.SetText("status", "Now Playing: "..File.Filename);
و اكتب الكود السابق في زر تحميل شريط الحالي
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


بارك الله فيك ورحمك الكود يعمل بشكل جيد لكن اردت التعديل عليه لاجعل المستخدم يحدد مكان حفظ المجلد لكن وقع معي خلل
http://www.abc4web.net/vb/showpost.php?p=313691&postcount=30

[ثامر أبو بلقيس]

عد لآخر الصفحة السابقة وجرب الكود ثانية

موفق:abc_138:

[محمد بن أحمد أبو حذيفة]

عد لآخر الصفحة السابقة وجرب الكود ثانية

موفق:abc_138:


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

الملف المفتوح الاخير (https://www.mediafire.com/file/njlqdwawoziiudw/13.rar)

[ثامر أبو بلقيس]

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

الملف المفتوح الاخير (https://www.mediafire.com/file/njlqdwawoziiudw/13.rar)

لم أفهم وأجد صعوبة في بناء كود فكرته قد تعرفها أنت أفضل من غيرك (قربك لبيئة العمل تتيح ذلك)

قد يفهم أحد الزملاء الطلب ويجيب إن شاء الله :abc_139:

[محمد بن أحمد أبو حذيفة]

لم أفهم وأجد صعوبة في بناء كود فكرته قد تعرفها أنت أفضل من غيرك (قربك لبيئة العمل تتيح ذلك)

قد يفهم أحد الزملاء الطلب ويجيب إن شاء الله :abc_139:


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

عند تحديد ملق صوتي مناليست بوكس مثلا رقم واحد تتم قرائت في الميديا بلاير
بالمقابل يوجد لنفس الملف الوصتي رقم واحد ملف نصي يعرض في البراقراف

ايضا يوجد ملف صوتي رقم 2 نححد وتتم قرائته في الميديا بلاير
لكن لا يوجد له ملف نصي لنعرضه

فهل ممكن في هذه الحالة عرض ملف نصي افتراضي

[ياسرهتهت]

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


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



وهو يعمل جيدا

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

الكود
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
اين الخلل

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

ضع هذا في زر الحفظ

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);
msar = Dialog.FolderBrowse("Please select a folder:", "");

Folder.Create(msar..full_name);
TextFile.WriteFromString(msar..full_name.."\\"..Paragraph.GetText("Paragraph1")..".txt", RichText.GetText("RichText1", false), false);
File.Copy(SONG, msar..y.."\\", true, true, false, true, nil);
else
Dialog.Message("ÇäÊÈÉ", "íÌÈ ÇáÊÍÏíÏ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

----------
فقط تم اضافة مربع حوار لتحديد مجلد ليكون الحفظ فيه وكذا يكون المستخدم هو من حدد المسار ( msar )

------------
اما بخصوص الملف الافتراضي نضع في Docs نسمية ( الافتراضي )
ويصبح الكود في اليست بكس هكذ

num = ListBox.GetSelected("ListBox1");
SONG = ListBox.GetItemData("ListBox1", num[1]);
MediaPlayer.Load("media_player", SONG);

Button.SetVisible("Btn_Pause", true);
Button.SetVisible("Btn_Play", false);
--Page.StartTimer(1);

Progress.SetRange("Progress0", 0, Audio.GetLength(CHANNEL_BACKGROUND));
Page.StartTimer(500,1)

--ÇÓÊÏÚÇÁ ÇáÇãÓ ÇáãÍÏÏ Ýí áíÓÊ ÈæßÓ Çááì ÈÑÞÑÇÝ
num = ListBox.GetSelected("ListBox1");
--SONG = ListBox.GetItemData("ListBox1", num[1]);
SONG = ListBox.GetItemText("ListBox1", num[1]);

Paragraph.SetText("Paragraph1", SONG);
-------------------------
tfreg = File.DoesExist("AutoPlay\\Docs\\"..SONG..".rtf");
if tfreg == false then
RichText.LoadFromFile("RichText1", "AutoPlay\\Docs\\ÇáÇÝÊÑÇÖí.rtf");
else

RichText.LoadFromFile("RichText1", "AutoPlay\\Docs\\"..SONG..".rtf");
end
----
يعني ان وجد ملف التفريغ يقتح وان لم يوجد يفتح الافتراضي
وفي حالة الحفظ نفس الشي

----------------------
وهذا ملفك الاخير بعد التعديل

http://www.mediafire.com/file/80i593ibp2kcc1y/1-13%282%29.rar

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

[محمد بن أحمد أبو حذيفة]

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

ضع هذا في زر الحفظ

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);
msar = dialog.folderbrowse("please select a folder:", "");

folder.create(msar..full_name);
textfile.writefromstring(msar..full_name.."\\"..paragraph.gettext("paragraph1")..".txt", richtext.gettext("richtext1", false), false);
file.copy(song, msar..y.."\\", true, true, false, true, nil);
else
dialog.message("ÇäÊÈÉ", "íÌÈ ÇáÊÍÏíÏ", mb_ok, mb_iconinformation, mb_defbutton1);
end----------
فقط تم اضافة مربع حوار لتحديد مجلد ليكون الحفظ فيه وكذا يكون المستخدم هو من حدد المسار ( msar )

------------
اما بخصوص الملف الافتراضي نضع في docs نسمية ( الافتراضي )
ويصبح الكود في اليست بكس هكذ

num = listbox.getselected("listbox1");
song = listbox.getitemdata("listbox1", num[1]);
mediaplayer.load("media_player", song);

button.setvisible("btn_pause", true);
button.setvisible("btn_play", false);
--page.starttimer(1);

progress.setrange("progress0", 0, audio.getlength(channel_background));
page.starttimer(500,1)

--ÇÓÊÏÚÇÁ ÇáÇãÓ ÇáãÍÏÏ Ýí áíÓÊ ÈæßÓ Çááì ÈÑÞÑÇÝ
num = listbox.getselected("listbox1");
--song = listbox.getitemdata("listbox1", num[1]);
song = listbox.getitemtext("listbox1", num[1]);

paragraph.settext("paragraph1", song);
-------------------------
tfreg = file.doesexist("autoplay\\docs\\"..song..".rtf");
if tfreg == false then
richtext.loadfromfile("richtext1", "autoplay\\docs\\ÇáÇÝÊÑÇÖí.rtf");
else

richtext.loadfromfile("richtext1", "autoplay\\docs\\"..song..".rtf");
end----
يعني ان وجد ملف التفريغ يقتح وان لم يوجد يفتح الافتراضي
وفي حالة الحفظ نفس الشي

----------------------
وهذا ملفك الاخير بعد التعديل

http://www.mediafire.com/file/80i593ibp2kcc1y/1-13%282%29.rar

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




رحمك الله وغفر لك

الملف رائع
لكن الافضل في رائي ان نجعل حفظ التفريغ في مجلد داخل التجميعة ليتم استدعائه

بارك الله فيك

[محمد بن أحمد أبو حذيفة]

ان لم اثقل عليكم اريد المزيد

هل ممكن ان نستبدل RichText1
بعنصر اخر يقبل التنسيق مثل الورد

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

[ياسرهتهت]

ان لم اثقل عليكم اريد المزيد

هل ممكن ان نستبدل RichText1
بعنصر اخر يقبل التنسيق مثل الورد

كذلك هل يمكن ان نجعل رسالة تنبيه عند الخورج من المشروع ان لم يتم حفظ التفريغ اذا نسي المستخدم الحفظ
---------------------------
بسم الله الرحمن الرحيم
اخي العزيز لم افهم كيف نستبدل RichText1 بالورد
لا يوجد عنصر ورد في البرنامج ؟؟؟
ممكن توضيح ؟

--------
اما عملية التنبيه بعدم الحفظ يجب ان تكون في خيارات التنقل لليست بكس
لان مجرد الانتقال من سلكشن الي اخر يمسح ما هو مكتوب RichText1

ويحل محله صاحب الاسم في التحديد

[محمد بن أحمد أبو حذيفة]

---------------------------
بسم الله الرحمن الرحيم
اخي العزيز لم افهم كيف نستبدل RichText1 بالورد
لا يوجد عنصر ورد في البرنامج ؟؟؟
ممكن توضيح ؟

--------
اما عملية التنبيه بعدم الحفظ يجب ان تكون في خيارات التنقل لليست بكس
لان مجرد الانتقال من سلكشن الي اخر يمسح ما هو مكتوب RichText1

ويحل محله صاحب الاسم في التحديد





بارك الله فيك
اقصد هل ممكن تنسيق النص RichText1 مثل برنامج الورد

أما رسالة التنبيه ففكرتك جيدة اقصد فكرة التنبيه عند الانتقال من تحديد إلي آخر
لكن ماذا لو لم ينتقل المستخدم بل قرر الخروج أليس من الضروري التنبيه عند إغلاق التجمعية أيضا

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

بارك الله فيك
اقصد هل ممكن تنسيق النص RichText1 مثل برنامج الورد

أما رسالة التنبيه ففكرتك جيدة اقصد فكرة التنبيه عند الانتقال من تحديد إلي آخر
لكن ماذا لو لم ينتقل المستخدم بل قرر الخروج أليس من الضروري التنبيه عند إغلاق التجمعية أيضا

في زر الخروج
if save == false then
Dialog.Message("","انت لم تحمل");
else
Application.Exit(0);
end

في الصقحة on show

save = false;


في زر التحميل تحت دبالوح تم التخفظ ينجاح اضف هذا السطر

save= true;

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

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

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

رحمك الله وغفر لك

الملف رائع
لكن الافضل في رائي ان نجعل حفظ التفريغ في مجلد داخل التجميعة ليتم استدعائه

بارك الله فيك

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

[محمد بن أحمد أبو حذيفة]

في زر الخروج
if save == false then
dialog.message("","انت لم تحمل");
else
application.exit(0);
endفي الصقحة on show

save = false;
في زر التحميل تحت دبالوح تم التخفظ ينجاح اضف هذا السطر

save= true;



بارك الله فيك
الكود في زر التحميل يعمل
لطن الكود في زر الخروج يظهر دائما حوار وحتى وان لم تغير في التفريغ

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

[محمد بن أحمد أبو حذيفة]

هل فكرت في ان الاسطواتة في قرص فلا يمكن التحميل في قرص
لذلك اجعل الافتراضي قي المستندات او في temps
بارك الله فيك انا احفظ العمل في مثل هذ التجميعات بصيغة
Hard drive folder

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

بارك الله فيك انا احفظ العمل في مثل هذ التجميعات بصيغة
hard drive folder

يعني انها بشكل ما موجهة للنسخ على قرص
على كل فقط وجهة نظر

[محمد بن أحمد أبو حذيفة]

يعني انها بشكل ما موجهة للنسخ على قرص
على كل فقط وجهة نظر

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

لانه في حد علمي ان هذه الطريقة الوحيد التي تساعد غي مثل هذه التجميعات

اقصد الحفظ فيها والاضافة اليها ... الخ

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

بارك الله فيك
الكود في زر التحميل يعمل
لطن الكود في زر الخروج يظهر دائما حوار وحتى وان لم تغير في التفريغ

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

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

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

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

لانه في حد علمي ان هذه الطريقة الوحيد التي تساعد غي مثل هذه التجميعات

اقصد الحفظ فيها والاضافة اليها ... الخ

لم افهم ........الصيغة

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

اذا اردت اجباره على الحفظ اضف الى اليسبوكس التالي

Page.ClickObject("Button15")

[محمد بن أحمد أبو حذيفة]

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

اما لو اني ضغط على زر الخروج فانه يظهر حوار في كل الحالات

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

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

اما لو اني ضغط على زر الخروج فانه يظهر حوار في كل الحالات

استعمل خاصية الحفظ كالتي في الاوفيس اي يعد 5 ثواني يتم الحفظ في ملف ما
وهنا استمعل التايمر بعد 5 ثواني يتم ضغط زر الحفظ اليا

[محمد بن أحمد أبو حذيفة]

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

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

فكرة رائعة تقصد ان يتم الحفظ اليا دون تدخل منك سواء نسيت ام لا

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

[محمد بن أحمد أبو حذيفة]

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


لم افهم مقصدك بارك الله فيك

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

لم افهم مقصدك بارك الله فيك

بمجرد ان يشغل البرنامج بتشء في المستندتن عنده ماف تسميه ما تشاء

ثم بمجرد ان يختار من اليسبوكس عنصر ما سيحمل البرنامج الملف الصوتي و المكتوب اليه .... دون تدخل من المستخدم

في زر الخروج يغلق لابرنامج و يفتح ملف التحميل

[محمد بن أحمد أبو حذيفة]

بمجرد ان يشغل البرنامج بتشء في المستندتن عنده ماف تسميه ما تشاء

ثم بمجرد ان يختار من اليسبوكس عنصر ما سيحمل البرنامج الملف الصوتي و المكتوب اليه .... دون تدخل من المستخدم

في زر الخروج يغلق لابرنامج و يفتح ملف التحميل

بارك الله فيك لكن الفكرة غير ذلك

ليس دائما الجاء الى التحميل

مثلا انا عندي التجميعة وسالني احد الاخوى عن فتوى بحثت فوجها داخل التجميعة

هنا ياتي دور زر التحميل احمل له الصوت والنص ليكون مطمان

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

بارك الله فيك لكن الفكرة غير ذلك

ليس دائما الجاء الى التحميل

مثلا انا عندي التجميعة وسالني احد الاخوى عن فتوى بحثت فوجها داخل التجميعة

هنا ياتي دور زر التحميل احمل له الصوت والنص ليكون مطمان

ضكرا على التوضيح

[محمد بن أحمد أبو حذيفة]

السلام عليكم ورحمة الله وبركاته
بارك الله فيكم جميعا

[محمد بن أحمد أبو حذيفة]

بسم الله الرحمن الرحيم
هل ممكن أكواد توسيط المحاذات للمين واليسار في عنصر RichText

[ثامر أبو بلقيس]

بسم الله الرحمن الرحيم
هل ممكن أكواد توسيط المحاذات للمين واليسار في عنصر RichText

01 - محاذاة لليمين
RichText.SetParagraphFormat("RichText1", {Alignment = PFA_RIGHT});
02 - توسيط
RichText.SetParagraphFormat("RichText1", {Alignment = PFA_CENTER});
03 - محاذاة لليسار
RichText.SetParagraphFormat("RichText1", {Alignment = PFA_LEFT});

موفق :abc_138:

[محمد بن أحمد أبو حذيفة]

01 - محاذاة لليمين
RichText.SetParagraphFormat("RichText1", {Alignment = PFA_RIGHT});02 - توسيط
RichText.SetParagraphFormat("RichText1", {Alignment = PFA_CENTER});03 - محاذاة لليسار
RichText.SetParagraphFormat("RichText1", {Alignment = PFA_LEFT});موفق :abc_138:


بارك الله فيك ورحمك
كنت بصدد السؤال عن تلوين المحدد في RichText1 لكن وجدته هنا ولي فيه استغسار

http://www.abc4web.net/vb/showpost.php?p=313787&postcount=18

[ثامر أبو بلقيس]

بارك الله فيك ورحمك
كنت بصدد السؤال عن تلوين المحدد في RichText1 لكن وجدته هنا ولي فيه استغسار

http://www.abc4web.net/vb/showpost.php?p=313787&postcount=18

RichText.SetSelectionFormat("RichText1", {TextColor = Math.HexColorToNumber(16777215)}, false);

[ثامر أبو بلقيس]

و كنصيحة استعمل البليجين ColorButton

و في الحدث on selectclr أكتب
RichText.SetSelectionFormat("RichText1", {TextColor = e_Color}, false);

[محمد بن أحمد أبو حذيفة]

richtext.setselectionformat("richtext1", {textcolor = math.hexcolortonumber(16777215)}, false);


بارك الله فيك
الكود الاول لم افهمه بعد


و كنصيحة استعمل البليجين colorbutton

و في الحدث on selectclr أكتب
richtext.setselectionformat("richtext1", {textcolor = e_color}, false);



رائع هذا ماكنت ابحث عنه كل شيئ تمام

لكن الكود الاول لم افهمه

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

RichText.SetSelectionFormat("RichText1", {TextColor = Math.HexColorToNumber(16777215)}, false);


-SetSelectionFormat : يعني النص المحدد بالماووس
- TextColor : لون النص
- Math.HexColorToNumber(16777215) : اللون الذي تريده للنص المحدد و ليس كل النص

هذا الكود تستعمله لما انت تحدد النص من richtext ثم تضغط الزر سيتغير لونه و ليس كل النص الا اذا حددته كله

[محمد بن أحمد أبو حذيفة]

RichText.SetSelectionFormat("RichText1", {TextColor = Math.HexColorToNumber(16777215)}, false);
-SetSelectionFormat : يعني النص المحدد بالماووس
- TextColor : لون النص
- Math.HexColorToNumber(16777215) : اللون الذي تريده للنص المحدد و ليس كل النص

هذا الكود تستعمله لما انت تحدد النص من richtext ثم تضغط الزر سيتغير لونه و ليس كل النص الا اذا حددته كله


بارك الله فيك

لكن كيف نتعامل مع نفس الخاصية RichText.SetSelectionFormat

لزيادة حجم النص

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

بارك الله فيك

لكن كيف نتعامل مع نفس الخاصية RichText.SetSelectionFormat

لزيادة حجم النص

مثال ضع زر فيه علامة A+ ...اي لزيادة الحجم و ضع الكود التالي

t = RichText.GetSelectionFormat("RichText1", false).Height ;
RichText.SetSelectionFormat("RichText1", {Height = t +10} , false);




كلما ضغط يزيد الحجم ب 10 و يمكن ان تضع زر بجانبه سمه مثلا A- يقوم بالعكس و استبدل + ب -

[محمد بن أحمد أبو حذيفة]

مثال ضع زر فيه علامة A+ ...اي لزيادة الحجم و ضع الكود التالي

t = RichText.GetSelectionFormat("RichText1", false).Height ;
RichText.SetSelectionFormat("RichText1", {Height = t +10} , false);


كلما ضغط يزيد الحجم ب 10 و يمكن ان تضع زر بجانبه سمه مثلا A- يقوم بالعكس و استبدل + ب -


بارك الله فيك يعمل بشكل جيد
هل ممكن انشترط التحديد في RichText ليعمل الزر

اقصد الشرط if

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

بارك الله فيك يعمل بشكل جيد
هل ممكن انشترط التحديد في RichText ليعمل الزر

اقصد الشرط if

لماذا لا تضع تعليق بسيط بمجرد ان يمرر الماووس على الزر يظهر وهو مثلا ( حدد لتكبير الخط ) وهذا في خصائص الزر Attrubites ثم في Tooltip اكتب في الخانة التعليق و فقط

[محمد بن أحمد أبو حذيفة]

لماذا لا تضع تعليق بسيط بمجرد ان يمرر الماووس على الزر يظهر وهو مثلا ( حدد لتكبير الخط ) وهذا في خصائص الزر attrubites ثم في tooltip اكتب في الخانة التعليق و فقط

بارك الله فيك

فعلا ان اضع الامر كما قلت

رحمك الله وكل من شارك لاخراج هذ العمل واسال الله ان يجزيكم خير الجزاء
وان يغفر لكم ولاهليكم ويسكنكم الفردوس الاعلى
امين

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

بارك الله فيك

فعلا ان اضع الامر كما قلت

رحمك الله وكل من شارك لاخراج هذ العمل واسال الله ان يجزيكم خير الجزاء
وان يغفر لكم ولاهليكم ويسكنكم الفردوس الاعلى
امين

تقبل الله منا و منكم