Jump to content
بحث مخصص من جوجل فى أوفيسنا
Custom Search
محمد احمد لطفى

دالة الاستبدال و تغيير حرف بحرف أخر

Recommended Posts

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

فى هذا المثال عندما اريد تغير أخر حرف فى الكلمة 
مثلا ي تتغير الى ى 

T = Replace(T, "ي ", "ى ")

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

وجزاكم الله خيرا

 

Update.mdb

Share this post


Link to post
Share on other sites

ضع هذا في الاستعلام لديك ......

B: Replace([test];"ي";"ى")

 

  • Thanks 2

Share this post


Link to post
Share on other sites

مشكلة هذا الاستخدام تغير كل اسم فيه ي مثلا أمين يجعلها أمىن وهكذا ....... فاحذر منها ؟؟؟؟؟؟؟؟؟؟؟؟

  • Thanks 2

Share this post


Link to post
Share on other sites
29 دقائق مضت, Barna said:

ضع هذا في الاستعلام لديك ......


B: Replace([test];"ي";"ى")

 

 

23 دقائق مضت, Barna said:

مشكلة هذا الاستخدام تغير كل اسم فيه ي مثلا أمين يجعلها أمىن وهكذا ....... فاحذر منها ؟؟؟؟؟؟؟؟؟؟؟؟

أشكرك أستاذى و لكن الحرف المطلوب تغييره فى اخر الجمله أو الكلمه هو ي يتغير الى ى

Share this post


Link to post
Share on other sites
8 دقائق مضت, عبد الله قدور said:

السلام عليكم

اتمنى ان يكون هذا الحل يكفي بالغرضUpdate.mdb

 

ماذا لو كان الاسم علي ......

  • Thanks 1

Share this post


Link to post
Share on other sites

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

للاسف أنا لا أملك هذه الكود

  • Thanks 1

Share this post


Link to post
Share on other sites

شكر لك ستاذى @عبد الله قدور
 

3 ساعات مضت, عبد الله قدور said:

السلام عليكم

اتمنى ان يكون هذا الحل يكفي بالغرضUpdate.mdb

 

Function C_Word(T As String) As String
If Right(T, 1) = "ي" Then
T = Replace(T, "ي", "ى")
End If
T = Replace(T, "ي", "ى")
C_Word = T

End Function

هكذا يعمل الكود على كل الكلمات جزاك الله خيرا

Share this post


Link to post
Share on other sites
3 ساعات مضت, Barna said:

ماذا لو كان الاسم علي ......

نستخدم الكود بدون شرط
 

Function C_Word(T As String) As String
If Right(T, 1) = "ي" Then
T = Replace(T, "ي", "ى")
End If
T = Replace(T, "ي", "ى")
C_Word = T

End Function

 

Share this post


Link to post
Share on other sites

السلام عليكم

لو كان عند حقل B في جدول TB1

وكان نوع هذا الحقل رقم 

كيف يمكن ان استبدل الرقم 9 برقم 3  دفعه واحدة في الجدول بحيث يكون حدث في النموذج 

 

بالتوفيق إن شاء الله

 

Share this post


Link to post
Share on other sites
19 دقائق مضت, ابو محمد 316 said:

السلام عليكم

لو كان عند حقل B في جدول TB1

وكان نوع هذا الحقل رقم 

كيف يمكن ان استبدل الرقم 9 برقم 3  دفعه واحدة في الجدول بحيث يكون حدث في النموذج 

 

بالتوفيق إن شاء الله

 

يمكن عمل ذلك من خلال الاستعلام او عند اضافة سجل جديد و الله أعلم

Share this post


Link to post
Share on other sites

أستاذى @عبد الله قدور

واجهتنى مشكلة 

اذ ان بهذه الطريقة يحذف جميع الياء فى الجملة التى اخرها ياء 
مثلا عيد مصطفي تصبح عىد مصطفى

Edited by محمد احمد لطفى

Share this post


Link to post
Share on other sites
في ١٦‏/١‏/٢٠١٩ at 15:16, محمد احمد لطفى said:

أستاذى @عبد الله قدور

واجهتنى مشكلة 

اذ ان بهذه الطريقة يحذف جميع الياء فى الجملة التى اخرها ياء 
مثلا عيد مصطفي تصبح عىد مصطفى

للرفع

Share this post


Link to post
Share on other sites
في ١٨‏/١‏/٢٠١٩ at 16:26, محمد احمد لطفى said:

If Right(T, 1) = "ي" Then

End If

باستخدام الكود اذا كان اخر حرف ي 
أن يتحول هوه فقط الى ى
وجزاكم الله خيرا

 

Share this post


Link to post
Share on other sites
في ١٩‏/١‏/٢٠١٩ at 17:12, محمد احمد لطفى said:

 

 

في ١٨‏/١‏/٢٠١٩ at 16:26, محمد احمد لطفى said:

If Right(T, 1) = "ي" Then

End If

باستخدام الكود اذا كان اخر حرف ي 
أن يتحول هوه فقط الى ى
وجزاكم الله خيرا

 

Share this post


Link to post
Share on other sites
في ١٨‏/١‏/٢٠١٩ at 16:26, محمد احمد لطفى said:

If Right(T, 1) = "ي" Then

End If

باستخدام الكود اذا كان اخر حرف ي 
أن يتحول هوه فقط الى ى
وجزاكم الله خيرا

 

Share this post


Link to post
Share on other sites

السلام عليكم اخى الكريم
هل ممكن ان اتدخل بعد اذن اساتذتنا

اخى السائل ما فهمته انك تريد استبدال اخر حرف فقط فى الجملة اذا كان ي يصبح ى
بمعنى (مصطفي عيد مصطفي

تصبح 
مصطفي عيد مصطفى
 فقط اخر كلمة فى الجملة  صح كدا ؟؟

  • Thanks 1

Share this post


Link to post
Share on other sites
3 دقائق مضت, Elsayed Bn Gemy said:

السلام عليكم اخى الكريم
هل ممكن ان اتدخل بعد اذن اساتذتنا

اخى السائل ما فهمته انك تريد استبدال اخر حرف فقط فى الجملة اذا كان ي يصبح ى
بمعنى (مصطفي عيد مصطفي

تصبح 
مصطفي عيد مصطفى
 فقط اخر كلمة فى الجملة  صح كدا ؟؟

أستاذى @Elsayed Bn Gemy
صحيح المطلوب تغير اخركلمة فى الجملة اذا كانت ي تتحول الى ى

Share this post


Link to post
Share on other sites

اذن تفضل اخى الكريم وحدة نمطية صغطها مخصوصا لك

Function LastChar(last_input)
If Nz(last_input, "") = "" Then Exit Function
If Mid(last_input, Len(last_input), 1) = "ي" Then
NewString = Left(last_input, Len(last_input) - 1) & "ى"
LastChar = NewString
Else
LastChar = last_input
End If
End Function

 

طبعا هتضيف  الكود دا فى الاستعلام
 

NewName: LastChar([OldName])

مع تغيير oldname  الى اسم حقل الاسماء

 كما فى الصورة
 

 

8888.png.9c0f9783c5e5ab6b885326f675ca11fb.png

 

 

 وهذه صورة من الحل

 

5454515.png.74fc284b615772cc723ab40cf28fb9f8.png

 

شكرا لك

 

Edited by Elsayed Bn Gemy
  • Thanks 1

Share this post


Link to post
Share on other sites

أستاذى @Elsayed Bn Gemy
جزاك الله كل خير نعم هو المطلوب ممكن اضافة صغيرة 
 

Function C_Word(T As String) As String
T = Replace(T, "ي ", " ى")
C_Word = T
End Function

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

Edited by محمد احمد لطفى

Share this post


Link to post
Share on other sites

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

لو اضيفت الى الجديدة سيتم تغيير كل حروف الياء المنقوطة الى ياء بدون نقط 

ولكن اخبرنى لماذا تريد عمل ذلك ؟

  • Thanks 1

Share this post


Link to post
Share on other sites

أعمل على تنقية بيانات كثيرة و تصادف أن حرف ي فى اخر الكلمة كثير جدا فكنت أكتب كل اسم فى الوحدة النمطية ولكن هذه الطريقة أفضل جزاك الله خيراً أستاذى 
هل يمكن النظر فى هذا الموضوع
https://www.officena.net/ib/topic/88236-وجود-ايقونة-البرنامج-على-شريط-المهام-دائما/

 

Edited by محمد احمد لطفى

Share this post


Link to post
Share on other sites
7 ساعات مضت, محمد احمد لطفى said:

أستاذى @Elsayed Bn Gemy
 


Function C_Word(T As String) As String
T = Replace(T, "ي ", " ى")
C_Word = T
End Function

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

معلش مخدتش بالى من بقية السؤال 

انت عاوز اى حرف ي خلفه مسافة يتم تغييرة 

صح كدا ؟؟

دى محتاجة اختراع وحدة نمطية تانية بجانب اللى معاك  هههههههههههه

فممكن تمهلنى باكر ان شاء الله لانى على الموبايل والله الان 

1460483449_Screenshot_-----.png.af04a85357a4fef18eda063978bb343e.png

Edited by Elsayed Bn Gemy
  • Like 1

Share this post


Link to post
Share on other sites
1 ساعه مضت, Elsayed Bn Gemy said:

معلش مخدتش بالى من بقية السؤال 

انت عاوز اى حرف ي خلفه مسافة يتم تغييرة 

صح كدا ؟؟

دى محتاجة اختراع وحدة نمطية تانية بجانب اللى معاك  هههههههههههه

فممكن تمهلنى باكر ان شاء الله لانى على الموبايل والله الان 

1460483449_Screenshot_-----.png.af04a85357a4fef18eda063978bb343e.png

صحيح هذا هو المطلوب 
هل يمكن جعل 

LastChar = last_input

LastChar = T

فقط 

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...