конвертиране ASCII - Unicode

здравейте

писал съм в други клубове по този въпрос, но благодарение на Щирлиц си изясних въпроса и моля за помощ вас

имам много голямо количество документи писани даже и с word 2.x (или поне така ги разпознава настоящия ми уърд екс пи)

конкретно на въпроса: възможно ли е автоматично да стане конвертирането към юникод
*под конвертиране включвам: смяна на шрифта(към ariel напр.) и коректна кодова таблица/настройка - т.е. cyrillic
подобно нещо извършва майкрософтски инструмент "Fix broken text" - т.е. той го прави чудесно, но за съжаление ръчно отваряне на документа един по един и пускането не са най-подходящи, тъй като документите са около 3 000 - освен, че става ужасно бавно като действия, този фикс брокън текст взима всичко (което му е възможно) от процесора - по време на работа от 0-1% забива на 100% ползването

за мое голямо съжаление имам абсолютно елементарни познания по VB и VBA
(не съм за този клуб..)
намерил съм някакво алтернативно на "Fix broken text" решение, което явно е на VB, но е със заключен код и върши работата донякъде - т.е. конвертира към unicode от ascii
говоря за продукта на акт-софт "кирила конверт"
ако то може да бъде полезно - ще го предоставя на всеки (btw - купен съвсем официално :))

благодаря предварително на всеки!

п.п. извинявам се, ако ползвам термини неправилно - надявам се това да не попречи за разбирането същността на проблема

наистина ли не може да се направи нищо?

ако проблема е политически, т.е. финансов - кажете (най-малкото да си зная)...

Тук никой не говори за пари.

Написах нещо като програма в Бейсик редактора на Word, и направих да си търси файлове, да сканира и поддиректории, отваря ги един по един, и после може да ги сейфа, затваря, преминава към следващия.... но докато е отворен файла, нещо не мога да уцеля как да активирам "Fix broken text", което си стои мирно и кротко в менюто горе.. ;о(

Ако някой знае как става - нека помогне.

----------------------------------
помислих, хареса ми, помислих пак...

благодаря Щирлиц

дали в комбинация с оня тул дето бях споменал - акто софт кирила не би се получило? мога да ти пратя инсталацията на имейл

между другото - това е единствения т.нар. "кирилизатор" дето е кадърен - освен техниките инжИнерски....

та там си има един аски юникод конвертор - ама е локнат :(
предполагам, че има някакъв начин да се види и евентуално да помогне
ако се ползва акт-софта има следната последователност:
1."си търси файлове, да сканира и поддиректории, отваря ги един по един"
2.акт-софт - аски то юникод (оправя се и с мешана скара - т.е. в един док и да има от двете кодировки не е проблем.. )
3.смяна на шрифта в целия документ на ариел
4.смяна на езика на БГ (пак в целия док.)
5.запис в същата директория под "име+[символ/и]"

по стъпка 1. - всичко съм го събрал на един дял на диска - съответно има само уърдовски файлове(ако това помага по някакъв начин)

в случая не може да се изпълни само т.2. , доколкото схващам .. :(

Move6 li da mi prati6:

1) Edin neconvertiran demo doc file
2) Sy6tiq doc samo 4e convertiran po nq4ina po koito iska6 da izglevda...

[email protected]

Епа, това е моето хоби... [линк]

Не знам какъв е тоя тул. Някаква притурка към Word ли е?

Прати ми го на pechkov@mail.bg , ще го разгледам, и ако е някакъв макрос, чисто VBA, просто ще го вкарам в работа.

Ще чакам мейл. Но се обади и по ICQ, да кажеш за какво стааа дума.

----------------------------------
помислих, хареса ми, помислих пак...

Mislq 4e uspqh da postigna nqkakyw uspeh :))

Zna4i eto kakwo trqbwa da naprawi6:

Kopira6 wsi4ki failowe koito iska6 da convert-be6 w nowa direktoriq (zadylvitelno ima6 backup, da ne stane nqkoq gre6ka :). Puska6 si Word (ne e neobhodimo da zarevda6 nqkakyw fail), Tools -> Macros -> VB Editor. Wyw VB Editor si izbira6 modula za Normal.dot (mislq 4e se kazwa samo Normal) i tam paste-wa6 slednite 2 macro-ta:

Sub Macro1_FORMAT_REPLACE()

  

    Selection.WholeStory

    With Selection.Font

        .Name = "Arial"

        .Size = 14

        .Italic = False

        .Underline = wdUnderlineNone

        .UnderlineColor = wdColorAutomatic

        .StrikeThrough = False

        .DoubleStrikeThrough = False

        .Outline = False

        .Emboss = False

        .Shadow = False

        .Hidden = False

        .SmallCaps = False

        .AllCaps = False

        .Engrave = False

        .Superscript = False

        .Subscript = False

        .Spacing = 0

        .Scaling = 100

        .Position = 0

        .Kerning = 0

        .Animation = wdAnimationNone

    End With

    For X = 192 To 255

        Selection.Find.ClearFormatting

        Selection.Find.Replacement.ClearFormatting

        With Selection.Find

            .Text = Chr(X)

            .Replacement.Text = ChrW(X + 848)

            .Forward = True

            .Wrap = wdFindContinue

            .Format = False

            .MatchCase = True

            .MatchWholeWord = False

            .MatchWildcards = False

            .MatchSoundsLike = False

            .MatchAllWordForms = False

        End With

        Selection.Find.Execute Replace:=wdReplaceAll

    Next X

End Sub

Sub Macro1_Open_AND_SAVE()



    myFolder = InputBox("End the full path the the documents folder (i.e. C:\Docs\ToConvert\)")

    If Right(myFolder, 1) <> "\" Then myFolder = myFolder & "\"

    

    MkDir myFolder & "oked\"

    

    myFile = Dir(myFolder, vbNormal)

    Do While myFile <> ""

        Documents.Open FileName:=myFolder & myFile, ConfirmConversions:=False, _

            ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _

            PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _

            WritePasswordTemplate:="", Format:=wdOpenFormatAuto

        Application.Run MacroName:="Macro1_FORMAT_REPLACE"

        ActiveDocument.SaveAs FileName:=myFolder & "oked\" & myFile, FileFormat:= _

            wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _

            True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _

            False, SaveNativePictureFormat:=False, SaveFormsData:=False, _

            SaveAsAOCELetter:=False

        myFile = Dir

        ActiveDocument.Close

    Loop

End Sub

Posle 6traka6 wyrhu koda na Macro1_Open_AND_SAVE (ne pitai kak gi pi6a tezi imena :))) i 6traka6 Play buton4eto ot toolbar-a.

Kakto move6 da widi6 w koda, pyrwo macro-to 6te te pita za pylen path do direktoriqta s failowete za convert-wane, sled koeto za wseki fail w direktoriq go otwarq, izpylnqwa Macro_FORMAT_REPLACE save-wa go w poddirektoriq "oked" i go zatwarq.

Macro_FORMAT_REPLACE pyk izbira celiq tekst, apply-wa Arial (move6 da si redaktira6 koda da slaga drug 6rift primerno), sled koeto replace-wa wsi4ki simwoli mevdu Chr(192) i Chr(255) (towa sa kiriliziranite simwoli pri 8-bitowite 6riftowe) sys tehniq Unicode ekwiwalent ( ChrW(848+OldCode) ).

Pri men mi otnema po 1-3 sec za wseki fail, zatowa po-dobre pyrwo go probwai s 10-ina faila i ako rezultatite sa towa koeto ti trqbwa, togawa move6 da go pusne6 za wsi4ki failowe koito ima6 (ne zabraq backup!!!). Move6 da si naprawi6 smetkata 4e za 3000 faila 6te otneme mevdu 3000 i 9000 sec, koeto e nqkyde 1-3 4asa :)))

Епа, това е моето хоби... [линк]