выписать каждый 5-символ

[StillFree]

Плз подскажите как Microsoft Office Word сделать так чтоб он выписал к примеру каждый 5-символ... Пример: 123456789101112131415... =>
5121...

Зарание Спасибо)

[viter.alex]

Только не понятно причем здесь Microsoft Office Word.

Sub Eachfifth()
  Dim i#, s$, s1$
  s = "123456789101112131415"
  For i = 5 To Len(s) Step 5
    s1 = s1 & Mid(s, i, 1)
  Next i
  MsgBox s1
End Sub

[StillFree]

Огромное Спасибо)

[viter.alex]

Сообщение от StillFree

Огромное Спасибо)

Пожалуйста, только вам от этого какая польза? Признайтесь, а?

[StillFree]

Еще такой вопос))) а что если s=ну очень большому числу, и соответственно оно в строчку не влазеет и из за этого возникает ошибка) как быть?

[StillFree]

А польза какая?! =) просто решил убить время ненужными делами, хочу поиграть с простыми числами что то вроде скип кодов))) После просмотра фильма "23" =)

[viter.alex]

Сообщение от StillFree

Еще такой вопос))) а что если s=ну очень большому числу, и соответственно оно в строчку не влазеет и из за этого возникает ошибка) как быть?

Это ж какое число вам нужно? Вот что говорит справка о типе данных String:

• A variable-length string can contain up to approximately 2 billion (2^31) characters.
• A fixed-length string can contain 1 to approximately 64K (2^16) characters.

Переводим: строка переменной длины может содержать приблизительно 2 миллиарда (2^31) символов.
строка фиксированной длины может содержать от 1 до приблизительно 64 тысяч (2^16) символов.

[StillFree]

Сообщение от viter.alex

Это ж какое число вам нужно?

в нем всего то примерно 2223 сивола =)

[Sasha_Smirnov]

Сообщение от viter.alex

Только не понятно причем здесь Microsoft Office Word.

Как же?! Мы это делаем в редакторе VBA, открываемом в т. ч. и в Ворде, по альт-F11.

Автору: а я тоже с простыми числами играл — разлагал на множители 29-значные номера; тут и программа моя есть на эту тему.

А ваша игра в чём состоит? Фильм я не смотрел.

[viter.alex]

Сообщение от Sasha_Smirnov

Как же?! Мы это делаем в редакторе VBA, открываемом в т. ч. и в Ворде, по альт-F11…

А-а-а-а-а-а! Ну разве что.

Сообщение от StillFree

в нем всего то примерно 2223 сивола =)

Итого 444 символа получится. Где ошибка возникает?

Добавлено позже
Вот генерируем строку со случайными числами от 1 до 9. В строке 2223 символа. Затем извлекаем каждый пятый элемент. Как я и предупреждал — 444 символа. (и шесть десятых )

Sub Eachfifth()
  Dim i#, s$, s1$
  For i = 0 To 2222
    Randomize
    s = s & CStr(Int(9 * Rnd) + 1)
  Next i
  For i = 5 To Len(s) Step 5
    s1 = s1 & Mid(s, i, 1)
  Next i
  MsgBox s1 & vbCr & "Всего " & Len(s1) & " символа."
End Sub