Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

5 Июль 2020, 17:25 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: О функциях Join и Split  (Прочитано 545 раз)
0 Пользователей и 1 Гость смотрят эту тему.
sokol92
Форумчанин
***
Offline Offline

Пол: Мужской
Сообщений: 61


WWW
« Стартовое сообщение: 26 Апрель 2020, 19:13 »

В следующих примерах у меня выдается ошибка времени выполнения 9 - Индекс за пределами заданного диапазона. Если значение n в каждом из макросов уменьшить на 1, то ошибки нет.

Код:
Sub TestSplit
  Dim v, n
  n=16370
  v=Split(Space(n-1))
End Sub

Sub TestJoin
  Dim v, n, a
  n=16369
  redim a(n)
  v=Join(a)
End Sub

P.S. О баге (если у меня сейчас не обман зрения) сообщу.
Записан

Владимир.
bk
Участник
**
Offline Offline

Сообщений: 18


« Ответ #1: 27 Апрель 2020, 12:00 »

Sub TestSplit
  Dim v, n
  n=16370
  v=Split(Space(n-1)," ", n-1) 'получаем массив
  Print Ubound(v) ' = 16368 (0=>16368=16369)
End Sub

Sub TestJoin
  Dim v, n, a
  n=16369
  redim a(n)
  a=Array(Space(n)) 'заполнили массив
  v=Join(a) 'получаем строку
  Print Len(v) '=16369
End Sub
« Последнее редактирование: 27 Апрель 2020, 12:11 от bk » Записан
mikekaganski
Гуру
*******
Online Online

Пол: Мужской
Расположение: Хабаровск -> Москва
Сообщений: 1 919


« Ответ #2: 27 Апрель 2020, 12:20 »

Я это исправил в 7.0 (commit).
Записан

С уважением,
Михаил Каганский
sokol92
Форумчанин
***
Offline Offline

Пол: Мужской
Сообщений: 61


WWW
« Ответ #3: 27 Апрель 2020, 14:50 »

И еще раз спасибо, Михаил! У меня были подозрения на этот счет, поскольку в текстах этих функций (методов) я "криминала" не увидел (поэтому и написал про обман зрения).
Записан

Владимир.
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!