برعکس کردن متن [بایگانی]

samiasoft

یک شنبه 26 مرداد 1393, 02:20 صبح

سلام دوستان

من میخواستم با ویژوال یه برنامه ای بنویسم که متن داده شده رو برعکس کنه

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

مثلا جمله : چگونه لحظه لحظه خود رو شرح دهم

حالت اول: هن وگچ هظحل هظحل ودخ ور حرش مهد

حالت دوم : مهد حرش ور دوخ هظحل هظحل هن وگچ

Mori Bone

یک شنبه 26 مرداد 1393, 08:25 صبح

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

Mr.305

یک شنبه 26 مرداد 1393, 10:24 صبح

برای حالت دوم هم میتونی تک تک کلمات رو با reverse برعکس کنی و بعد به همون ترتیب بچینیشون

samiasoft

یک شنبه 26 مرداد 1393, 11:50 صبح

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

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

برای حالت دوم اینو نوشتم

label1.Caption = StrReverse(text1.Text)

samiasoft

یک شنبه 26 مرداد 1393, 11:52 صبح

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

a = Text1.Text
cnt = Len(a)
st = ""
While cnt <> 0
x = Mid(a, cnt, 1)
cnt = cnt - 1
st = st + x
Wend
Label1.Caption = st

meys34

یک شنبه 26 مرداد 1393, 13:10 عصر

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

برای حالت دوم اینو نوشتم

label1.Caption = StrReverse(text1.Text)

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

a = Text1.Text
cnt = Len(a)
st = ""
While cnt <> 0
x = Mid(a, cnt, 1)
cnt = cnt - 1
st = st + x
Wend
Label1.Caption = st

هر دو درست هستند...

برای حالت اول:
Dim a() As String
Dim i As Integer, st As String

a = Split(Text1.Text, " ")

For i = 0 To UBound(a)
st = st + StrReverse(a(i)) + " "
Next

Label1.Caption = st

vbhamed

دوشنبه 27 مرداد 1393, 09:33 صبح

سلام
براي حالت دوم مي‌تونيد از تابع Split استفاده كنيد، اول كلمات رو با اين تابع و توسط جدا كننده فاصله ( " " ) جدا كنيد تا آرايه اي از كلمات تشكيل بشه، بعد تك تك كلمات رو با تابع StrReverse معكوس كنيد و در نهايت با هم تركيب كنيد