[WORD] Нужно перевести таблицу в текст!

[kibernetics]

Народ, кто-нибудь пробовал отрисовать таблицу знаками "-" и "!" ?
В общем, есть динамическая таблица в ворде, я беру Row, просчитываю сколько в Row ячеек, получаю ширину ячейки в Single,
но никак не могу сопоставить значение Single - количеству символов.
Как можно определить по ширине ячейки, сколько тирешек печатать?

[karlex]

Определи ширину одной "тирешки", подели ей ширину ячейки, собственно получишь кол-во.

[Lilo]

single/(длину '-') * row

[karlex]

single/(длину '-') * row

Длину? Может ширину?

Умножить на номер строки? (... * row)
Хм... А может кол-во строк? (RowsCount) Все равно не понятно...
А может всетаки умножить на кол-во столбцов? (... * ColumnsCount)
Но и тут нас может ждать неудача, т.к. не известно заранее, у всех ли ячеек ширина равна, ведь автор об этом не рассказал.

[alibek]

Определи ширину одной "тирешки", подели ей ширину ячейки, собственно получишь кол-во.

А ты не забыл, что нужно учитывать еще и величину расстояния между символами?

[Lilo]

single/(длину '-') * row

Длину? Может ширину?

Умножить на номер строки? (... * row)
Хм... А может кол-во строк? (RowsCount) Все равно не понятно...
А может всетаки умножить на кол-во столбцов? (... * ColumnsCount)
Но и тут нас может ждать неудача, т.к. не известно заранее, у всех ли ячеек ширина равна, ведь автор об этом не рассказал.

ну во-первых, под "длиной" издревле люди подразумевали расстояние между двумя самыми удаленными точками (даже слова похожи "длинный" и "удаленный")

на счет (...*row) я конечно загналась, здесь имелось в виду количество ячеек в row, назовем его count. Тогда получаем соотношение

count*single/(длину '-' вместе с промежутком)

в случае неоднородной ширины ячеек, используем массив

i=1 to count
sum=sum+single(i)/(длину '-' вместе с промежутком)

ЗЫ это все подразумевалось, мог бы сам догадаться

[alibek]

count*single/(длину '-' вместе с промежутком)

И чему же равен промежуток?

[karlex]

А ты не забыл, что нужно учитывать еще и величину расстояния между символами?

Ладно бы забыл, а то ведь даже не знал =(
Надо будет поэксперементировать.

Lilo
На счет "мог бы догадаться", ты мог бы тоже догадаться, что я догадался =), а вот догадаются ли все, кто увидит твое сообщение?

[kibernetics]

Стоит упомянуть, что стиль используемый для текста в таблице моноширинный (Courier New), и во всех строка и ячейках одинаков. Всегда составляет Font.Size = 10.
И сама тирешка также отрисовывается этим же шрифтом.

[gjghjc]

Кол-во тирешек = максимально возможной длине содержимого ячейки + 2-3 тирешки для "типа форматирования" в этой ячейке

[kibernetics]

Кол-во тирешек = максимально возможной длине содержимого ячейки + 2-3 тирешки для "типа форматирования" в этой ячейке

я честно гря вообще ничего не понял...

[gjghjc]

Если я правильно понял то тебе нужно перегнать вордовскую табличку в текстовый файл, но при этом оформление должно выглядеть как таблица?
1. Для начала найдем самое длинно слово (словосочетание) в таблице
2. При помощи Len () найдем количество символов в этом слове.
3. К полученому значению прибавим 2 (если столбец №1 ) и 1 если любой последующий (Этим учитывается что под первым и последним знаком "-" рисующим ячейку твоей таблицы будет стоять символ "|")
Это и будет минимальным необходимым количеством знаков "-", которое необходимо для перевода таблицы в псевдотаблицу границы ячеек которой выделены знаками "-" и "|"
Например слово ВАСЯ самое длинное в 1-ом столбце твоей таблицы, тогда для обозначения границ ячейки тебе нужно будет напечатать 6 знаков "-"

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

-----------
|вася|Петя|
-----------
|ася |етя |
-----------
|ся  |тя  |
-----------
|я   |я   |
-----------

[karlex]

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

kibernetics
Ты еще не сделал что ли?

[alibek]

Видимо я тебя не понял, про какие промежутки ты говорил?

Сделай посимвольный вывод текста куда-нибудь (Print Mid$(text,i,1);).
Потом включи курсив и повтори вывод.
Тогда сразу увидишь, что означает интервал между символами.

[karlex]

Тогда сразу увидишь, что означает интервал между символами.

Эх... ну попробовал, ну вывел он мне символы и что? =)
Ну да, интервал между символами есть, не спорю, иначе они бы сливались, только я вот понять не могу, как его нужно учитывать при реализации сабжа?
У меня все нормально получается (вроде) через вышеперечисленные функции и формулу, может TextWidth всетаки все учитывает?

[kibernetics]

karlex
нет, ещё не сделал. ибо, пока есть много нюансов.

gjghjc
в ячейке может и не быть слова, или слово выровненное по середине или приклеено к правому краю и т.д., поэтому привязка к слову исключена, я уже думал изначально так делать. потом, таблица может ещё иметь не стандартную структуру, типа в первой строке три ячейки, во второй две, в третей - одна, в четвёртой опять три и т.д.

явно нужно именно привязываться к ширине ячейки, я уже начал вести журнал сколько минимальная ширина может быть ячейки, а потом ещё оказалось, что есть такая штука как отступ от края ячейки до символа, в общем, есть ещё над чем думать

[alibek]

У меня все нормально получается (вроде) через вышеперечисленные функции и формулу, может TextWidth всетаки все учитывает?

Выполни Debug.Print TextWidth("-"), TextWidth(String$(10000, "-")) / 10000.
С одними шрифтами числа будут одинаковы, с другими будут отличаться.
Так что лучше учитывать расстояние между символами самостоятельно.

[karlex]

С одними шрифтами числа будут одинаковы, с другими будут отличаться.
Так что лучше учитывать расстояние между символами самостоятельно.

Понятно.

[viter.alex]

Сам задумывался над этой проблемой, только хотел сразу делать через псевдографику ┌, ┤и прочие. Но до конца не довел.

…С одними шрифтами числа будут одинаковы, с другими будут отличаться…

В текстовом файле все равно моношрифт, поэтому расстояние между символами значения не имеет Важно только количество символов. Определить ширину ячейки несложно. Нужно только определится со шрифтом. Для Courier 10 кегля ширина тире равна 8 пикселов или 6 поинтов. Узнать это можно так:

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

Sub SymbolWidth()
  Dim t&, l&, h&, w&
  ActiveWindow.View.Zoom.Percentage = 100
  ActiveWindow.GetPoint l, t, w, h, Selection.Range
End Sub

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

[kibernetics]

Сам задумывался над этой проблемой, только хотел сразу делать через псевдографику ┌, ┤и прочие. Но до конца не довел.

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

В текстовом файле все равно моношрифт, поэтому расстояние между символами значения не имеет Важно только количество символов. Определить ширину ячейки несложно. Нужно только определится со шрифтом. Для Courier 10 кегля ширина тире равна 8 пикселов или 6 поинтов. Узнать это можно так:

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

Sub SymbolWidth()
  Dim t&, l&, h&, w&
  ActiveWindow.View.Zoom.Percentage = 100
  ActiveWindow.GetPoint l, t, w, h, Selection.Range
End Sub

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

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

[kibernetics]

вот, вроде есть решение для определения высоты таблицы: http://forum.codenet.ru/archive/index.php/t-15465.html
не проверял сам

[viter.alex]

Я тут подумал, можно ведь как ширину символа считать в пикселах, так и высоту строки таблицы, если ее выделить. Точно также получаем высоту выделения, делим на количество строк и получаем высоту одной строки. Как-то в в этом направлении. Сейчас нет времени кодить., а то можно попробовать.