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

[phd.khosravi 64]

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

 

کد 

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

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

 

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

 

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

 

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

[phd.khosravi 64]

کسی کدهای اسکی اعداد فارسی رو برای بیسیک نداره ؟

[پژمان نیکروان 6,055]

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

 

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

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

[پژمان نیکروان 6,055]

و یا همین تکه کد رو بنویسید هرچی عدد فارسی توی 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("۹","")

[phd.khosravi 64]

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

[phd.khosravi 64]

منظورم عدد فارسی بود نه حروف