با سلام
می خوام توی یه تکس باکس یه رشته بگیرم و معکوسش کنم
به این صورت :
This is a test
Test a is this
اگه میشه مسئله ی بالا رو به صورت مفصل توضیح و حل کرده
اگه بلدید کمک کنید
متشکر
Printable View
با سلام
می خوام توی یه تکس باکس یه رشته بگیرم و معکوسش کنم
به این صورت :
This is a test
Test a is this
اگه میشه مسئله ی بالا رو به صورت مفصل توضیح و حل کرده
اگه بلدید کمک کنید
متشکر
پس چی شد
کمک کنید لطفاً
باید اول کلمه ها رو دیتکت کنی و کنار هم بذاری (به صورت برعکس)
با استفاده از تابه Instr میتونی محل های قرارگیری کاراکتر Space رو پیدا کنی بعد کلمات رو جدا کنید و توی یه رشته ی دیگه بذارید کنار هم.
کل سورسش فکر نکنم بیشتر از از 10 خط بشه.
با split کلاس string هم میتونی این کار رو بکنی .
سلام.کاملا درسته.شما باید ابتدا رشته بدست آمده رو جستجو کنی و مقادیر رو تا کارکتر فاصله بدست بیاری و بعد نتایج رو از بالا به پایین و با قرار دادن کارکتر فاصله در کنار هم قرار بدی.نقل قول:
for a=len(String) to 1 step -1
str=mid(String,a,1)
next
text2.text = strreverse(text1.text)
دوست عزیز strreverse کاراکترها رو هم برعکس میکنه ایشون میخواد کلمات فقط برعکس بشه .نقل قول:
سلام
با اجازه دوستان
پایان :20:کد:Dim myStr As String 'Source String
Dim RetStr As String 'Dest String
Dim i As Long, SplitStr() As String
myStr = "This is a test"
SplitStr = Split(myStr, " ")
For i = UBound(SplitStr) To 0 Step -1
RetStr = RetStr + SplitStr(i) + " "
Next i
'Remove Last Space
RetStr = Mid(RetStr, 1, Len(RetStr) - 1)
MsgBox RetStr
Smafias کارم راه افتاد از شما و تمامی دوستان خیلی خیلی سپاس گزارم