Серый форум — AHK: Чтение DOC-файла

Re: AHK: Чтение DOC-файла

null@example.com (teadrinker) — Fri, 16 Feb 2024 20:30:14 +0000

Попробуйте так:

filePath := A_Desktop . "\test.doc"
FileGetSize, size, % filePath
FileRead, data, *c %filePath%
str := ""
offset := 0
while offset < size {
    part := StrGet(&data + offset, "cp0")
    str .= part = "" ? " " : part
    offset += part = "" ? 1 : StrLen(part)
}
MsgBox % Clipboard := str

Re: AHK: Чтение DOC-файла

null@example.com (1srafel) — Fri, 16 Feb 2024 19:38:20 +0000

Текст нужен не как в открытом doc-файле, а как в открытом Блокноте (простом текстовом редакторе).

Re: AHK: Чтение DOC-файла

null@example.com (inseption86) — Fri, 16 Feb 2024 19:11:26 +0000

1srafel


oWord := ComObjCreate("Word.Application")
doc := oWord.Documents.Open(A_Desktop "\Сопроводительное письмо.doc") 
MsgBox % doc.Range.Text
doc.Close(false)
oWord.Quit()
ExitApp

AHK: Чтение DOC-файла

null@example.com (1srafel) — Fri, 16 Feb 2024 18:28:59 +0000

Как получить в переменную тело DOC-файла так, как он выглядит при открытии через простой текстовый файл? То есть, это старый DOC-формат, в котором текст виден в блокноте. Вот так вместо большого содержимого, выводится несколько символов в юникоде:

FileRead, fbody, %File%
msgbox, %fbody%

Пробовал еще так:

FileRead, fbody, *P65001 %File%

Был код, работающий с DOC-файлами, но интересно именно получение текста напрямую.