PDA

View Full Version : نمایش حروف به فارسی



ar_monti@
یک شنبه 08 مهر 1386, 14:01 عصر
سلام
دوستان من از داخل برنامه به کریستال ریپورت تاریخ را فارسی میفرستم اما رقم های تاریخ را بصورت انگلیسی نمایش میدهد برای رفع این موضوع چکار کنم.
ممنون

سار
یک شنبه 08 مهر 1386, 14:07 عصر
فکر میکنم با فونت فارسی درست بشه

hamed_bostan
یک شنبه 08 مهر 1386, 15:40 عصر
از فونت های B استفاده کن

ar_monti@
یک شنبه 08 مهر 1386, 22:04 عصر
من از فونت Tahoma استفاده کردم . نمیدانم درست است یا خیر؟

maryam_jamshid
دوشنبه 09 مهر 1386, 08:51 صبح
از فونت bbadr استفاده کن

ar_monti@
دوشنبه 09 مهر 1386, 10:08 صبح
دوست عزیز اینکار را هم کردم . در ابتدا قبل از اجرای برنامه درست نشان میدهد اما به محض اینکه برنامه را اجرا میکنم و ریپورت را صدا میزنم دوباره حروف را انگلیسی نمایش میدهد. این مشکل فقط در حروف است.

nima_nimaee
دوشنبه 09 مهر 1386, 15:06 عصر
سلام
می تونی اگه مشکلت از راه دیگه ای حل نشد از این dll استفاده کنی

Persia.Number.ConvertToPersian(XXXXX);

ali_reza_nazari
پنج شنبه 03 آبان 1386, 10:41 صبح
این رو چطوری باید به ویژوال استیودیو اضافه و از اون استفاده کرد

abadanboy
پنج شنبه 03 آبان 1386, 13:41 عصر
این رو چطوری باید به ویژوال استیودیو اضافه و از اون استفاده کرد

Persia.Number.ConvertToPersian(XXXXX);

mahdi_farhani
پنج شنبه 03 آبان 1386, 23:38 عصر
دوست عزیز من هم این مشکل رو دارم ولی تو پرینت درست بم جواب میده .... پرینت کن .

sama01
جمعه 04 آبان 1386, 01:25 صبح
من نمی‌دونم این dll دقیقا چه کار می‌کنه. ولی اگر در جدول کاراکترهای ویندوز دقت کنید، علاوه بر اعداد انگلیسی، یک سری هم اعداد فارسی در کنار حروف فارسی وجود دارند. فکر می‌کنم باید این اعداد با اعداد انگلیسی تعویض شوند.احتمال بسیار زیاد، این dll هم چنین کاری را انجام می‌دهد.

RezaKia
جمعه 04 آبان 1386, 01:50 صبح
سلام،

من در VB 6.0 یک کدی نوشتم که هر عددی رو حتی اگر شامل علامتهای خاص مثل منفی یا پرانتز حسابداری باشه از انگلیسی به فارسی و بر عکس تبدیل میکنه.

البته این کد رو برای دات نت هم بازنویسی کردم.

حالا مسئله اینه، «لطفا اینو یکی از مدیران جواب بدن» میشه بدون دادن سورس این رو برای استفاده قرار بدم یا نه؟

در حال حاضر بنا به دلایلی از جمله تعهد و قرارداد با مشتری اجازه ندارم سورس بدم. :گریه:

لازم به ذکر میدونم بگم این کد تا حالا در بیش از 60 پروژه بزرگ مصرف شده و تا حالا مشکلی پیش نیومده. :تشویق:

mahdi_farhani
جمعه 04 آبان 1386, 09:06 صبح
اگر دوست داری بدی و نیم خواهی سورس بدی Dll کن و بزار تا بقیه استفاده کنن .( البته من مدیر نیستم همینطوری جواب دادم با عرض پوزش )

Chabok
جمعه 04 آبان 1386, 11:20 صبح
با سلام
من این تابع رو پارسال برای یکی از برنامه هام نوشته ام.
این تابع در String ورودی میگرده و هر چی عدد پیدا میکنه به کاراکتر فارسی معادل تبدیل میکنه و String بر میگردونه .
در ضمن فکر کنم خوب هم نوشته نشده . ولی نکته مثبت اینه که خیلی خوب جواب میده .
موفق باشید .


Public Function FarsiInt(ByVal EnInt) As String
Dim A As String = EnInt.ToString
Dim A2(A.Length) As String
Dim i As Integer
For i = 0 To A.Length - 1
If IsNumeric(A.Substring(i, 1)) Then
A2(i) = ChrW(AscW(A.Substring(i, 1)) + 1728)
Else
A2(i) = A.Substring(i, 1)
End If
Next
A = ""
For i = 0 To A2.Length - 1
A += A2(i)
Next
Return A
End Function