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

[ابو عارف]

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

Tocode.zip

[ابو عارف]

و هذا على التنسيق 2003

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 ) لانه لايوجد احرف التالية بعده وهما مسافة و رمز"&"

[ابوخليل]

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

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

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