Printable View
سلام دوستان
راستش می خواستم بدونم هیچ دستوری هست که مثلا یه مقدار رو از یه تکست باکس بگیره و اون رو به صورت بر عکس توی یه تکست باکس دیگه ذخیره کنه؟مقدار عددی یا text یا hex مد نظر من هست.
مثلا:
123 به 321 یا F1E5FF به FF5E1F
ممنون میشم راهنمایی کنین.
با تشکر
سلامنقل قول:
میتونی از تابع StrReverse() استفاده کنی
مثال
کد:Private Sub Command1_Click()
Print StrReverse("123")
End Sub
خیلی ممنونم از پاسخ شما.
راستش یه سوال دیگه هم داشتم اگه جواب بدین خیلی منت بزرگی روی من گذاشتین واقعا کارم لنگ مونده.
هیچ راهی هست که بشه مقدار رو به این صورت بر عکس کرد؟
00010f00
به
000f0100
تابع strreverse مقدار رو به صورت کامل بر عکس می کنه ولی من می خوام به صورت زیر مقدار بر عکس بشه.
69541213
به
13125469
ایا این امکان پذیره؟
با تشکر:11:
اولی نمیشه باید عدد باشه یا حروف البته دانش من اینو میگه تو سوال دومتم توابع LEFT و RIGHT و LEN بدردت میخوره برو دنبالشوننقل قول:
با تشکر از پاسخ شما
میشه یه مثال بزنین؟من هر چی سرچ کردم چیزی پیدا نکردم!
خواهش میکنم دوست عزیزنقل قول:
من این برنامه هارو نوشتم اما اگر بخوای به طول رشته وابسته نباشه باید از تابعLen() استفاده کنی
این برنامه ها رو میشه جمع و جور تر نوشت اما یه جوری نوشتم که درست متوجه بشی
اگه سوالی بود بپرس
برنامه اول:
برنامه دوم:(یه text box رو فرم قرار بده)کد:Private Sub Command1_Click()
Dim a(8) As String
a(1) = "00010f00"
a(2) = Mid(a(1), 1, 3)
a(3) = Mid(a(1), 4, 1)
a(4) = Mid(a(1), 5, 1)
a(5) = Mid(a(1), 6, 1)
a(6) = Mid(a(1), 7, 1)
a(7) = Mid(a(1), 8, 1)
Print a(2) & a(5) & a(6) & a(3) & a(4) & a(7)
End Sub
مثال برای تابع Lenکد:Private Sub Command1_Click()
Dim a(5) As String
a(1) = Text1.Text
a(2) = Mid(a(1), 7, 2)
a(3) = Mid(a(1), 5, 2)
a(4) = Mid(a(1), 3, 2)
a(5) = Mid(a(1), 1, 2)
Print a(2) & a(3) & a(4) & a(5)
End Sub
کد:Private Sub Command2_Click()
Print Len("00010f00")
End Sub
بسیار ممنونم از پاسخ شما
یه سوال دیگه:
هیچ راهی هست که بشه عدد decimal و یا عدد hex رو به همین شکل برعکس کرد:
Private Sub Command1_Click()
Dim a(8) As String
a(1) = "00010f00"
a(2) = Mid(a(1), 1, 3)
a(3) = Mid(a(1), 4, 1)
a(4) = Mid(a(1), 5, 1)
a(5) = Mid(a(1), 6, 1)
a(6) = Mid(a(1), 7, 1)
a(7) = Mid(a(1), 8, 1)
Print a(2) & a(5) & a(6) & a(3) & a(4) & a(7)
End Sub