Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как правильно отформатировать Long? / 6 сообщений из 6, страница 1 из 1
03.03.2010, 16:52
    #36500405
Дмитрий77
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отформатировать Long?
Речь идет о размерах файлов в байтах:
Рисовать надо вот это(в завис. от результата)
Выводить с пробелами между разрядами.
"Size: 1 156 697 bytes"
"Size: 697 bytes"
"Size: 56 697 bytes"
"Size: 6 697 bytes"
"Size: 21 156 697 bytes"
(больше нескольких мб файлов не предполагается)

Читать всю муть про ф-цию Format неохота (лишний перегруз мозгов)
Накатал так:
Код: plaintext
1.
2.
   'frmControls.Tag == имя файла с путем
    SetText hStatusBarWnd,  0 , SBT_SUNKEN, _
      "Size: " & Format(GetFileS(frmControls.Tag), "# ### ###") & " bytes"

Вроде фурычит, корректно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2010, 17:09
    #36500473
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отформатировать Long?
Два исправления:
Код: plaintext
"Size: " & Format$(GetFileS(frmControls.Tag), "# ### ##0") & " bytes"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2010, 17:39
    #36500594
AndrF
AndrF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отформатировать Long?
Shocker.ProДва исправления

И еще одно:

Код: plaintext
"Size: " & Format$(GetFileS(frmControls.Tag), "#,##0") & " bytes"

Это если по правильному ;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2010, 19:26
    #36500893
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отформатировать Long?
C запятой - согласен.

А по одиночной группе - О!

У меня в Access-е 2.0 такая запись давала результат 1234 456 вместо 1 234 567. Посему до сих пор у меня тянется хвостом функция форматирования тех времен, которая сама создает тройки "### "
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2010, 22:03
    #36501109
Дмитрий77
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отформатировать Long?
Я воспользовался третьим вариантом "#,##0", оба предложенные дают что надо.
Не понимаю смысл $ (типа cStr ?) и главное где это может подвести.

В моем варианте был один малозаметный, но явный "глюк".
Если сделать вот так
Код: plaintext
"Size: " & Trim(Format(GetFileS(frmControls.Tag), "# ### ###")) & " bytes"
то глюк "исправляется".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2010, 22:08
    #36501115
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как правильно отформатировать Long?
Дмитрий77Не понимаю смысл $ (типа cStr ?) и главное где это может подвести.

Вы склеиваете String с Variant, таким образом запуская неявное преобразование. Это просто некошерно, но ни к каким глюкам не приведет. Функция Format$ возвращает String.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как правильно отформатировать Long? / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]