نحوه ی ذخیره اعداد فارسی و لاتین

[S_O_S1982]

سلام دوستان
عذر می خوام اگه سوالم تکراری هست
من با یک Richtext box اعدادیی که بعضی ها رو به صورت لاتین و بعضی ها رو به صورت فارسی نوشتم به دیتابیس منتقل می کنم ، اما اونها به صورت فارسی تو دیتابیس ذخیره می شن ، کسی می دونه باید چی کار کنم که به همون صورتی که نوشتم اعداد و تو دیتابیس ذخیره بشه ؟ آیا سوالم مربوط به قسمت دیتابیس هست؟؟

ممنون از راهنمایی تون

[M.T.P]

یعنی شما وقتی اطلاعات دیتابیس رو که ذخیره کردی اگه مجدد تو Richtextbox لود کنی ، به شکل اولش لود میشه یا اینکه تغییر میکنه؟ (مثلا عدد فارسی تبدیل به لاتین میشه)

[S_O_S1982]

یعنی شما وقتی اطلاعات دیتابیس رو که ذخیره کردی اگه مجدد تو Richtextbox لود کنی ، به شکل اولش لود میشه یا اینکه تغییر میکنه؟ (مثلا عدد فارسی تبدیل به لاتین میشه)

سلام

بله ؛ وقتی دوباره تو Richtextbox لودش می کنم ، کل عدد رو به صورت فارسی برام لود می کنه
برای اینکه واضح تر بشه ، یه مثال می زنم :

عددی که من وارد Richtextbox می کنم به این صورت هست که مثلا 8 رو هم به صورت فارسی و هم به صورت لاتین می زنم
این دوتا 8 هردو به صورت فارسی تو دیتابیس ذخیره می شه
وقتی هم لود می کنم دیگه یکی لاتین یکی فارسی نیست ، جفتشون فارسی لود می شن

من میخواستم به همون صورت که وارد می کنم ، همونطور هم ذخیره و بعدا لود بشه

ممنون

[mostafa_bahar]

امكانش نيست كه اين كار شه چون فونت عوض ميشه كه فارسي مي شه و كد 8 انگليسي با فارسي فرق نمكنه

[pcdownload.bloghaa.com]

اگه چنین کاری خیلی برات مهمه می تونی خودت متن را فرمت بندی کنی

برای مثال من روی یه تکست باکس ساده و برای یک عدد کار را انجام میدم.

کد دکمه ذخیره کردن متن:
dim temp as string
(p=replace(text1.text,chr(code ascii for farsi number),"{@1}"
open "c:\test.txt" for binary as #1
put #1,,temp
close #1

کد دکمه باز کردن متن:

dim tmp as string
open "c:\test.txt" for binary as #1
tmp=space(lof(1))
get #1,,tmp
close #1

text1=replace(tmp,"{@1}",chr( code ascii for farsi number))

[S_O_S1982]

اگه چنین کاری خیلی برات مهمه می تونی خودت متن را فرمت بندی کنی

برای مثال من روی یه تکست باکس ساده و برای یک عدد کار را انجام میدم.

کد دکمه ذخیره کردن متن:


dim temp as string
(p=replace(text1.text,chr(code ascii for farsi number),"{@1}"
open "c:\test.txt" for binary as #1
put #1,,temp
close #1

کد دکمه باز کردن متن:

dim tmp as string
open "c:\test.txt" for binary as #1
tmp=space(lof(1))
get #1,,tmp
close #1

text1=replace(tmp,"{@1}",chr( code ascii for farsi number))


برای دانلود برنامه های حرفه ای فارسی نوشته شده با ویژوال بیسیک به وبلاگ زیر مراجعه کنید.

pcdownload.bloghaa.com (http://pcdownload.bloghaa.com)


دوست عزیز ممنون از راهنمایی تون ، ممکنه یه مقدار در موردش توضیح بدین ، اینکه اون خط Replace چی کار می کنه ؟

[M.T.P]

تعویض یه کاراکتر با یه کاراکتر دیگه

[S_O_S1982]

تعویض یه کاراکتر با یه کاراکتر دیگه

خیلی خوب می شد ، مدیران سایت ، پست های الکی و بی محتوایی که فقط بعضی از کاربرا برای بالابردن آمارشون ، اونها رو می زارن و حذف می کردن
یا یه قانونی چیزی بود کسی زیادی پست الکی می ذاشت دسترسیش بسته می شد

[M.T.P]

خیلی خوب می شد ، مدیران سایت ، پست های الکی و بی محتوایی که فقط بعضی از کاربرا برای بالابردن آمارشون ، اونها رو می زارن و حذف می کردن
یا یه قانونی چیزی بود کسی زیادی پست الکی می ذاشت دسترسیش بسته می شد
چه خوب میشد اگه مدیران سایت ابتدا از جنابعالی یه آزمون ورودی میگرفتن بعد اجازه میدادن که تو این سایت قضاوت کنین و خوب رو از بد تشخیص بدین...
و اما قابل توجه شما که انگار گزارشات نادرست راجع به تابع Replace تحویلتون دادن:
تابع Replace به شما این امکان رو میده که یک Character یا یک کلمه رو در یک رشته جستجو و عبارت مورد نظر خودتون رو جایگزینش کنید.




Print Replace("Hello", "e", "a")



کد فوق حرف e را در کلمه Hello جستجو میکند و حرف a را جایگزین می نماید.
خروجی کد بالا برابرست با hallo