VBA и WORD

[baranich]

Так что ли
Private Sub CommandButton3_Click()
i = 0
Holliday(i) = CInt(ComboBox1.Text)
i = i + 1
End Sub

[Alf]

Не так. Счетчик не должен быть локальным в обработчике нажатия кнопки. Сейчас при каждом нажатии i обнуляется, поэтому дальше единицы дело никогда не продвинется.

[baranich]

Поняла, а вот вопросик
ThisDocument.TextBox1.Text=FirstOfNextMonth
т.е TextBox получает дату в виде 10.01.05, а мне надо чтобы месяц был написан, т.е не 01, а январь

[Alf]

Нужно привести дату к нужному представлению функцией Format.

Строка формата будет что-то вроде "dd mmmm yyyy"

[baranich]

Вопрос

Код:

For i = 70 To 92
    While (Weekday(FirstOfNextMonth) = 1) Or (Weekday(FirstOfNextMonth) = 7)
        For oa = 0 To p
            While (FirstOfNextMonth = WDay(oa))
                a(i) = FirstOfNextMonth
                Exit For
      
            Wend
        Next oa
       FirstOfNextMonth = FirstOfNextMonth + 1 
    Wend
............
............
............

FirstOfNextMonth = FirstOfNextMonth + 1

Вопрос вот в чем, можно ли на VBA сделать чтобы в цикле While (FirstOfNextMonth = WDay(oa)) после  Exit For вставить какой-нибудь оператор(я не знаю существует он или нет), который позволял бы пройти мимо операции(они показаны точками) и сразу переходил на операцию FirstOfNextMonth = FirstOfNextMonth + 1

[Alf]

Такой оператор существует. Это столь нелюбимый программистами оператор перехода GOTO.

[baranich]

Такой вопрсик, есть текстовый документ, у которого такое содержание

Код:

текст1
текст2

текст3
текст4

Между текст2 и текст3 две строки пусты, как сделать  цикл, чтобы текст1 и текст3 передавались в один массив, а текст2 и текст4 в другой, т.е когда доходит до двух пустых строк цикл начинался заново?

[Alf]

Именно так и сделать - подсчитывать число идущих подряд пустых строк и, когда их число достигнет двух, начать новый цикл.

[baranich]

а если такой файл

Код:

текст1
текст2

текст3
........
тукст10


текст11
текст12

текст13
........
тукст20

Между строками текст2 текст3 и текст12 текст13 - одна пустая строка, а между текст10 и текст11 две строки.

[Alf]

В чем суть вопроса-то? Это утверждение, а не вопрос.

[baranich]

а как посчитать пустые строки, что то я не пойму.

[baranich]

текст1 и текст11 заносятся в один массив, текст2 и текст12 заносятся в другой массив, текст3-10 и текст13-20 заносятся в ещё один  массив, как это сделать?

[Alf]

а как посчитать пустые строки, что то я не пойму.

Точно так же, как делала бы это сама, без компьютера:

Код:

...
EmptyStringCount = 0;
...
Str = InStream.ReadLine
if Len(Str) = 0 then
  EmptyStringCount = EmptyStringCount + 1
else
  EmptyStringCount = 0
end if
...
if (EmptyStringCount >= 2) then ...

[Alf]

текст1 и текст11 заносятся в один массив, текст2 и текст12 заносятся в другой массив, текст3-10 и текст13-20 заносятся в ещё один массив, как это сделать?

Не уловил закономерность. По какому принципу строки распределяются по массивам?

[baranich]

Код:

текст1
текст2

текст3
........
тукст10


текст11
текст12

текст13
........
тукст20

 с текст1 по текст10- это первый блок,  с текст11 по текст20 - это второй блок
первая строка каждого блока заноситься в один массив, вторая сторока - в другой массив, потом идет пустая строка, потом в каждом блоке идут несколько строк друг за другом их надо поместить в третий массив

[baranich]

между блоками идет две пустые строки

[Alf]

Так и сделать.

Первую строку - в первый массив, вторую - во второй, пропустить пустую, остальные заносить в третий, пока не попадется пустая. Если за ней идет еще одна пустая, закончить блок и начать заново.

[baranich]

что означает эта строка?
EmptyStringCount = 0

[Alf]

Переменной по имени EmptyStringCount присвоить значение ноль.

[baranich]

Вопросик, если у меня строка такая

Иванов Иван Иванович
Сидоров Сергей Сергеевич
в массив1 занести фамилии, в массив2 занести имена, а в массив3 занести отчества
как это сделать

[Alf]

Использовать функцию Split(str).

Эта функция вернет массив, заполненный отдельными словами из строки str. Дальше останется только раскидать элементы по нужным местам.

[baranich]

У меня проблемы всё с этим текстовым файлом.

Код:

текст1
текст2

текст3
........
тукст10


текст11
текст12

текст13
........
тукст20

Можно ли посчитать количество строк в каждом блоке, я знаю как посчитать во всем файле, а как посчитать строки в блоке, т.к в разных блоках количество строк разное? помогите

[Alf]

Я не совсем понял насчет того, каким образом текст разбивается на блоки. Ранее говорилось, что между блоками по две пустые строки. А если одна пустая, то в этом случае блок продолжается дальше?

[baranich]

файл заполняется в ручную, а потм с помощью программы нформация будет перекида в базу данных, скидываю оригинальный файл

Код:

ЗАО «КорпусГрупп»
ОИТ
                                  'данную строку можно убрать
Зиновьев Иван Петрович
Чунцов Андрей Олегович

                                  'каждый отдел - это новый блок, между блоками две пустые строки, чтоб как-то отделить их друг от друга
ЗАО «КорпусГрупп»
АХО

Киркина Марина Викторовна
Комсова Ирина Валерьевна

                                      ' Количество Людей в каждом отделе разное
ООО "Сервис Клининг"
Отдел продаж

Гуров Владимир Иванович
Маков Дмитрий Владимирович
Сидоров Константин Пертович

Вот как  посчитать количество людей в каждом отделе?

[Alf]

Вот как посчитать количество людей в каждом отделе?

Код:

отдел = 0
счетчик_сотрудников = 0
счетчик_пустых_строк = 0
while not конец_входного файла
  отдел = отдел + 1
  счетчик_сотрудников = 0
  считать_строку(название_фирмы)
  считать_строку(название_отдела)
  do
    считать_строку(стр)
    if (пустая строка(стр)) then
      счетчик_пустых_строк = счетчик_пустых_строк + 1
    else
      счетчик_сотрудников = счетчик_сотрудников + 1
      счетчик_пустых_строк = 0
    end if
  loop until (счетчик_пустых_строк >= 2)
  вывести(название_фирмы, название_отдела, счетчик_сотрудников)
wend

Примерно так.

[baranich]

спасибо, сейчас попробую

[baranich]

Спасибо, за советы они мне очень помогли, то теперь у меня вопросик как с помощью VBA  в  WORD'е можно очистить буфер обмена?

[Alf]

Напрямую - не знаю, но можно попробовать схитрить - выделить пустую область и сохранить ее в буфере, она должна затереть предыдущее содержание.

[baranich]

у меня проблема именно в том, что переполняется буфер обмена и его надо очистить полностью.

[baranich]

Возможно этот вопрос не для программистов, но очень важный вопрос.
Возможно ли увеличить в Word'е буфера обмена(у меня он 24 копирования) и поэтому когда моя программа работает и достигнув 48-ого копирования он выдает ошибку. Можно ли увеличить буфера обмена?