текстовыый файл и word и vba

[baranich]

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

Код: Выделить всё

текст1

текст2

текст3

текст4


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

[lord0n]

Код: Выделить всё


dim a(4) as string

for x=1 to 8
   
    b=range("a" & x).cells
    if b<>"" then
        c=c+1
        a(c)=b
    end if
next x


так?

[baranich]

а пояснить можно, не совсем понятно

[baranich]

Код: Выделить всё

b=range("a" & x).cells

Что означает эта строка?

[lord0n]

переберает ячейки

[baranich]

Код: Выделить всё

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

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


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

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


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

[lord0n]

Код: Выделить всё

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

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


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

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


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

выложи пример, а я выдожу готовый макрос

[Al Khamid]

Б,Ю

[baranich]

Сударыня, я от Вас просто офигеваю.
Складывается впечатление, что прежде чем подумать (не то что справку открыть), Вы сразу пишете в форум. Понятно, что Вам помогут, но вообще нужно ли Вам программирование?

Извините, я думала это форум программирования, а не форум оскорблений.

[lord0n]

Сударыня, я от Вас просто офигеваю.
Складывается впечатление, что прежде чем подумать (не то что справку открыть), Вы сразу пишете в форум. Понятно, что Вам помогут, но вообще нужно ли Вам программирование?

Извините, я думала это форум программирования, а не форум оскорблений.

форум по программированию, но и основы знать нуна

[baranich]

основы я знаю, но есть нюансы в книгах которых нет, и их можно узнать только на форумах

[lord0n]

основы я знаю, но есть нюансы в книгах которых нет, и их можно узнать только на форумах

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

[baranich]

Да ладно, спасибо конечно за помощь, но сама разберусь.

[lord0n]

попробуй, я думаю тама ниче сложного нет

[K.Sergey]

Из-за отсутствия у baranich чувства благодарности я уже зарекся ей помогать. Но тем не менее, ради справедливости хотел бы отметить, что этот код ей не понятен потому, что она в Word, а не в Excel программирует.
Однако уточнять в начале каждой новой темы забывает...

[lord0n]

Из-за отсутствия у baranich чувства благодарности я уже зарекся ей помогать. Но тем не менее, ради справедливости хотел бы отметить, что этот код ей не понятен потому, что она в Word, а не в Excel программирует.
Однако уточнять в начале каждой новой темы забывает...

спасибо за совет, терь буду знать, что делать