число в формате, который не известен / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / число в формате, который не известен

11 сообщений из 11, страница 1 из 1

число в формате, который не известен

#37384177

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Здравствуйте, например надо 1, написать в формате "000", то есть "001"
Делаю так:

Код: plaintext

Число_с_форматом$ = Format( 1 , "000") 'преобразовывает число к указанному формату

а когда формат ещё не известен тогда как??
то есть есть список в документе Ворд

Код: plaintext

Dim strКоличество_строк_списка As String
strКоличество_строк_списка = ActiveDocument.Lists.Item( 7 ).ListParagraphs.Count

ну узнал, что в нём, например 125 строк
ну узнал, что формат состоит из трёх цифр

Код: plaintext

Dim Len_strКоличество_строк_списка As Byte
Len_strКоличество_строк_списка = Len(strКоличество_строк_списка)

а далее как

Код: plaintext

Число_с_форматом$ = Format( 1 , "000") ' вместо "000" где переменную брать??

Спасибо

...

Рейтинг:

0 / 0

07.08.2011, 16:57

| Ответить | Цитировать | Написать

число в формате, который не известен

#37384193

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

чудеса

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Dim strКоличество_строк_списка As String
strКоличество_строк_списка = ActiveDocument.Lists.Item( 7 ).ListParagraphs.Count

If strКоличество_строк_списка <  10  Then
Нолики = "0"
ElseIf strКоличество_строк_списка <  100  Then
Нолики = "00"
ElseIf strКоличество_строк_списка <  1000  Then
Нолики = "000"
ElseIf strКоличество_строк_списка <  10000  Then
Нолики = "0000"
'Integer - число от -32768 до 32767
End If
'преобразовывает число к указанному формату
Число_с_форматом$ = Format( 1 , "" & Нолики & "")

Вроде сделал, а удовлетворения нет

...

Рейтинг:

0 / 0

07.08.2011, 17:20

| Ответить | Цитировать | Написать

число в формате, который не известен

#37384242

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Ципихович Эндрю

Код: plaintext

вместо "000" где переменную брать??

см. функцию String

...

Рейтинг:

0 / 0

07.08.2011, 18:30

| Ответить | Цитировать | Написать

число в формате, который не известен

#37384290

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Shocker.Pro, так я её и взял - Нолики называется
Тут бы Space использовать - но он только с пробелами работает

...

Рейтинг:

0 / 0

07.08.2011, 19:55

| Ответить | Цитировать | Написать

число в формате, который не известен

#37384298

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Ципихович ЭндрюТут бы Space использовать - но он только с пробелами работаетДА БЛИН! Где мой молоток, стукнуть тебе по голове.

Я тебе сказал - см. функцию String, a ты мне про Space.

...

Рейтинг:

0 / 0

07.08.2011, 20:14

| Ответить | Цитировать | Написать

число в формате, который не известен

#37384308

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Shocker.Pro, я в шоколаде
Функция String
String(Number,Character)
Функция String используется для создания строки из одинаковых символов

Возвращаемое значение
Возвращает значение типа Variant (String), содержащее повторяющуюся строку указанной длины

Сейчас сооружу

...

Рейтинг:

0 / 0

07.08.2011, 20:29

| Ответить | Цитировать | Написать

число в формате, который не известен

#37384320

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

краткость моя сестра:

Код: plaintext

1.
2.
3.
4.

Dim strКоличество_строк_списка As String
strКоличество_строк_списка = ActiveDocument.Lists.Item( 7 ).ListParagraphs.Count

'преобразовывает число к указанному формату
Число_с_форматом$ = Format( 1 , String$(Len(strКоличество_строк_списка), "0"))

СПАСИБО!!!!!!!!

...

Рейтинг:

0 / 0

07.08.2011, 20:57

| Ответить | Цитировать | Написать

число в формате, который не известен

#37384338

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Ципихович ЭндрюТут бы Space использовать - но он только с пробелами работаетКстати, даже если бы у тебя в распоряжении была только Space, кто мешал сделать так:

Ципихович Эндрю

Код: plaintext

исло_с_форматом$ = Format( 1 , Replace(Space(Len(strКоличество_строк_списка)), " ", "0"))

...

Рейтинг:

0 / 0

07.08.2011, 21:35

| Ответить | Цитировать | Написать

число в формате, который не известен

#37384341

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Shocker.Pro, ну это уже навороты, это когда помню, неделя пройдёт, начну вспоминать
одним словом я в шоколаде, спасибо

...

Рейтинг:

0 / 0

07.08.2011, 21:39

| Ответить | Цитировать | Написать

число в формате, который не известен

#37384351

скукотища

Гость

Ципихович Эндрю,
кстати, даже если бы у тебя в распоряжении не было даже Space

Код: plaintext

1.
2.
3.

Dim Нолики$

Нолики = "0000000000" ' <-- с запасом, чтобы на всех хватило
Число_с_форматом$ = Right$(Нолики &  1 ,Len(strКоличество_строк_списка))

...

Рейтинг:

0 / 0

07.08.2011, 21:58

| Ответить | Цитировать | Написать

число в формате, который не известен

#37384366

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

скукотища, ой спасибо завалили ответами, остановился на первом

...

Рейтинг:

0 / 0

07.08.2011, 22:31

| Ответить | Цитировать | Написать

11 сообщений из 11, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / число в формате, который не известен

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=37384320&tid=2158509]:	0ms
get settings:	8ms
get forum list:	11ms
check forum access:	4ms
check topic access:	4ms
track hit:	41ms
get topic data:	8ms
get forum data:	2ms
get page messages:	40ms
get tp. blocked users:	1ms
others:	417ms

total:	536ms