رفتن به مطلب
  • 0

نادیده گرفتن عدد فارسی


phd.khosravi

سوال

تو ادیت تکس مثلا اگه 2 فارسی رو نوشتم نادیده بگیره عددو

 

کد 

dim st as string = " این 7 متن نمونه 4 است "
for i = 0 to 9
st = st.replace(i,"")
next

رو هم که میزنم فقط برا اعداد انگلیسی جواب میده و عدد اگه فارسی وارد بشه خطا میگیره.

 

از دوستان هم یکی گفت که از کد اسکی استفاده کنی از دستور chr() ولی خب هر کاری کردم نتونستم.

 

اگه کسی میتونه لطفا کمک کنه خیلی لازم دارم

 

اعداد فارسی رو که زدم مثلا همون انگلیسی نادیده بگیره همین

لینک ارسال
به اشتراک گذاری در سایت های دیگر

5 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

کد اسکی برای چی؟؟

 

اینو تست کنید:

Dim st As String = " این 7 متن نمونه 4 است "
For i = 0 To 9
Dim m As String
m=i
m=m.Replace("۱","1")
m=m.Replace("۲","2")
m=m.Replace("۳","3")
m=m.Replace("۴","4")
m=m.Replace("۵","5")
m=m.Replace("۶","6")
m=m.Replace("۷","7")
m=m.Replace("۸","8")
m=m.Replace("۹","9")

st = st.replace(i,"")
Next
لینک ارسال
به اشتراک گذاری در سایت های دیگر

و یا همین تکه کد رو بنویسید هرچی عدد فارسی توی st هست پاک میکنه:

Dim st As String = " این 7 متن نمونه 4 است "

st=st.Replace("۱","")
st=st.Replace("۲","")
st=st.Replace("۳","")
st=st.Replace("۴","")
st=st.Replace("۵","")
st=st.Replace("۶","")
st=st.Replace("۷","")
st=st.Replace("۸","")
st=st.Replace("۹","")
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...