vbs

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
orgazmer
Обычный пользователь
Обычный пользователь
 
Сообщения: 56
Зарегистрирован: 23.04.2002 (Вт) 21:28
Откуда: Russia

vbs

Сообщение orgazmer » 08.10.2003 (Ср) 15:12

люди помогите плиз!! как мне получить аски код к примеру от символа "A" ?? как получить число 7 в двоичном виде ? и есть ли в vbs оперция XOR ? спасибо..

Cyrax
Cyberninja
Cyberninja
Аватара пользователя
 
Сообщения: 891
Зарегистрирован: 25.04.2002 (Чт) 21:20
Откуда: Magnitogorsk, Russia

Сообщение Cyrax » 08.10.2003 (Ср) 15:34

ну вот маленький примерчик получения ASCII-кода символа
Код: Выделить всё
<html>
<head>
<title></title>
</head>
<body>
  <SCRIPT language=vbscript>
  <!--
    dim sstr, iasc
    start
    sub start()
      sstr="A"
      iasc=asc(sstr)
      document.write (sstr & " - " & iasc)
    end sub
  -->
</script>
</body>
</html>
Ты это ему расскажи. Я уже пять болтов отвинтил, и конца не видно... (озадаченно) А это в какую сторону тянуть? Ну-ка... Ага, этот был лишний, этот вообще не отсюда, и этот... Точно, два болта.

Welcome to IRC

SSecurity
Служба безопасности
Аватара пользователя
 
Сообщения: 1283
Зарегистрирован: 19.08.2003 (Вт) 1:11
Откуда: Россия, Мурманск

Сообщение SSecurity » 27.10.2003 (Пн) 2:50

Вот код скрипта который кодирует в любую ситсему счисления .. в часности дана процедура, а ты только изменяешь параметр "А" просто вызвав, например,
Код: Выделить всё
Convert 10

Параметр KodLine здесь просто показывает как можно реализовать систему кодирования СС2, СС8, СС16 и т.д. какие ещё сам придумаешь, вот
Код: Выделить всё
KodLine=KodLine1


СКРИПТ
Код: Выделить всё
<SCRIPT LANGUAGE=VBSCRIPT>
<!--
Sub Convert(A)
KodLine1="01"                              'Двоичная
KodLine2="01234567"                   'Восмиричная
KodLine3="0123456789ABCDEF"    'Шеснадцатиричная
KodLine=KodLine1
Answer=""
WHILE int(A/len(KodLine)) <>0
  F = A mod len(KodLine)+1
  Answer=Mid(KodLine,F ,1)+Answer
  A=int(A/len(KodLine))
WEND
F = A mod len(KodLine)+1
Answer=Mid(KodLine,F,1)+Answer
Msgbox  Answer
End Sub
-->
</SCRIPT>
Программист - это маленький Бог, а все его ошибки - это самостоятельные творения:)
Так задумано:)


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5

    TopList  
cron