حذف اخر حرف من النص

[القنـاص المصرى]

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

[رعد الحواسيب]

input_string = Input.GetText("Input1");
last_letter = String.Right(input_string, 1);
finish = String.Replace(input_string, last_letter, "x", false);


بخصوص الباقي ستجد موضوعين لأخي الفاضل أبو بلقيس في المواضيع الأخيرة ..

وفقك الله لكل خير

[رعد الحواسيب]

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

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

شكرا أخي رعد أحببت أن أعيد كتابة الكود الذي
تفضلت به
input_string = Input.GetText("Input1");
last_letter = String.Right(input_string, 1);
finish = String.Replace(input_string, last_letter, "", false);
result = Dialog.Message("Notice", finish);

ملاحظة : يتم الحذف حتى على الكلمات باللغة العربية

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

و نستطيع حذف آخر كلمة بتوظيف مايلي :
sSeparator = " ";
tWords = {};
nEntries = 1;
nEntriesStart = 1;
sOutput = "";
nSeparator = 0;
sInput = Input.GetText("Input1");
nInputLength = String.Length(sInput);
nSeparator = String.ReverseFind(sInput, sSeparator, false);
sWord = String.Right(sInput, (nInputLength-nSeparator));

result = String.Replace(sInput, sWord, "", false);
Input.SetText("Input2", result);

سلام:abc_152:

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

input_string = Input.GetText("Input1");
last_letter = String.Right(input_string, 1);
finish = String.Replace(input_string, last_letter, "x", false);


بخصوص الباقي ستجد موضوعين لأخي الفاضل أبو بلقيس في المواضيع الأخيرة ..

وفقك الله لكل خير

عدت للكود المرسل أخي رعد لاحظ أنه لايحذف آخر حرف
فقط بل يحذف كل الحروف أو الأرقام المشابهة للأخير مثلا
معلم تصبح عل
455484 تصبح 558
هل من جديد لإكمال هذه النقطة
حتى يحذف الأخير فقط :abc_088:
لي رجوع للموضوع :abc_138:

[رعد الحواسيب]

جزاك الله خيرا :abc_022:، والله لم انتبه لهذا بالمرة فقد كنت مستعجلا ورأيت السؤال فكانت الإجابة ..

هذا الكود بعد التعديل :

input_string = Input.GetText("Input1");
length = String.Length(input_string);

my_table = {}

for i = 0 , length do

result = String.Mid(input_string, i, 1);

Table.Insert(my_table, i, result);

end

last_letter = my_table[length]

Table.Remove(my_table, length);

for i,v in pairs (my_table) do

finish = Input.GetText("Input2");
Input.SetText("Input2", finish..v);

end

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

جميل أخي رعد
إليك بهذا الكود القياسي و لاحظ الأرقام جيدا فهي تتحكم
في عدد الحروف و الاتجاه فهمني أخي
raad = Input.GetText("Input1");
Input.SetText("Input2", string.sub(raad, 2, -1));

اعمل بهذا الكود في الحالات المشابهة لتفادي التعب

[أبو فارس]

أشكر كل من ساهم بالإجابة

وأتمنى التوفيق للجميع

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

و هذا كود لو أردنا استخلاص الحرف الأخير
و مسح الباقي أي العكس
تحتاج لادرا Input و Label
ClickHere=Input.GetText("Input1");
result = String.Length(ClickHere);
result7 = String.Mid(ClickHere, result, -1);
Label.SetText("Label1", result7);
سلامي

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

حذف اخر حرف من النص:
Dialog.Message("Notice",String.Mid("thameur", 1, String.Length("thameur")-1));

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

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

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