В системе нет двухпанельного файлового менеджера. В папочке с разрешённым к установке софтом его тоже нет. Скачать и ...

09.08.2017 в 05:22

Nicholas Opium

В конце всё будет хорошо. Если всё ещё не хорошо - это не конец.

Так они потому и зашиваются, что весь софт самим писать приходится :vv:

URL

09.08.2017 в 09:28

Это какое-то извращение. Стесняюсь спросить, наши или японцы?

URL

09.08.2017 в 10:36

Тэцу

Обезьяна мадрил из центральной Африки считается самой пестрой из приматов. Но я бы назвал самым ярко украшенным приматом начинающую гейшу из Дзиона. © Артур Голден.

А. Ведьмак, не наши, это точно. ))

URL

09.08.2017 в 10:46

Тэцу, *шепотом* а вдруг?

Да, кстати, нельзя ли забить на политику и скачать? Как хорошо вообще сделать за ее выполнением?

URL

09.08.2017 в 11:38

nio

この世界は。。。いいですか？

А. Ведьмак, японцы установили такие правила а человек - я. Не японец.
За выполнением политики следит резидент в памяти, который сливает список процессов куда надо.

URL

09.08.2017 в 11:55

nio, спасибо.

URL

09.08.2017 в 17:47

Линда Кайе

Тотальная неудачница и убийца жёстких дисков.

Это из серии «О чём умолчал Китя Карлсон»?

Человек пишет себе двухпанельник. Сам. На VBA. В Excel.

А подвиг-то где? ^^'

URL

10.08.2017 в 12:20

nio

この世界は。。。いいですか？

В том-то и дело, что вместо подвигов приходится выслушивать "ну, пока у нас заданий для тебя нет, поразбирайся в коде" и заниматься вот этим.

URL

11.08.2017 в 17:17

Линда Кайе

Тотальная неудачница и убийца жёстких дисков.

Не, ты про VBA пишешь так, словно пишешь сразу на брейнфаке.

URL

11.08.2017 в 22:54

nio

この世界は。。。いいですか？

Нет, я пишу так, чтобы показать уровень адекватности политики безопасности.

>>на брейнфаке
Private Function getReadableSize(sizeBytes As Variant) As String
Dim initSize As Integer, prefixArray As Variant
initSize = IIf(sizeBytes > 0, sizeBytes, 1)
prefixArray = Array(" b", " Kb", " Mb", " Gb", " Tb", " Pb", " Eb", " Zb", " Yb")
While sizeBytes > 1024
sizeBytes = sizeBytes / 1024
Wend
getReadableSize = CStr(Round(sizeBytes, 2)) + prefixArray(Int(Log(initSize) / Log(1024)))
End Function

Как избавиться от IIf, не заводя счётчик внутри цикла и не делая функцию длиннее?

URL

12.08.2017 в 06:08

Линда Кайе

Тотальная неудачница и убийца жёстких дисков.

Окей.

Я предлагаю использовать системную функцию:

https://msdn.microsoft.com/en-us/library/windows/desktop/bb759974%28v=vs.85%29.aspx
https://msdn.microsoft.com/en-us/library/windows/desktop/bb759975%28v=vs.85%29.aspx

URL

12.08.2017 в 08:50

Тэцу

Обезьяна мадрил из центральной Африки считается самой пестрой из приматов. Но я бы назвал самым ярко украшенным приматом начинающую гейшу из Дзиона. © Артур Голден.

Я предлагаю использовать системную функцию:

Несчитово!

Тем более, что это из wsh, который в VBA для ёкселя будет доступен, только если библиотеку вручную прикрутить.

URL

12.08.2017 в 09:28

Линда Кайе

Тотальная неудачница и убийца жёстких дисков.

Несчитово!

Поэтому VB считают детским языком – девелоперы умудряются даже MsgBox() навелосипедить на трёх формах и двух классах.

Тем более, что это из wsh, который в VBA для ёкселя будет доступен, только если библиотеку вручную прикрутить.

Люди-кони. Это функция из библиотеки shlwapi.dll, прикручивается простым Declare :}

URL

12.08.2017 в 09:35

Линда Кайе

Тотальная неудачница и убийца жёстких дисков.

Declare Function StrFormatByteSizeA Lib "shlwapi.dll" (ByVal dw As Long, ByVal pszBuf As String, ByVal cchBuf As Long) As Long

'====================================================================
Public Sub Main()
  Const SIZE = 711366812 ' 678Mb
  
  Dim Buff As String
  Dim nBuff As Long
  Dim RC As Long
  
  nBuff = 1024
  Buff = String(nBuff + 1, 0)
  
  RC = StrFormatByteSizeA(SIZE, Buff, nBuff)
  If RC = 0 Then
    MsgBox "An error!", vbCritical
  Else
    RC = InStr(Buff, vbNullChar)
    Buff = Left(Buff, RC - 1)
    MsgBox Buff, vbInformation
  End If
End Sub

URL

12.08.2017 в 09:58

Тэцу

Обезьяна мадрил из центральной Африки считается самой пестрой из приматов. Но я бы назвал самым ярко украшенным приматом начинающую гейшу из Дзиона. © Артур Голден.

прикручивается простым Declare

Так я как раз об этом. :3

URL

12.08.2017 в 10:18

nio

この世界は。。。いいですか？

In Windows 10, size is reported in base 10 rather than base 2. For example, 1 KB is 1000 bytes rather than 1024.
Не пойдёт, на работе как раз 10 стоит. Мне по 1024 удобнее.

URL

12.08.2017 в 10:26

Тэцу

Обезьяна мадрил из центральной Африки считается самой пестрой из приматов. Но я бы назвал самым ярко украшенным приматом начинающую гейшу из Дзиона. © Артур Голден.

nio,

Значит надо пилить свою, с гейшами и оригами.

URL

12.08.2017 в 20:02

Линда Кайе

Тотальная неудачница и убийца жёстких дисков.

Тэцу

В WSH нет никакого Declare. По крайней мере в VBsсript, а топикстартер на VBA пишет. Или ты о чём речь ведёшь?

URL

12.08.2017 в 20:02

Линда Кайе

Тотальная неудачница и убийца жёстких дисков.

nio

Пичалька.

URL

12.08.2017 в 20:04

Линда Кайе

Тотальная неудачница и убийца жёстких дисков.

nio

Кстати, а Variant у тебя для чего? Для Decimal?

URL

12.08.2017 в 22:24

nio

この世界は。。。いいですか？

Потому что с остальными вылезает overflow.

URL

13.08.2017 в 09:37

Линда Кайе

Тотальная неудачница и убийца жёстких дисков.

Ясно.

URL


Запомнить

Дневник nio