ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как правильно отформатировать Long?
6 сообщений из 6, страница 1 из 1
Как правильно отформатировать Long?
    #36500405
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
Речь идет о размерах файлов в байтах:
Рисовать надо вот это(в завис. от результата)
Выводить с пробелами между разрядами.
"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, 16:52
| Ответить | Цитировать | Написать  
Как правильно отформатировать Long?
    #36500473
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Два исправления:
Код: plaintext
"Size: " & Format$(GetFileS(frmControls.Tag), "# ### ##0") & " bytes"
...
Рейтинг: 0 / 0
03.03.2010, 17:09
| Ответить | Цитировать | Написать  
Как правильно отформатировать Long?
    #36500594
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
Shocker.ProДва исправления

И еще одно:

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

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

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

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

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

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


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