Ascii Code

[admin0]

مين حاب يعمل خير...
عندي مشكله حلوه .....

بدي جملة update تعدل بيانات جدول إتغير أول
أول حرف من كل اسم إذا بادي بألف عليها همزة
لألف بدون همزه ( أ ـــــ> ا)

عن طريق الأسكي كود انغير أول حرف من الكلمات ..

[MMA]

رجاء أن يكون هذا الكود مناسب لك أخي adminO :
------------------------------------------------------


--جدول الموظف--
Create Table Emp
(
Enumber VarChar2(10),
Ename VarChar2(50)
)
/

--إدراج السجلات المناسبة--
Insert Into Emp Values('1','أحمد')
/
Insert Into Emp Values('2','مريم')
/
Insert Into Emp Values('3','أمير')
/

--التعديل داخل الجدول--
Create Or Replace Procedure Update_EMP
As
X VarChar2(1);
Begin
Update Emp
Set Ename = Replace(Ename,'أ','ا')
Where SubStr(Ename,1,1)='أ';
End;
/

--إستدعاء البرنامج--
Execute Update_Emp
/

[MMA]

<H1>بسم الله الرحمن الرحيم</H1>


إخواني أعضاء المنتدي الكرام ،

كل عام وأنتم بخير



فـي الحقيقة أنــا أرفقـت مـع رسالتي هـذه كتابين يختصان بلغة SQL و PL/SQL ،
هذين الكتابين ليس هــي كتب تعليمية بل إنها كتب مختصرة عن جميع أوامر أوراكل
سواء للغة SQL أو PL/SQL .


كمـا إنها تعتبــر الكتب الشخصية الخاصة بي ، وهــي ناتج ما قمت بتجميعة طوال
الفترة السابقة من هذا المنتدي ومنتديات أخري مثـل ( الفريق العربي للبرمجيات
- منتدي الإبداع الإسلامي - محيط - .... الي آخرة).


أما بانسبة لل Application فأنا لا أصمـم واجهات التعامل ســواء التقاريــر أو
التعريفات إلا مـن خال VB .


أتمني أن تنال إعجابكم

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

وكل عام وأنتم بخير

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

[MMA]

آسف الموضوع ليس في مانة الصحيح

[hobaa]

ممكن تعمل cursor و تظبط الكود التالى 
declare
 nem varchar2(100);
 x varchar2(100);
 d varchar2(100);
begin
 if :txt_table is not null then
   FOR I IN 1..LENGTH(:txt_table) LOOP
     nem:=SUBSTR(:txt_table,I,1);
       for j in 1..i loop
         if nem ='C'then
           nem:=Replace(nem,'C','a');
         end if;
         if nem ='E'then
           nem:=Replace(nem,'E','b');
         end if;
         if nem ='E'then
           nem:=Replace(nem,'E','c');
         end if;
         x:=nem;
       end loop;
        d:=d||x;
   END LOOP;
   :txt:=d;
 end if;
end;
و انشاء الله تشتغل
و انا تحت امرك

ايهاب وجدى