N1 + n11 * 64
blockquote>Выше можно записать как
N1 = N1 + (n11 * 64)
, что совпадает с
N1 + ((Asc(Left(R1, 1)) - 64) * 64)
что совпадает с
(N1 + (Asc(Mid(R1, 2, 1)) - 64) * 64) + ((Asc(Left(R1, 1)) - 64) * 64)
и совпадает с
(Asc(Right(R1, 1)) - 64 + (Asc(Mid(R1, 2, 1)) - 64) * 64) + ((Asc(Left(R1, 1)) - 64) * 64)
Опираясь на эту логику, можно получить то, что вы хотите
[ 1111] Вот функция для этого
Sub Sample() Dim shortdec As Long, dec As Long Dim hexcode As String hexcode = "E0340A" 'hexcode = "E0340B" '<~~ This will give you CPK dec = CLng("&H" & hexcode) '14693386 shortdec = dec - 14680064 '1332 Debug.Print GetString(shortdec) End Sub Function GetString(n As Long) As String Dim i As Long, j As Long, k As Long Dim a As Long, b As Long, c As Long Dim x As Long For i = 65 To 90 For j = 65 To 90 For k = 65 To 90 a = Asc(Chr(i)) - 64 b = (Asc(Chr(j)) - 64) * 64 c = (Asc(Chr(k)) - 64) * 64 x = (a + b) + c * 64 If x = n Then GetString = Chr(k) & Chr(j) & Chr(i) Exit Function End If Next k Next j Next i End Function
Мои предположения: Вы будете использовать заглавные буквы. Иначе вам также придется пройти через ASC 97 - 122.
Распространяемый файл.Net Framework 3.5 SP1 (тот, который это составляет приблизительно 230 МБ) содержит все (2.0 + SP1 + SP2, 3.0 + SP1 + SP2, 3.5 + SP1) во всей поддерживаемой архитектуре (x86, x64, ia64). Это - единственная загрузка, в которой Вы нуждаетесь.
Загрузите отсюда (нажмите на.NET Framework 3.5 Пакета обновления 1 (Полный Пакет)):
И затем, Вы могли бы хотеть установить эти обновления:
ВАЖНЫЙ: После установки Платформы.NET 3,5 пакета SP1 (или bootstrapper или полный пакет) необходимо сразу установить обновление KB959209 для обращения к ряду известных проблем совместимости приложения.
Существует 3 обновления (для 2,0, 3.0, и 3.5) для 2 ОС "группы" (XP/2003 или Vista/2008) для 3 архитектуры (x86, x64, или ia64), для в общей сложности... 16 загрузок! (Я знаю, 3 * 2 * 3 = 18, но Сервер 2 003 ia64 только поддерживает до 2,0). Необходимо установить 3 обновления в порядке. Или Вы могли выполнить Windows Update после установки 3,5 SP1 и позволить ему понять его.
Править: Чтобы быть ясным.Net 3.5 требует, чтобы 2.0 и 3.0 были установлены и обновлены к уровню SP1..Net 3.5 SP1 требует, чтобы 2.0/3.0 были обновлены к уровню SP2. Но 3,5 установщика (SP1) сделают это автоматически. Таким образом, путем установки 3,5 SP1 Вы не должны волноваться об установке и обновлении 2.0 и 3.0 к SP1 или SP2. Просто установите 3,5 SP1, и Вы сделаны! (и дополнительные обновления, 3,5 SP1.1?)
О Клиентском Профиле это может только быть установлено на x86 клиентских машинах, которые не имеют НИКАКОЙ версии .NET установленной, таким образом, это не установит на Vista (это уже идет с.Net 3.0), любая версия Windows Server, ни любая x64/ia64 ОС. Можно только установить его на Windows XP SP2 + (x86), который не имеет никакой версии .NET установленной, иначе полная установка сделана. Офлайновый Клиентский установщик Профиля составляет 255 МБ, потому что он попытается сделать клиентскую установку сначала, если он не может он быть нейтрализация к полной установке. Лично, я просто сделал бы полную установку так или иначе.
СЕТЕВЫЕ 3,5 SP1 представляют новую опцию установочного пакета для разработчиков, создающих клиентские приложения.NET, названные "Клиентским Профилем Платформы.NET".This, предоставляет новый установщик установки, который включает меньшее, быстрее, и более простой опыт установки для клиентских приложений.NET на машинах, которым уже не установили Платформу.NET.
Клиентская установка Профиля Платформы.NET содержит просто те блоки и файлы в Платформе.NET, которые обычно используются для сценариев клиентского приложения. Например: это включает Windows Forms, WPF и WCF. Это не включает ASP.NET и те библиотеки и компоненты, используемые, прежде всего, для серверных сценариев. Мы ожидаем, что этот установочный пакет составит приблизительно 26 МБ в размере, и он может быть загружен и установлен намного более быстрый, чем полный установочный пакет Платформы.NET.