UnicodeToAnsi

zdrawejte hora

predwaritelno se izwinqwam ako vyprosa mi e lamerski, no se pak 6e pitam ...

... ta neska ne6to se zapalih nad tozi problem - konvertirane na daden text s kirilica ot Unicode v Ansi ...

... predpolagam, 4e dosta ot was znaqt, 4e kym FlexType ima edin macros za MS Word, koito prawe6e takiwa konvertiraniq (A>U, U>A i t.n.), si4ko OK samo deto s nowite versii na Word tuj nq6tu ne6to ne baca, ili pyk moje bi ne baca, ako ne e ka4en FlexType - ne znam sys sigurnost, no e fakt, 4e maj na toz Datekski macros ne moje da se raz4ita

ta neska mi 6tukna da widq kwo moga az da napraa po slu4aq, est hal haber si nqqm ot kyde da po4na, no pyk znam, 4e nqma da mirqsam dokat ne namerq prili4no re6enie na toz problem

ta predi malko izrowih edno skript4e, koeto w momenta se borq da napraa na Word macros

'©2000 Roy Walter, Brook House Ltd

'

'COMMENTS

'========

'Please email comments to [email protected]

'

'WHAT DOES IT DO

'===============

'* Useful routine for converting UNICODE strings to 'readable' ANSI

'* It was designed for decoding UNICODE strings in PDF files

'

'RESTRICTIONS

'============

'* You can use it and modify it but you can't sell it

'* If you redistribute do not remove this line and the lines above

'

Sub UnicodeToAnsi()



Dim hx, myArray

Dim c$, ansiStr$, uniStr$

Dim arrSize%, i%, loops%, n%



    'example only

    uniStr$ = "<feff0052006f0079002000570061006c007400650072>"

    If InStr(uniStr$, "feff") = 0 Then Exit Sub    'it's not unicode!

    

    If Left(uniStr$, 1) = "<" Then uniStr$ = Mid(uniStr$, 2)

    If Right(uniStr$, 1) = ">" Then

        uniStr$ = Left(uniStr$, Len(uniStr$) - 1)

    End If



    i% = Len(uniStr$)

    arrSize% = i% / 4

    ReDim myArray(arrSize%)

    

    For i% = 1 To Len(uniStr$) Step 4

        c$ = Mid$(uniStr$, i, 4)

        If c$ <> "feff" Then

            hx = "&H" & c$

            n% = Int(hx)

            myArray(loops%) = n%

            loops% = loops% + 1

        End If

    Next

    

    For i% = 0 To UBound(myArray) - 1

        ansiStr$ = ansStr$ & Chr(myArray(i%))

    Next

    

    MsgBox ansiStr$

        

End Sub

wse o6te samo se pulq kato idiot, ta za twa iskam da wi pomolq za nqkwi pyrwona4alni nastawleniq ot wsqkykwo estestwo

drugoto, koeto me vylnuwa e po princip kak stoqt ne6tata - vyzmojno li e daden VB script da se kompilira (ili kakto to4no se kazwa) w izpylnimo fail4e i da re4em, 4e w takyw slu4ai 6te konvertira daden textow fail ot sy6tata papka (primerno)

ako pyk ne wi se zanimaa s moq problem, 6te sym wi blagodaren i na nqkoi polezen link w tazi nasoka

predwaritelno 10x

А бе много не мога да ти помогна с програмата/макроса, обаче мога да ти кажа, че към ActSoft Cyrilla Corect 2000+ и следващите версии също има такъв макрос, който работи и в Word и в Excel и при това работи доста стабилно във всички версии на Offce- 2000, XP, 2003. Не работи в 97! Но работи ГАРАНТИРАНО... използвам го на десетина компютъра и навсякъде работи просто перфектно. Освен това проверката на правописа е много по-добра от тази на Flex Word!

БАба...


Ама баба не е жена, вие не знаете ли?

mersi babo

i az do tam stignah - ne e po silite mi sam da napraa takyw macros....

kolkoto do spelling-a az si polzwam MS Proofing Tools ...

ajde spiram s offtopica

mersi