خواندن اعداد از راست به چپ !!!

[alizanganeh]

سلام
با دستور Mid میشه از سمت چپ یکی یکی یا 2تا 2تا اعداد یا رشته ها رو برگردوند
ولی من یک کد یا تابعی میخوام که بشه از سمت راست خوندم
من Mid(txtHDDFirst, 6, -1) رو مثلا زدم ولی کلا نمیشه اینطوری نوشت

چه کنم؟
کد یا تابعی دم دستتون نیست؟
ممنون

[mehran901]

نفهمیدم ..ولی اگه منظورتون برعکس کردن ی رشته هست ... مثلا تبدیل رشته 1234 به 4321 از دستور StrReverse استفاده کنین
مثلا

Dim s$
s = text1
s = strreverse(s)
text1 = s

[SlowCode]

سلام
اگه میخوای رشته رو برعکس کنی از تابعی که آقای mehran901 (http://barnamenevis.org/member.php?269113-mehran901)گفت استفاده کن. به هر حال... باید توی یه حلقه از آخر به اول بخونیش:

For i= len(text1) to 1 step -2 'Or step -1
Print mid(text1,i,2) 'Or your code
Next

[alizanganeh]

سلام
ممنون ولی خودم یک کدی نوشتم که فکر کنم از اینا راحتتر باشه

For I = 1 To Len(text1)
text2 = CStr(Mid(text1, I, 1)) + CStr(text2)
Next I

بازممنون

[Dr.Bronx]

نمی دونم من دارم اشتباه متوجه میشم یا چیز دیگست

ولی ۳ تا تابع داریم برای اینکار

Left
Mid
Right

خوب شما Right رو استفاده کنید و از سمت راست بخونید دیگه :|

[meys34]

نمی دونم من دارم اشتباه متوجه میشم یا چیز دیگست



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

خوب بود اگه میشد یه تاپیک برای این جور سوالا داشت...
(مثلا اسمش باشه "تاپیک سوال ها و جواب های ویژوال بیسیک")
که برای هر سوالی یه تاپیک ساخته نشه... ای کاش...

[Dr.Bronx]

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

خوب بود اگه میشد یه تاپیک برای این جور سوالا داشت...
(مثلا اسمش باشه "تاپیک سوال ها و جواب های ویژوال بیسیک")
که برای هر سوالی یه تاپیک ساخته نشه... ای کاش...

این کارها نیازی نیست دوست عزیز .
اگر هر کسی که میخواد تاپیک ایجاد کنه یه جستجو ساده انجام بده هم کار خودش زودتر انجام میشه هم تالار شلوغ نمیشه .

بخش vb6 تا بوده همین بوده . کار خاصی هم نمیشه انجام داد .

موفق باشید ./

[alizanganeh]

نمی دونم من دارم اشتباه متوجه میشم یا چیز دیگست

ولی ۳ تا تابع داریم برای اینکار

Left
Mid
Right

خوب شما Right رو استفاده کنید و از سمت راست بخونید دیگه :|



نه اینطوری نمیشه
چون دستور های left و right میتونن مثلا 5 رقم از سمت راست رو برگردونن . نه عدد پنجم از سمت راست.
mid این کارو میکنه ولی فقط از سمت چپ.

در ضمن من جستجو زدم ولی چون سوالم طوری بود که از راه جستجو نمیشد پیداش کرد واسه این تاپیک زدم

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

زیاد سخت نگیر عزیز
ممنون که اومدی
♥

[Dr.Bronx]

آهان .
حالا من فهمیدم که شما منظورتون چیه :))

خوب همون اول بد توضیح دادید دیگه :)

خوب بازم راه ساده تری وجود داره

اگر بخواید عدد پنجم رو بگه که میشه

Mid(Text1.Text, (Len(Text1.Text) - 4), 1)

اگر هم میخواید ۵ تا بشماره و عدد ششمی رو بگه که میشه

Mid(Text1.Text, (Len(Text1.Text) - 5), 1)

موفق باشید ./