:: Visual Foxpro, Foxpro for DOS
Построчное чтение файла Word
lili

Сообщений: 432
Откуда: Сыктывкар
Дата регистрации: 07.11.2005
Приветствую всех!
Собственно, нужен сабж - из VFP9 прочитать построчно файл формата Word.
Ratings: 0 negative/0 positive
Re: Построчное чтение файла Word
piva

Сообщений: 18655
Откуда: Курган
Дата регистрации: 24.03.2004
А через что читать? Через Word или Как?

Если есть Word

o=CreateObject("word.application")
x=o.Documents.Add(Home()+"doc.docx")
? x.Content.Text


------------------
Часто бывает так, что есть над чем задуматься, а нечем.
Ratings: 0 negative/0 positive
Re: Построчное чтение файла Word
lili

Сообщений: 432
Откуда: Сыктывкар
Дата регистрации: 07.11.2005
Ну, примерно так. Просто хотелось читать построчно, по переносу каретки.
Ratings: 0 negative/0 positive
Re: Построчное чтение файла Word
piva

Сообщений: 18655
Откуда: Курган
Дата регистрации: 24.03.2004
По переводу каретки - может не получиться, потому что "правильно" - это когда один абзац, это или предложение или набор предложений без разделения переводом каретки. Хотя "щас" много вижу "не правильных" документов Ширина и переносы (не путать с переводом каретки) определяется полями форматирования документа, табуляцией и прочими атрибутами документа.


------------------
Часто бывает так, что есть над чем задуматься, а нечем.
Ratings: 0 negative/1 positive
Re: Построчное чтение файла Word
ssa

Сообщений: 12999
Откуда: Москва
Дата регистрации: 23.03.2005
lili
Ну, примерно так. Просто хотелось читать построчно, по переносу каретки.
По переносу каретки в Word можно посчитать только абзацы. Ибо только они определяются этим символом. Word не лепит переносы каретки внутри абзаца для деления на строки. А содержимое строки зависит от настроек шрифтов, отступов, размера бумаги, принтера, интерлиньяжа, кернинга и пр. Понятие строка в нем сугубо виртуальное и меняется при каждом изменении текста и настроек.

------------------
Лень - это неосознанная мудрость.




Исправлено 1 раз(а). Последнее : ssa, 06.02.23 11:51
Ratings: 0 negative/1 positive
Re: Построчное чтение файла Word
Ydin

Сообщений: 7648
Откуда: Киев
Дата регистрации: 16.12.2005
lili, могу сбросить свой построитель по макету в Ворде.
Он давно у меня написан, и я сам не помню всех нюансов своего кода.
Но он работает много лет.
Если Вам интересно - скажите!
Естественно, что никаких от меня "требований".
Но, может, быстро не получится, у меня местные проблемы со светом и Интернетом.
Но хочется помочь. Был бы рад!



Исправлено 1 раз(а). Последнее : Ydin, 06.02.23 13:35
Ratings: 0 negative/0 positive
Re: Построчное чтение файла Word
lili

Сообщений: 432
Откуда: Сыктывкар
Дата регистрации: 07.11.2005
Ydin
lili, могу сбросить свой построитель по макету в Ворде.
Спасибо, сбросьте, я бы посмотрела.
Ratings: 0 negative/0 positive
Re: Построчное чтение файла Word
Ydin

Сообщений: 7648
Откуда: Киев
Дата регистрации: 16.12.2005
тексты в личку послал
*PasteFromArray( loSheet,laPasteArray,ln1,ln2 )
*Вставить значения ячеек из массива laPasteArray из ячейки lnLine1,lnCol1 для страницы loSheet


text to lcText
1, Kalmex 19803-02,3
3,2,1
aa,bb,120
endtext
local laArray(1)
lnCols = 3
Aline2(@laArray, lcText, lnCols, ',')
crea curs wPrint (id C(2), Name C(20), Sum1 C(10))

* Из массива получаем курсор
appe from array laArray
Msgbox([Смотрим курсор для этого теста])
brow
* Макет Ворда - wru.docx
Quickwrd('maket\wru_','wru')

*
*+ Aline2 - создает 2-мерный массив по строке с двумя разделителями
*
FUNCTION Aline2
LPARAMETERS laArray, lcText, lnCols, lcTab, lcCrlf
LOCAL lnLines
m.lnCols=EVL(m.lnCols,2)

m.lnLines=ALINES(m.laArray,m.lcText,EVL(m.lcCrlf,CHR(13)+CHR(10)),EVL(m.lcTab,CHR(9)))
IF m.lnCols>1 AND m.lnLines>=m.lnCols
m.lnLines=INT(m.lnLines/m.lnCols)
DIMENSION m.laArray(m.lnLines,m.lnCols)
ENDIF
RETURN m.lnLines

Может что-то еще. Скажите, если что-то не так



Исправлено 3 раз(а). Последнее : Ydin, 07.02.23 11:20
Ratings: 0 negative/0 positive
Re: Построчное чтение файла Word
of63
Автор

Сообщений: 25161
Откуда: Н.Новгород
Дата регистрации: 13.02.2008
Пива правильно сказал - сначала пойми, где там в верде "текст"... бывает "теги", бывет нет, как в "ПДФ"...

() А цель? - написать транслятор из ведра в "текст"... в Верде есть для этого внутренние проги, АПИ. Снаружи, разбором текста? Девушка, определитесь )
Ratings: 0 negative/0 positive
Re: Построчное чтение файла Word
Ydin

Сообщений: 7648
Откуда: Киев
Дата регистрации: 16.12.2005
lili, у Ворда сложнее, чем у простого редактора текстов. Там форматы внутри, но не буду много об этом.
В Иксель тоже, и мы работаем через макеты. Макет упрощает жизнь в Ворде, как и в Иксел.
Поэтому я предложил то, что предложил
Ratings: 0 negative/0 positive
Re: Построчное чтение файла Word
of63
Автор

Сообщений: 25161
Откуда: Н.Новгород
Дата регистрации: 13.02.2008
Девушка умная, и должна понять свой вопрос, верю в Лили!
Ratings: 0 negative/0 positive


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

On-line: 40 Rifat  (Гостей: 39)

© 2000-2024 Fox Club 
Яндекс.Метрика