اذهب الي المحتوي
أوفيسنا

إلى كل المبتدئين تحويل نص عربي إلى" أكواد " أحرف


ابو عارف

الردود الموصى بها

كما نحن بالحاجة كتابة رسائل في vba و أحيانا نواجه مشاكل مثلا عدم قبول البرنامج أحرف بالغة العربية و نضطر لكتابة أكواد أحرف من اجل سهولة كتابة أكواد أرفقت لكم هذا البرنامج

Tocode.zip

رابط هذا التعليق
شارك

شكرا لك اخي كنعان على هذه الهدية الطريفة

كنا نرى هذه النتيجة فقط من معالج اكسس ؟

الاستاذ كنعان :

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


For i = 1 To Len(txtr)

dgt = AscW(Mid(txtr, (i), 1))

txts = txts & "Chrw (" & """" & dgt & """" & ") & "

Next i

myv = Left(txts, (Len(txts) - 2))


رابط هذا التعليق
شارك

أخي ابو خليل!

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

ثانيا ساشرح لك اسطر الكود بالقدر مستطاع حيث اخبرناكم في السابق ما تعاني منه

إنشاء الله سنوصل الى فهمك

سطر الأول:

تحديد دورات لـ ( i ) بمقدار عدد الأحرف الموجودة في مربع نص "txtr"

سطر الثاني:

dgt هو أسم المتغير

نفترض نريد ارجاع كود الحرف "س" مثلا فنكتب Ascw ("س") ونحصل على النتيجة 1587

هنا بدلا من كتابة حرف "س" بعد دالة Ascw ، نستخدم دالة Mid من اجل حصول على أحرف الموجودة في مربع نص txtr هنا قد حصلنا على الحرف الاول من مربع نص txtr بموجب دالة mid و عرفنا كوده بموجب دالة Ascw قد تم تعين قيمة لمتغير Dgt

السطر الثالث:

تزويد مربع نص txts بقيمته بالاضافة سلسلة الأحرف و الرموز الحاصرة بين علامات اقتباس.

علامة اقتباس مزدوجة اربع مرات لحصول علامة اقتباس واحدة في النتيجة و قيمة متغير Dgt ومرة اخرى علامات اقتباس و أحرف و الرموز المحاصرة بين علامات اقتباس.

هنا قد انتهت الدورة الاول لمتغير ( i ) وحصلنا على سطر التالي

Chrw ("1587")

السطرالرابع:

دورة تالية لمتغير ( i )

السطر الخامس:

السطر الخامس من اجل حذف آخر حرفين بعد استكمال كل دورات ( i ) لانه لايوجد احرف التالية بعده وهما مسافة و رمز"&"

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

Join the conversation

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

زائر
اضف رد علي هذا الموضوع....

×   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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information