توابع Left و Right کارنمی کنن

[vbapr2005]

بچه این دوتا کار نمی کنن
اما تابع Mid هنوز به قوت خودش باقیه. ان شا الله تو ورزن بعدی اینو هم از کار میندازن خیالمون راحت شه. نظر شما چیه؟

آقا راستی چجوری این حرف رو وارد کنیم؟یه لحظه صبر کنید:
منظورم اینه که نگاه کنید : Version , Pejman , Visual Basic , Japan
(البته تمام این کلمات با تلفظ فارسی)
شما لطفا این وازه !!! ها رو بنویسید و بهم یاد بدید من هم چجوری بنویسم
خیلی باحالین :چشمک:

[Shaya]

سلام،
من برای رفع این مشکل، تو تابع درست کردم. شاید به دردت بخورد:

Public Function MyLeft(ByVal Inv As String, ByVal LengthV As Short) As String
If LengthV > Inv.Length Then LengthV = Inv.Length
Return Inv.Substring(0, LengthV)
End Function

Public Function MyRight(ByVal Inv As String, ByVal LengthV As Short) As String
If LengthV > Inv.Length Then LengthV = Inv.Length
Return Inv.Substring(Inv.Length - LengthV)
End Function

[vbapr2005]

خیلی عالیه آقای شایا
میشه لطفا راجع به خظ آخر تابع MyRight یه کمی توضیح بدین؟

[rezanew]

کدوم Right و Left ؟
اینا همشون تو Strings هستن

مثلا :



Strings.Left()

[vbapr2005]

نه، من که چنین چیزی ندیدم
فقط TextBox ها هستن که Left دارن که تازه Right ش رو هم ندارن :قهقهه: :قهقهه:

[vbapr2005]

راستی من طرز نوشتن ژ اینجوریه:
Shift + C

[rezanew]

آقا حالا ببینید

این

Microsoft.VisualBasic.Right(string,integer)

یا این

strings.Right(string,integer)

[vbapr2005]

آره، تو هم درست میگی

[Shaya]

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

با تشکر