Быстрое преобразование файлов (.rtf | .doc) в синтаксис уценки с помощью PHP - PullRequest
Новая
       36

Быстрое преобразование файлов (.rtf | .doc) в синтаксис уценки с помощью PHP

40 голосов
/ 25 июня 2009

Я уже несколько дней вручную конвертирую статьи в синтаксис Markdown, и это становится довольно утомительным. Некоторые из них - 3 или 4 страницы, курсив и другой выделенный текст повсюду. Есть ли более быстрый способ преобразования (.rtf | .doc) файлов в чистый синтаксис Markdown, который я могу использовать в своих интересах?

Ответы [ 7 ]

91 голосов
/ 21 сентября 2011

Если вы оказались на Mac, textutil хорошо конвертирует doc, docx и rtf в html, а pandoc хорошо конвертирует полученный html в уценку: 

$ textutil -convert html file.doc -stdout | pandoc -f html -t markdown -o file.md

У меня есть сценарий , который я некоторое время назад собирал вместе, который пытается использовать textutil, pdf2html и pandoc для преобразования всего, что я выбрасываю, в уценку.

11 голосов
/ 10 мая 2011

ProgTips имеет возможное решение с макросом Word (загрузка исходного кода) :

A простой макрос (загрузка исходного кода) для автоматического преобразования самых простых вещей. Этот макрос делает:

  • Заменить жирным шрифтом и курсивом
  • Заменить заголовки (помеченные заголовки 1-6)
  • Заменить нумерованные и маркированные списки

Это очень глючно, я думаю, что оно висит на больших документах, однако я НЕ утверждая, что это стабильный релиз в любом случае! :-) Только для экспериментального использования, перекодировать и использовать его как угодно, оставить комментарий, если вы нашли лучшее решение.

Источник: ProgTips

Источник макросов

Установка

  • открыть WinWord,
  • нажмите Alt + F11, чтобы открыть редактор VBA,
  • щелкните правой кнопкой мыши первый проект в браузере проектов
  • выберите вкладыш-> модуль
  • вставьте код из файла
  • закрыть редактор макросов
  • go tools> macro> macros; запустите макрос с именем MarkDown

Источник: ProgTips

Источник

Источник макросов для безопасного хранения, если ProgTips удалит сообщение или сайт будет уничтожен: 

'*** A simple MsWord->Markdown replacement macro by Kriss Rauhvargers, 2006.02.02.
'*** This tool does NOT implement all the markup specified in MarkDown definition by John Gruber, only
'*** the most simple things. These are:
'*** 1) Replaces all non-list paragraphs to ^p paragraph so MarkDown knows it is a stand-alone paragraph
'*** 2) Converts tables to text. In fact, tables get lost.
'*** 3) Adds a single indent to all indented paragraphs
'*** 4) Replaces all the text in italics to _text_
'*** 5) Replaces all the text in bold to **text**
'*** 6) Replaces Heading1-6 to #..#Heading (Heading numbering gets lost)
'*** 7) Replaces bulleted lists with ^p *  listitem ^p*  listitem2...
'*** 8) Replaces numbered lists with ^p 1. listitem ^p2.  listitem2...
'*** Feel free to use and redistribute this code
Sub MarkDown()
    Dim bReplace As Boolean
    Dim i As Integer
    Dim oPara As Paragraph


    'remove formatting from paragraph sign so that we dont get **blablabla^p** but rather **blablabla**^p
    Call RemoveBoldEnters


    For i = Selection.Document.Tables.Count To 1 Step -1
            Call Selection.Document.Tables(i).ConvertToText
    Next

    'simple text indent + extra paragraphs for non-numbered paragraphs
    For i = Selection.Document.Paragraphs.Count To 1 Step -1
        Set oPara = Selection.Document.Paragraphs(i)
        If oPara.Range.ListFormat.ListType = wdListNoNumbering Then
            If oPara.LeftIndent > 0 Then
                oPara.Range.InsertBefore (">")
            End If
            oPara.Range.InsertBefore (vbCrLf)
        End If


    Next

    'italic -> _italic_
    Selection.HomeKey Unit:=wdStory
    bReplace = ReplaceOneItalic  'first replacement
    While bReplace 'other replacements
        bReplace = ReplaceOneItalic
    Wend

    'bold-> **bold**
    Selection.HomeKey Unit:=wdStory
    bReplace = ReplaceOneBold 'first replacement
    While bReplace
        bReplace = ReplaceOneBold 'other replacements
    Wend



    'Heading -> ##heading
    For i = 1 To 6 'heading1 to heading6
        Selection.HomeKey Unit:=wdStory
        bReplace = ReplaceH(i) 'first replacement
        While bReplace
            bReplace = ReplaceH(i) 'other replacements
        Wend
    Next

    Call ReplaceLists


    Selection.HomeKey Unit:=wdStory
End Sub


'***************************************************************
' Function to replace bold with _bold_, only the first occurance
' Returns true if any occurance found, false otherwise
' Originally recorded by WinWord macro recorder, probably contains
' quite a lot of useless code
'***************************************************************
Function ReplaceOneBold() As Boolean
    Dim bReturn As Boolean

    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Font.Bold = True
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

    bReturn = False
    While Selection.Find.Execute = True
        bReturn = True
        Selection.Text = "**" & Selection.Text & "**"
        Selection.Font.Bold = False
        Selection.Find.Execute
    Wend

    ReplaceOneBold = bReturn
End Function

'*******************************************************************
' Function to replace italic with _italic_, only the first occurance
' Returns true if any occurance found, false otherwise
' Originally recorded by WinWord macro recorder, probably contains
' quite a lot of useless code
'********************************************************************
Function ReplaceOneItalic() As Boolean
    Dim bReturn As Boolean

        Selection.Find.ClearFormatting

    With Selection.Find
        .Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Font.Italic = True
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

    bReturn = False
    While Selection.Find.Execute = True
        bReturn = True
        Selection.Text = "_" & Selection.Text & "_"
        Selection.Font.Italic = False
        Selection.Find.Execute
    Wend
    ReplaceOneItalic = bReturn
End Function

'*********************************************************************
' Function to replace headingX with #heading, only the first occurance
' Returns true if any occurance found, false otherwise
' Originally recorded by WinWord macro recorder, probably contains
' quite a lot of useless code
'*********************************************************************
Function ReplaceH(ByVal ipNumber As Integer) As Boolean
    Dim sReplacement As String

    Select Case ipNumber
    Case 1: sReplacement = "#"
    Case 2: sReplacement = "##"
    Case 3: sReplacement = "###"
    Case 4: sReplacement = "####"
    Case 5: sReplacement = "#####"
    Case 6: sReplacement = "######"
    End Select

    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("Heading " & ipNumber)
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With


     bReturn = False
    While Selection.Find.Execute = True
        bReturn = True
        Selection.Range.InsertBefore (vbCrLf & sReplacement & " ")
        Selection.Style = ActiveDocument.Styles("Normal")
        Selection.Find.Execute
    Wend

    ReplaceH = bReturn
End Function



'***************************************************************
' A fix-up for paragraph marks that ar are bold or italic
'***************************************************************
Sub RemoveBoldEnters()
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Font.Italic = True
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Bold = False
    Selection.Find.Replacement.Font.Italic = False
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Font.Bold = True
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Bold = False
    Selection.Find.Replacement.Font.Italic = False
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

'***************************************************************
' Function to replace bold with _bold_, only the first occurance
' Returns true if any occurance found, false otherwise
' Originally recorded by WinWord macro recorder, probably contains
' quite a lot of useless code
'***************************************************************
Sub ReplaceLists()
    Dim i As Integer
    Dim j As Integer
    Dim Para As Paragraph

    Selection.HomeKey Unit:=wdStory

    'iterate through all the lists in the document
    For i = Selection.Document.Lists.Count To 1 Step -1
        'check each paragraph in the list
        For j = Selection.Document.Lists(i).ListParagraphs.Count To 1 Step -1
            Set Para = Selection.Document.Lists(i).ListParagraphs(j)
            'if it's a bulleted list
            If Para.Range.ListFormat.ListType = wdListBullet Then
                        Para.Range.InsertBefore (ListIndent(Para.Range.ListFormat.ListLevelNumber, "*"))
            'if it's a numbered list
            ElseIf Para.Range.ListFormat.ListType = wdListSimpleNumbering Or _
                                                    wdListMixedNumbering Or _
                                                    wdListListNumOnly Then
                Para.Range.InsertBefore (Para.Range.ListFormat.ListValue & ".  ")
            End If
        Next j
        'inserts paragraph marks before and after, removes the list itself
        Selection.Document.Lists(i).Range.InsertParagraphBefore
        Selection.Document.Lists(i).Range.InsertParagraphAfter
        Selection.Document.Lists(i).RemoveNumbers
    Next i
End Sub

'***********************************************************
' Returns the MarkDown indent text
'***********************************************************
Function ListIndent(ByVal ipNumber As Integer, ByVal spChar As String) As String
    Dim i  As Integer
    For i = 1 To ipNumber - 1
        ListIndent = ListIndent & "    "
    Next
    ListIndent = ListIndent & spChar & "    "
End Function

Источник: ProgTips

9 голосов
/ 16 ноября 2012

Если вы открыты для использования формата .docx, вы можете использовать этот PHP-скрипт, который я соберу, который будет извлекать XML, выполнять некоторые XSL-преобразования и выводить довольно приличный эквивалент Markdown:

https://github.com/matb33/docx2md

Обратите внимание, что он предназначен для работы из командной строки и довольно прост в своем интерфейсе. Тем не менее, это сделает работу!

Если скрипт не работает достаточно хорошо для вас, я призываю вас прислать мне ваши .docx файлы, чтобы я мог воспроизвести вашу проблему и исправить ее. Зарегистрируйте проблему в GitHub или свяжитесь со мной напрямую, если хотите.

7 голосов
/ 27 августа 2011

Pandoc - хороший инструмент преобразования командной строки, но опять же, вам сначала нужно получить ввод в формате, который может прочитать Pandoc, а именно:

  • уценка
  • reStructuredText
  • текстильный
  • HTML
  • Латекс
3 голосов
/ 26 марта 2014

У нас была та же проблема с необходимостью конвертировать документы Word в уценку. Некоторые были более сложными и (очень) большими документами с математическими уравнениями и изображениями и тому подобным. Поэтому я сделал этот скрипт, который конвертирует с использованием ряда различных инструментов: https://github.com/Versal/word2markdown

Поскольку он использует цепочку из нескольких инструментов, он более подвержен ошибкам, но может быть хорошей отправной точкой, если у вас есть более сложные документы. Надеюсь, что это может быть полезно! :)

Обновление: В настоящее время он работает только на Mac OS X, и вам необходимо установить некоторые требования (Word, Pandoc, HTML Tidy, git, node / npm). Чтобы он работал правильно, вам также нужно открыть пустой документ Word и выполнить: Файл-> Сохранить как веб-страницу-> Совместимость-> Кодировка-> UTF-8. Затем эта кодировка сохраняется по умолчанию. См. README для более подробной информации о том, как настроить.

Затем запустите это в консоли: 

$ git clone git@github.com:Versal/word2markdown.git
$ cd word2markdown
$ npm install
(copy over the Word files, for example, "document.docx")
$ ./doc-to-md.sh document.docx document_files > document.md

Тогда вы сможете найти уценку в document.md и изображения в каталоге document_files.

Возможно, сейчас это немного сложно, поэтому я приветствовал бы любой вклад, который облегчит это или сделает эту работу на других операционных системах! :)

1 голос
/ 17 декабря 2013

Вы пробовали это? Не уверен насчет функциональности, но он работает для простых текстов. http://markitdown.medusis.com/

0 голосов
/ 26 октября 2014

В рамках университетского курса по рубину я разработал инструмент, который может конвертировать файлы слов openoffice (.odt) в уценку. Необходимо сделать много предположений для того, чтобы привести его к правильному форматированию. Например, трудно определить размер текста, который должен рассматриваться как заголовок. Однако единственная мысль, которую вы можете потерять при этом преобразовании, - это форматирование любого встречаемого текста, всегда добавляемого к документу уценки. Разработанный мной инструмент поддерживает списки, полужирный и курсивный текст и синтаксис для таблиц.

http://github.com/bostko/doc2text Попробуйте и пожалуйста, дайте мне свой отзыв.

...