تسجيل الدخول

مشاهدة النسخة كاملة : كود لنسخ الموجود في input


عمر والي
02-08-2016, 05:12 PM
مساء الخيرودائما بخير

هذا الكود لنسخ الموجود في input .وهو input1
ويتم النسخ في ملف text حيثما تريد أنت؟؟؟؟
mohmed = Input.GetText("Input1");
path_save = Dialog.FileBrowse(false, "اكتب اسم الملف فقط", _DesktopFolder, "Files (.text)|*.txt|", "", "", false, false);
TextFile.WriteFromString(path_save[1], mohhmed, false);

فهل أستطيع إضافة input2،،،و..input3...و input4 في هذا الكود ...بحيث أستطيع لصقهم جميعا..شكرا جزيلا:abc_028:

ربيع
02-08-2016, 05:44 PM
نعم تستطيع فعل ذلك بسهولة :abc_152:

عمر والي
02-08-2016, 06:00 PM
نعم تستطيع فعل ذلك بسهولة :abc_152:

كيف ذلك!!!!!
كذلك..
mohmed = Input.GetText("Input1");
ahmed = Input.GetText("Input2");
ali = Input.GetText("Input3");
path_save = Dialog.FileBrowse(false, "اكتب اسم الملف فقط", _DesktopFolder, "Files (.text)|*.txt|", "", "", false, false);
TextFile.WriteFromString(path_save[1], mohhmed,ahmed,ali, false);

ربيع
02-08-2016, 06:15 PM
rabie_r_b_t=""
for i=1,3 do
rabie_r_b_t=rabie_r_b_t..Input.GetText("Input"..i).."\r\n"
end
path_save = Dialog.FileBrowse(false, "اكتب اسم الملف فقط", _DesktopFolder, "Files (.text)|*.txt|", "", "", false, false);
TextFile.WriteFromString(path_save[1], rabie_r_b_t, false);


ممكن نقرأ ردك!:abc_070:

عمر والي
02-08-2016, 07:06 PM
حاولت لكن فشلت ...فالأنبوتات عندي 8 أنبوتات وأريد فقط نسخ ثلاثةأنبوتات فقط..الأول وإسمه:first..والثاني إسمه : scend..والثالث third.
حاولت إستبدال الحروف الموجوده بالكود بهذه المسميات لكن فشلت

ربيع
02-08-2016, 08:12 PM
path_save = Dialog.FileBrowse(false, "اكتب اسم الملف فقط", _DesktopFolder, "Files (.text)|*.txt|", "", "", false, false);
TextFile.WriteFromString(path_save[1], Input.GetText("first").."\r\n"..Input.GetText("scend").."\r\n"..Input.GetText("third"), false);

عمر والي
02-08-2016, 08:22 PM
شكرا جدا أخي العزيز ...جعله الله في ميزان حساناتك :abc_138:

عمر والي
03-08-2016, 08:28 PM
path_save = Dialog.FileBrowse(false, "اكتب اسم الملف فقط", _DesktopFolder, "Files (.text)|*.txt|", "", "", false, false);
TextFile.WriteFromString(path_save[1], Input.GetText("first").."\r\n"..Input.GetText("scend").."\r\n"..Input.GetText("third"), false);



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

ربيع
03-08-2016, 09:18 PM
لا أعـــــرف :abc_139:

عبد الهادي بهاب
03-08-2016, 10:25 PM
عذرا آخي ...هل يمكن الإستعانه بزر عند الضغط عليه يعمل copy للأنبوتات الثلاثة...بحيث أقوم بلصقهم يدويا بملف وورد أو تكست بنفسي..ولك ألف شكر وتحيه

يوجد اجابة لاستخدام خاصية copy في هذا الموضوع
مثلا يمكنك استخدام اضافة clipboard

http://www.abc4web.net/vb/showthread.php?t=33792

عمر والي
03-08-2016, 10:52 PM
يوجد اجابة لاستخدام خاصية copy في هذا الموضوع
مثلا يمكنك استخدام اضافة clipboard

http://www.abc4web.net/vb/showthread.php?t=33792

هل يمكن تطبيق ما حدث في الليست بوكس على الأنبوت؟؟؟؟؟؟

عبد الهادي بهاب
04-08-2016, 01:59 AM
هل يمكن تطبيق ما حدث في الليست بوكس على الأنبوت؟؟؟؟؟؟

على السريع .......في حالة
نفرض لديك 3 ابنوتات 1.2.3 ......فعل الاضافة Clipboard

و اجعل الكود التالي في زر النسخ
DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)

txt1 = Input.GetText("Input1");
txt2 = Input.GetText("Input2");
txt3 = Input.GetText("Input3");
Clipboard.CopyText(txt1 .."\r\n"..txt2 .."\r\n"..txt3);

ثم الصق في الوورد او الاكسل

عمر والي
04-08-2016, 09:45 PM
سلمت يدااااااااااااااااااااااا ااااااااااااااااااااااااا ااااااااااااااااااااااااا ااااااااااااااااااااااااا ااااااك:abc_050:

رانيا حسن
07-08-2016, 11:01 PM
شكرا جزيلا البرنامج يعمل بشكل جيد جدا ولكن هل من الممكن وضع طريقة بحيث يفتح ملف الورد او التكست وينسخ النص تلقائياً

عبد الهادي بهاب
07-08-2016, 11:12 PM
شكرا جزيلا البرنامج يعمل بشكل جيد جدا ولكن هل من الممكن وضع طريقة بحيث يفتح ملف الورد او التكست وينسخ النص تلقائياً



تابعي موضوع التكتس و النسخ فيه اكثر من اجابة و من طريقة

http://www.abc4web.net/vb/showthread.php?t=33792

بالتوفيق