Как поменять местами слова в двойном слове? / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как поменять местами слова в двойном слове?

25 сообщений из 26, страница 1 из 2

все

Как поменять местами слова в двойном слове?

#37389884

smnt

Гость

Задача в следующем.
Есть число занимающее двойное слово (4 байта).
Нужно в нем старшее и младшее слово поменять местами.
Как это можно сделать на VBS?

...

Рейтинг:

0 / 0

10.08.2011, 18:34

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37389898

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

smntЕсть число
можно уточнить, ГДЕ оно есть? В переменной?

...

Рейтинг:

0 / 0

10.08.2011, 18:40

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37389910

smnt

Гость

конечно в переменной...

...

Рейтинг:

0 / 0

10.08.2011, 18:49

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37389916

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Почему, собственно, спрашиваю
Вот, собственно, код перестановки:

Код: plaintext

1.
2.

i = &H15C413F2
MsgBox Hex(i \ &H10000 + (i Mod &H10000) * &H10000)

Но он не будет корректно работать для чисел, где в 16-м или 8-м разряде единица, так как он используется для отрицательных чисел.

Если исходное число является, к примеру, шестнадцатиричным текстом - тогда все проще

...

Рейтинг:

0 / 0

10.08.2011, 18:51

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37389921

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

smntконечно в переменной... в переменную оно как попадает?

...

Рейтинг:

0 / 0

10.08.2011, 18:54

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37389930

smnt

Гость

В переменную оно попадает из контроллера (ПЛК).
А что делать, если в 8 или 16 разряде может быть 1?

...

Рейтинг:

0 / 0

10.08.2011, 19:08

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37389933

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

гм

Код: plaintext

1.
2.
3.

i = &HF5C4E3F2
s = Hex(i)
s = Right(s,  4 ) & Left(s,  4 )
MsgBox Val("&H" & s)

такая штука работает в VB, но в VBS не прокатывает - не понимает Val конструкции &H

...

Рейтинг:

0 / 0

10.08.2011, 19:10

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390159

ZVI

Участник

Откуда: Sevastopol

Сообщения: 473

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

i = &H8000
j = LongSwap(i)
msgbox "i=" & hex(i) & Chr( 10 ) & "j=" & hex(j) 

Function LongSwap(InVal)
  Dim Lo, Hi, x
  x = CLng(InVal)
  Lo = x And &HFFFF&
  If Lo > &H7FFF Then Lo = Lo - &H10000
  Hi = (x And &HFFFF0000) \ &H10000
  LongSwap = CLng((Lo * &H10000) Or (Hi And &HFFFF&))
End Function

...

Рейтинг:

0 / 0

11.08.2011, 00:00

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390169

скукотища

Гость

Shocker.Proтакая штука работает в VB, но в VBS не прокатывает - не понимает Val конструкции &H В VBS нет функции Val(). Есть Eval(). Она конструкцию &H понимает.

...

Рейтинг:

0 / 0

11.08.2011, 00:10

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390173

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

скукотищаShocker.Proтакая штука работает в VB, но в VBS не прокатывает - не понимает Val конструкции &H В VBS нет функции Val(). Есть Eval(). Она конструкцию &H понимает. Спасибо, скукотища, я ждал подсказки

Итак, тогда задача решается в одну строку:

Код: plaintext

EVal(Right(Hex(i),  4 ) & Left(Hex(i),  4 ))

...

Рейтинг:

0 / 0

11.08.2011, 00:17

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390177

скукотища

Гость

Shocker.Pro,
авторИтак, тогда задача решается в одну строку:
...А если подумать ?

...

Рейтинг:

0 / 0

11.08.2011, 00:23

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390179

ZVI

Участник

Откуда: Sevastopol

Сообщения: 473

Рейтинг: 0 / 0

Shocker.ProИтак, тогда задача решается в одну строку:

Код: plaintext

EVal(Right(Hex(i),  4 ) & Left(Hex(i),  4 ))

i = 10 :-)

...

Рейтинг:

0 / 0

11.08.2011, 00:26

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390181

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

скукотищаShocker.Pro,
авторИтак, тогда задача решается в одну строку:
...А если подумать ?
ах, да, потерял

Код: plaintext

EVal("&H" & Right(Hex(i),  4 ) & Left(Hex(i),  4 ))

подловил, таки, отомстил

...

Рейтинг:

0 / 0

11.08.2011, 00:26

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390182

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

ZVI,

я совсем плох :)
ща сделаем

...

Рейтинг:

0 / 0

11.08.2011, 00:28

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390183

скукотища

Гость

ZVI,
+1

...

Рейтинг:

0 / 0

11.08.2011, 00:28

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390187

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: plaintext

s = Right("0000000" & Hex(i), 8 )
i = EVal("&H" & Right(s,  4 ) & Left(s,  4 ))

...

Рейтинг:

0 / 0

11.08.2011, 00:31

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390194

ZVI

Участник

Откуда: Sevastopol

Сообщения: 473

Рейтинг: 0 / 0

Shocker.Pro, ещё не все, Вам осталось побороть типы, например, для i = &H8000

?VarType(&H8000)=vbLong
False

?Hex(&H8000)
8000

Но:

?Hex(Clng(&H8000))
FFFF 8000

...

Рейтинг:

0 / 0

11.08.2011, 00:55

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390197

ZVI

Участник

Откуда: Sevastopol

Сообщения: 473

Рейтинг: 0 / 0

ZVIShocker.Pro, ещё не все, Вам осталось побороть типы, например, для i = &H8000
Хотя у ТС может и не Long там в 4-х байтах, а 2 Integer-а, тогда у Вас - правильнее, разве что работа со строками все же помедленее. Зато у ТС теперь есть выбор :-)

...

Рейтинг:

0 / 0

11.08.2011, 01:02

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390201

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Ну присвоение типа i=&H8000 мы используем только для теста, а автор получает полный лонг в переменную, я так думаю, так что наверное все хорошо будет.

Что касается скорости - думаю, что мой вариант быстрее твоего, но замерять щас лень

...

Рейтинг:

0 / 0

11.08.2011, 01:13

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390209

скукотища

Гость

Shocker.Pro,
Что касается скорости - думаю, что мой вариант быстрее твоего, но замерять щас лень

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.

option explicit
dim i,j,s,k,t

i=&HF5C4E3F2
t=timer()
for k= 1  to  100000 
s = right("0000000" & hex(i), 8 )
j = eval("&H" & right(s,  4 ) & left(s,  4 ))
next
wscript.Echo "Shocker.Pro: " & timer()-t


t=timer()
for k= 1  to  100000 
j=LongSwap(i)
next
wscript.Echo "ZVI: " & timer()-t


Function LongSwap(InVal)
  Dim Lo, Hi, x
  x = CLng(InVal)
  Lo = x And &HFFFF&
  If Lo > &H7FFF Then Lo = Lo - &H10000
  Hi = (x And &HFFFF0000) \ &H10000
  LongSwap = CLng((Lo * &H10000) Or (Hi And &HFFFF&))
End Function

Код: plaintext

Shocker.Pro:  1 , 531006 
ZVI:  0 , 3909912

...

Рейтинг:

0 / 0

11.08.2011, 01:29

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390210

ZVI

Участник

Откуда: Sevastopol

Сообщения: 473

Рейтинг: 0 / 0

Shocker.ProНу присвоение типа i=&H8000 мы используем только для теста, а автор получает полный лонг в переменную, я так думаю, так что наверное все хорошо будет.Да, согласен. Надеюсь, ТС учтёт, что в VBS все переменные типа Variant и поэтому преобразование типов лучше делать явно.

Что касается скорости - думаю, что мой вариант быстрее твоего, но замерять щас леньНу мне то не лень, на моем компе мой вариант быстрее в 2 раза:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

Sub Time_Test()
  
  Const N& =  1000000 
  
  Dim i&, j&, t1!, t2!, k&, s$
  i = - 1 
  
  t1 = Timer
  For k =  1  To N
    s = Right("0000000" & Hex(i),  8 )
    j = Val("&H" & Right(s,  4 ) & Left(s,  4 ))
  Next
  t1 = Timer - t1
  
  t2 = Timer
  For k =  1  To N
    j = LongSwap(i)
  Next
  t2 = Timer - t2
  
  MsgBox Round(t1,  3 ) & vbLf & Round(t2,  3 ) & vbLf & Round(t1 / t2,  3 )
  ' t1 / t2 =2.105
  
End Sub

...

Рейтинг:

0 / 0

11.08.2011, 01:29

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390213

ZVI

Участник

Откуда: Sevastopol

Сообщения: 473

Рейтинг: 0 / 0

Скукотища, спасибо - порадовал и результатом получше и кодом на VBS
Что-то мы вдвоем на одного ... :-)

...

Рейтинг:

0 / 0

11.08.2011, 01:34

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390215

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

ZVIЧто-то мы вдвоем на одного ... :-) ничего, так мне и надо :)

...

Рейтинг:

0 / 0

11.08.2011, 01:36

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390437

HandKot

Участник

Откуда: Sergiev Posad

Сообщения: 3 122

Рейтинг: 0 / 0

может мне и изменяет памфть, но поменять местами это практически как сдвинуть на определенное кол-во бит
а это простейшие операции умножения и деления

вот мой вариант
критикуйте :)

Код: plaintext

Hex((i *  65536  + i /  65536 ))

правда нужно предусмотреть вариант при переполнении
т.е при i = &H15C413F2 при умножении будет ошибка
надо будет отрезать старшую часть числа

...

Рейтинг:

0 / 0

11.08.2011, 09:44

| Ответить | Цитировать | Написать

Как поменять местами слова в двойном слове?

#37390452

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

HandKot,

это-то вариант я предложил здесь 11100172
и он бы работал, если бы не тот факт, что 16-й разряд используется под знак числа - это вносит те искажения, которые и компенсирует код ZVI 11101005

...

Рейтинг:

0 / 0

11.08.2011, 09:53

| Ответить | Цитировать | Написать

25 сообщений из 26, страница 1 из 2

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как поменять местами слова в двойном слове?

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=37389916&tid=2158502]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	191ms
get topic data:	8ms
get forum data:	2ms
get page messages:	51ms
get tp. blocked users:	1ms
others:	13ms

total:	296ms