نوشتن یک عدد به حروف فارسی(هجی کردن)

[splinter cell]

با سلام به دوستان!
من توی یکی از کارهام احتیاج دارم که اعداد رو به شکل حروف بنویسم مثل توی فیش های بانکی که مبلغ رو فارسی مینویسه (هجی کردن)وبه یک جاهایی هم رسوندمش! البته فعلا اعدادسه رقمی رو میتونه بنویسه!اونهم با کمی اشکال!!!
احساس میکنم کد نویسیش زیاد خواهد شد(البته با این روشی که من رفتم) امیدوارم دوستان صاحب نظر بتونند جمع و جور تر واسه اش اسکریپت بنویسند.از دوستان پرسیدم گفتند که تا حالا چنین چیزی اینجا مطرح نشده و به ذهنم اومد ممکنه برای خیلی ها مورد استفاده قرار بگیره !پس اگه تاحالا روی اینمورد کار کردین و تجربه ای دارین مطرح کنید.تا با کمک هم کاملش کنیم و برای استفاده دیگران بذاریمش اینجا.
فعلا برای اینکه ایده کار دستتون بیاد این مثال رو ببینید وپیشنهادتون رو مطرح کنید.با تشکر

 

[mohsensemsarpour]

ببينمش بهتون خبر مي دم ...

 

[Saman]

سلام
من دستورات اين چيزي رو كه شما مي‌خوايد در VB داشتم ، ولي متاسفانه فرصت تبديل كدها به MMB رو نداشتم.به خاطر همين با رابط clipboard به هم متصلشون كردم...

لينك دريافت مثال با حجم 24 كيلوبايت

اميدوارم به كارتون بياد...
موفق باشيد...

تا بعد...!

 

[splinter cell]

مرسی سامان جان!
من سمپلتون رو گرفتم ولی چون ورژنش بالاتره فعلا نتونستم ببینمش!البته خودم تقریبا دارم کاملش میکنم ولی حجم اسکریپتش زیاد شده و به همین خاطر برای هر مرتبه عدد یک اسکریپت جدا در صفحه گذاشتم که زیاد شلوغ نشه !
در ضمن میشه بگی منظورت از

به خاطر همين با رابط clipboard به هم متصلشون كردم...

چیه؟؟البته یه طوری که ما هم بفهمیم ها!!!
ضمنا آیا روشی برای تبدیل کدهای وی بی به زبان اسکریپت نویسی بیلدر هست ؟چون بعضی از دستوراتشون مثل همدیگه است.
با تشکر از همه دوستان

 

[Saman]

سلام
شما هم ما رو كشتي با اين وژن برنامت. بابا دانلود كن اين جديد رو...
در مورد تبديل كدها ، تا حالا كه چيزي نديدم و فكر نمي‌كنم هم باشه...
فايل exe برنامه رو پيوست كردم ، دانلود كنيد و دستورات پاييني هم براي گرفتن خروجي استفاده كنيد...
كل كار اينه كه شما عدد رو به حافظه موقت مي فرستيد ، VB هم اون و مي‌خونه و پردازش مي‌كنه و همون مقدار رو به حروف توي حافظه موقت ميريزه و شما اونو با دستورات mmb دريافت مي‌كنيد.

Clipboard("SEND","Number$")
Run("<Embedded>\Number2Persian.exe","WAIT,HIDE")
Clipboard("GET","Persian$")
DisplayValue("Persian","Persian$")

تا بعد...!

 

[splinter cell]

شما هم ما رو كشتي با اين وژن برنامت. بابا دانلود كن اين جديد رو...

اینو خیلی خوب اومدی سامان!ای ول!!!
اینجانب ضمن تشکر از شما دفاعیات خودم رو در یک عدد پیام خصوصی پیچیده و به حضورتان عرضه کردم با تشکر دوباره و چند باره!