سوال در مورد تبدیل نوشته ها

[omid22]

با عرض سلام و خسته نباشید.

من میخوام یه برنامه بنویسم که اگر کاربر در تکست باکس نوشت "omid" در یک ال بی ال بنویسه "امید" من این کارو انجام دادم ولی به یه مشکل بر خوردم.

اینکه مثلا اگه داخل تکست باکس نوشتم "omid" اصلا جواب نمیده ، مجبورم یکی یکی کلمه را وارد کنم:اشتباه:


حالا دوستان راهنمایی کنند که باید چکار انجام بدم.
خیلی ممنون

سورس رو گزاشتم.

[saeedvir]

با دستور Replace اين كار را انجام بديد :


Private Sub Command1_Click()

Text1.Text = Replace(Text1.Text, "o", "Ç")
Text1.Text = Replace(Text1.Text, "m", "ã")
Text1.Text = Replace(Text1.Text, "i", "í")
Text1.Text = Replace(Text1.Text, "d", "Ï")

End Sub



البته نگفتيد براي چه كاري مي خواهيد كه بيشتر راهنمايي كنم :لبخند:

[yasser_beiraghi]

سلام
اگه کمي جستجو کني مي توني کدي پيدا کني که فينگليش رو به فارسي تبديل کنه . نمونش زياده. ولي همونطور که دوستمون saeedvir (http://barnamenevis.org/forum/member.php?u=103361) گفتش با همين روش هم مي توني براي تمام حروف لاتين تبديل فارسي بذاري .البته بايد حواست به حروفي مثل خ ، چ و ... هم باشه. ولي بهترين راه اينه که نمونه آماده پيدا کني

[parselearn]

http://barnamenevis.org/forum/showthread.php?t=231708

[omid22]

با دستور Replace اين كار را انجام بديد :


Private Sub Command1_Click()

Text1.Text = Replace(Text1.Text, "o", "Ç")
Text1.Text = Replace(Text1.Text, "m", "ã")
Text1.Text = Replace(Text1.Text, "i", "í")
Text1.Text = Replace(Text1.Text, "d", "Ï")

End Sub



البته نگفتيد براي چه كاري مي خواهيد كه بيشتر راهنمايي كنم :لبخند:


سلام دوستان

آقا خیلی ممنون کارم راه افتاد.
من تازه کار هستم و یکم فکر کردم دیدم اینچنین چیزی درست کنم ببرم برای استادمون:لبخند:

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

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