User Tag List

Էջ 2 2-ից ԱռաջինԱռաջին 12
Ցույց են տրվում 16 համարից մինչև 25 համարի արդյունքները՝ ընդհանուր 25 հատից

Թեմա: Ansi to Unicode

  1. #16
    Պատվավոր անդամ
    Գրանցման ամսաթիվ
    16.04.2007
    Գրառումներ
    630
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Պատ. Ansi to Unicode

    Egern.net ArmenianUnicodeConverter-ը դու ես ստեղծել?
    Ես 2 տարի ա էդ եմ օգտագործում:

  2. #17
    Սկսնակ անդամ
    Գրանցման ամսաթիվ
    27.01.2007
    Գրառումներ
    35
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Պատ. Re. Ansi to Unicode

    Մեջբերում Egern.net-ի խոսքերից Նայել գրառումը
    Դրել եմ կոնվերտերի օնլայն տարբերակը` http://egern.net/auc.htm

    Կա նաև "օֆլայն" տարբերակ` .hta ֆորմատով http://egern.net/auc.zip
    Ի դեպ, ԼԱՎԱԳՈՒՅՆ ծրագիրը, որը կա այս ոլորտում մինչև այսօր, թե ֆունկիցոնալ առումով, թե հեղինակի՝ խնդիրներին արագ արձագանքելու ու լուծելու ցանկությամբ !!!

  3. #18
    Սկսնակ անդամ
    Գրանցման ամսաթիվ
    12.06.2009
    Հասցե
    Վանաձոր
    Գրառումներ
    19
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Պատ. Re. Ansi to Unicode

    Մեջբերում Egern.net-ի խոսքերից Նայել գրառումը
    Դրել եմ կոնվերտերի օնլայն տարբերակը` http://egern.net/auc.htm

    Կա նաև "օֆլայն" տարբերակ` .hta ֆորմատով http://egern.net/auc.zip
    Իմ կարծիքով Armenian Text Convertor-ը ավելի նորմալ է փոխակերպում
    Կա «և»-ի, չակերթների ու թվերի փոխակերպման հետ կապված խնդիր:

  4. #19
    Պատվավոր անդամ Lion-ի ավատար
    Գրանցման ամսաթիվ
    20.03.2007
    Հասցե
    Երևան
    Գրառումներ
    9,406
    Mentioned
    36 Post(s)
    Tagged
    0 Thread(s)

    Պատ. Ansi to Unicode

    Մեջբերում Marat-ի խոսքերից Նայել գրառումը
    Բարի լույս,

    ANSI to Unicode կովերտացիայի դեպքում առկա ծրագրերում (օրինակ՝ Armenian Unicode Converter ) հիմնականում ճիշտ չի փոխակերվում ANSI-ում եղած չակերտները «» Unicode-ում դրա փոխարեն հայտնվում է ստորակետ կամ փոքրատառ ե, խնդիրներ կան միջակետը հետ և այլն։
    Որոշ ծրագրերում կան կովերտացիայի MAP-ը օգտագործողի կողմից փոխելու հնարավորություն (օրինակ KDWIN, սակայն այն սկզբունքորեն չեմ օգտագործում քանի որ հնարավոր չէ անջատել լեզուները)։
    Կհուշեք արդյոք այլ ծրագրեր, որտեղ ինչպես Armenian Unicode Converter -ում կոնվերտացիան կատարվում է առանձին պատուհանում, (Word-ից դուրս), սակայն ունի նաև կոնվերտացիայի MAP-ը փոխելու հնարավորություն։
    Կամ ինչպես KDWIN-ից հանել լեզուները ու թողնել միայն կոնվերտացիայի հնարավորությունը։
    Շնորհակալ եմ
    Մի գործնական խորհուրդ տամ. ինքս էլ եմ հաճախ փոխարինում և չակերտների հետ խնդիր եմ ունենում: Վարվում եք այսպես - տեքստը քոպի եք անում մի առանձին վոռդի էջի վրա, հետո ctrl-H-ով բացում եք պատուհանը, քոփի եք անում առաջին չակերտը վերևում, ներքևում էլ - *: Դրանից հետո սեղմում եք Ռեփլաս ալլ կնոպկեն, սաղ առաջին չակերտները դառնում են *: Հետո նույն կերպ աստղիկը փոխում եք սրա «<<» հետ… Նույնն էլ անում եք մյուս չակերտի հետ և հետո հանգիստ փոխում տառատեսակը յունիկոդի:
    Համեցեք իմ ֆորում
    Միայն արժանապատվություն ունեցողը կարող է գնահատել դա և իր, և ուրիշների մոտ:

  5. #20
    Լիարժեք անդամ Հանուման-ի ավատար
    Գրանցման ամսաթիվ
    17.07.2009
    Գրառումներ
    102
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Պատ. Ansi to Unicode

    Armenian Smart Converter –ի նոր տարբերակը կարելի է բեռնել անվճար այստեղից
    http://converter.unicode.am/
    Կարծես թե վատ չի աշխատում։
    Բոլոր հայալեզու ԱյԹի նյութերը մի տեղ: Ուսումնական նյութեր, ակնարկներ, ինչպեսներ և ուղեցույցներ ՀայIT.org

    Իմ Անհանգիստ Բլոգը http://ablog.gratun.am/

  6. Գրառմանը 1 հոգի շնորհակալություն է հայտնել.

    Loki (11.09.2009)

  7. #21
    Լիարժեք անդամ SDes77-ի ավատար
    Գրանցման ամսաթիվ
    07.04.2009
    Հասցե
    Երևան
    Գրառումներ
    92
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Պատ. Ansi to Unicode

    2Egern.net

    Չգիտեմ էլ, ոնց շնորհակալություն հայտնեմ

  8. #22
    Սկսնակ անդամ
    Գրանցման ամսաթիվ
    05.06.2008
    Գրառումներ
    26
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Պատ. Ansi to Unicode

    Ժողովուրդ ջան word-ում ամեն դեպքում ինչ որ մի ձև ստացվում է, իսկ MS Access-ում ոնց կարելի է կոնվերտացիա անել:

  9. #23
    Պապա x3 Աթեիստ-ի ավատար
    Գրանցման ամսաթիվ
    26.05.2007
    Հասցե
    Հայաստան
    Տարիք
    45
    Գրառումներ
    8,706
    Mentioned
    49 Post(s)
    Tagged
    1 Thread(s)
    Էսօր word-ի համար գրածս մակրոյում մի քիչ փոփոխություն արեցի, որ ե-ի ու չակերտի խնդիրը լուծի։

    Էս տարբերակում նայում ա հարևան սիմվոլներին, ու ըստ դրանց որոշում կոդավորումն ու սիմվոլը։

    Կոդ:
    Public najord As String
    Public naxord As String
    
    Sub Unicode2ANSI()
    '
    ' Unicode 2 ANSI
    ' Created by †Ateist†
    '
    ss = Selection.Start
    se = Selection.End
    backup = Selection
    If se - ss < 0 Then End
    For i = ss To se - 1
    
    'naxord tar@
    If i = ss Then naxord = " " Else naxord = Mid(backup, i - ss, 1)
    
    'hajord tar@
    If i = se - 1 Then hajord = " " Else hajord = Mid(backup, i - ss + 2, 1)
    
    Selection.Start = i
    Selection.End = i + 1
    tar = Selection
    
    If AscW(tar) = 164 Or AscW(tar) = 165 Then GoTo 10
    If AscW(tar) = 171 Then Selection = Chr(167): GoTo 10
    If AscW(tar) = 187 Then Call unicode_stugum(naxord, hajord): GoTo 10 ' Pakogh chakerti Yev YE tari problem
    
    If AscW(tar) = 1415 Then Selection = ChrW(168) 'ChrW(187) + ChrW(245): se = se + 1 'yev tar@
    If AscW(tar) < 1329 Or AscW(tar) > 1418 Then GoTo 10
    If AscW(tar) < 1367 Then Selection = ChrW(176 + (AscW(tar) - 1328) * 2)
    If AscW(tar) > 1366 And AscW(tar) < 1415 Then Selection = ChrW(177 + (AscW(tar) - 1376) * 2)
    If AscW(tar) = 1374 Then Selection = ChrW(177) ' harcakan nshan
    
    10: Next i
    Selection.Start = ss
    Selection.End = se
    Selection.Font.Name = "Arial armenian"
    End Sub
    
    
    Sub ANSI2Unicode()
    '
    ' Normal2Unicode
    ' Created by †Ateist†
    '
    ss = Selection.Start
    se = Selection.End
    backup = Selection
    If se - ss < 0 Then End
    For i = ss To se - 1
    
    'naxord tar@
    If i - ss = 0 Then naxord = " " Else naxord = Mid(backup, i - ss, 1)
    
    'hajord tar@
    If i = se - 1 Then hajord = " " Else hajord = Mid(backup, i - ss + 2, 1)
    
    Selection.Start = i
    Selection.End = i + 1
    tar = Selection
    
    If AscW(tar) = 164 Or AscW(tar) = 165 Then GoTo 10
    If AscW(tar) = 167 Then Selection = Chr(171): GoTo 10
    If AscW(tar) = 166 Then Selection = Chr(187): GoTo 10
    If AscW(tar) = 187 Then Call ansi_stugum(naxord, hajord): GoTo 10 ' Pakogh chakerti Yev YE tari problem
    
    If AscW(tar) = 168 Then Selection = ChrW(1415) 'yev tar@
    
    If AscW(tar) < 178 Or AscW(tar) > 253 Then GoTo 10
    If AscW(tar) / 2 = AscW(tar) \ 2 Then Selection = ChrW(1328 + (AscW(tar) - 176) / 2)
    If AscW(tar) / 2 <> AscW(tar) \ 2 Then Selection = ChrW(1376 + (AscW(tar) - 177) / 2)
    If AscW(tar) = 177 Then Selection = ChrW(1374) ' harcakan nshan
    
    10: Next i
    Selection.Start = ss
    Selection.End = se
    Selection.Font.Name = "arian amu"
    End Sub
    
    Sub unicode_stugum(ByVal naxord As String, ByVal hajord As String)  
    ard = ChrW(166)
    ansi = False
    
    If AscW(naxord) > 176 And AscW(naxord) < 254 Then ansi = True
    If AscW(naxord) > 165 And AscW(naxord) < 169 Then ascii = True
    If AscW(hajord) > 176 And AscW(hajord) < 254 Then ascii = True
    If AscW(hajord) > 165 And AscW(hajord) < 169 Then ascii = True
    If ansi Then ard = ChrW(187)
    Selection = ard
    End Sub
    
    Sub ansi_stugum(ByVal naxord As String, ByVal hajord As String)
    ard = ChrW(1381)
    unic = False
    
    If AscW(naxord) > 1328 And AscW(naxord) < 1423 Then unic = True
    If AscW(hajord) > 1328 And AscW(hajord) < 1423 Then unic = True
    If unic Then ard = ChrW(187)
    Selection = ard
    
    End Sub
    Ես ծրագրավորող չեմ, կարծում եմ, որ նույնը կարելի ա ավելի էֆեկտիվ գրել։ Էս տարբերակով իմ կոմպի վրա 25 էջանոց ֆայլը փոխակերպեց 22 վարկյանում։

    Հ.Գ.
    Ոչ բոլոր անսի կետադրական նշաններն եմ փոխել յունիկոդի։ Օրինակ. միջակետը, վերջակետը դեռ էդքան տարածում չունեն։ Սկի Word-ը հայկական վերջակետից հետո (։) չի ֆայմում հաջորդ տառը մեծատառ դարձնի։
    artak.am De gustibus et coloribus non est disputandum.

  10. Գրառմանը 2 հոգի շնորհակալություն են հայտնել.

    Արամ (19.12.2013), Վահե-91 (19.12.2013)

  11. #24
    Չամուսնացած
    Գրանցման ամսաթիվ
    23.10.2009
    Հասցե
    192.168.1.2
    Տարիք
    32
    Գրառումներ
    3,996
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Մեջբերում Աթեիստ-ի խոսքերից Նայել գրառումը
    Էսօր word-ի համար գրածս մակրոյում մի քիչ փոփոխություն արեցի, որ ե-ի ու չակերտի խնդիրը լուծի։

    Էս տարբերակում նայում ա հարևան սիմվոլներին, ու ըստ դրանց որոշում կոդավորումն ու սիմվոլը։

    Կոդ:
    Public najord As String
    Public naxord As String
    
    Sub Unicode2ANSI()
    '
    ' Unicode 2 ANSI
    ' Created by †Ateist†
    '
    ss = Selection.Start
    se = Selection.End
    backup = Selection
    If se - ss < 0 Then End
    For i = ss To se - 1
    
    'naxord tar@
    If i = ss Then naxord = " " Else naxord = Mid(backup, i - ss, 1)
    
    'hajord tar@
    If i = se - 1 Then hajord = " " Else hajord = Mid(backup, i - ss + 2, 1)
    
    Selection.Start = i
    Selection.End = i + 1
    tar = Selection
    
    If AscW(tar) = 164 Or AscW(tar) = 165 Then GoTo 10
    If AscW(tar) = 171 Then Selection = Chr(167): GoTo 10
    If AscW(tar) = 187 Then Call unicode_stugum(naxord, hajord): GoTo 10 ' Pakogh chakerti Yev YE tari problem
    
    If AscW(tar) = 1415 Then Selection = ChrW(168) 'ChrW(187) + ChrW(245): se = se + 1 'yev tar@
    If AscW(tar) < 1329 Or AscW(tar) > 1418 Then GoTo 10
    If AscW(tar) < 1367 Then Selection = ChrW(176 + (AscW(tar) - 1328) * 2)
    If AscW(tar) > 1366 And AscW(tar) < 1415 Then Selection = ChrW(177 + (AscW(tar) - 1376) * 2)
    If AscW(tar) = 1374 Then Selection = ChrW(177) ' harcakan nshan
    
    10: Next i
    Selection.Start = ss
    Selection.End = se
    Selection.Font.Name = "Arial armenian"
    End Sub
    
    
    Sub ANSI2Unicode()
    '
    ' Normal2Unicode
    ' Created by †Ateist†
    '
    ss = Selection.Start
    se = Selection.End
    backup = Selection
    If se - ss < 0 Then End
    For i = ss To se - 1
    
    'naxord tar@
    If i - ss = 0 Then naxord = " " Else naxord = Mid(backup, i - ss, 1)
    
    'hajord tar@
    If i = se - 1 Then hajord = " " Else hajord = Mid(backup, i - ss + 2, 1)
    
    Selection.Start = i
    Selection.End = i + 1
    tar = Selection
    
    If AscW(tar) = 164 Or AscW(tar) = 165 Then GoTo 10
    If AscW(tar) = 167 Then Selection = Chr(171): GoTo 10
    If AscW(tar) = 166 Then Selection = Chr(187): GoTo 10
    If AscW(tar) = 187 Then Call ansi_stugum(naxord, hajord): GoTo 10 ' Pakogh chakerti Yev YE tari problem
    
    If AscW(tar) = 168 Then Selection = ChrW(1415) 'yev tar@
    
    If AscW(tar) < 178 Or AscW(tar) > 253 Then GoTo 10
    If AscW(tar) / 2 = AscW(tar) \ 2 Then Selection = ChrW(1328 + (AscW(tar) - 176) / 2)
    If AscW(tar) / 2 <> AscW(tar) \ 2 Then Selection = ChrW(1376 + (AscW(tar) - 177) / 2)
    If AscW(tar) = 177 Then Selection = ChrW(1374) ' harcakan nshan
    
    10: Next i
    Selection.Start = ss
    Selection.End = se
    Selection.Font.Name = "arian amu"
    End Sub
    
    Sub unicode_stugum(ByVal naxord As String, ByVal hajord As String)  
    ard = ChrW(166)
    ansi = False
    
    If AscW(naxord) > 176 And AscW(naxord) < 254 Then ansi = True
    If AscW(naxord) > 165 And AscW(naxord) < 169 Then ascii = True
    If AscW(hajord) > 176 And AscW(hajord) < 254 Then ascii = True
    If AscW(hajord) > 165 And AscW(hajord) < 169 Then ascii = True
    If ansi Then ard = ChrW(187)
    Selection = ard
    End Sub
    
    Sub ansi_stugum(ByVal naxord As String, ByVal hajord As String)
    ard = ChrW(1381)
    unic = False
    
    If AscW(naxord) > 1328 And AscW(naxord) < 1423 Then unic = True
    If AscW(hajord) > 1328 And AscW(hajord) < 1423 Then unic = True
    If unic Then ard = ChrW(187)
    Selection = ard
    
    End Sub
    Ես ծրագրավորող չեմ, կարծում եմ, որ նույնը կարելի ա ավելի էֆեկտիվ գրել։ Էս տարբերակով իմ կոմպի վրա 25 էջանոց ֆայլը փոխակերպեց 22 վարկյանում։

    Հ.Գ.
    Ոչ բոլոր անսի կետադրական նշաններն եմ փոխել յունիկոդի։ Օրինակ. միջակետը, վերջակետը դեռ էդքան տարածում չունեն։ Սկի Word-ը հայկական վերջակետից հետո (։) չի ֆայմում հաջորդ տառը մեծատառ դարձնի։
    սաղ հեչ, էն ի՞նչ խաչեր ա Աթեիստի կողքերը, մակրոսի մեջ

  12. #25
    Պապա x3 Աթեիստ-ի ավատար
    Գրանցման ամսաթիվ
    26.05.2007
    Հասցե
    Հայաստան
    Տարիք
    45
    Գրառումներ
    8,706
    Mentioned
    49 Post(s)
    Tagged
    1 Thread(s)
    Մեջբերում Վահե-91-ի խոսքերից Նայել գրառումը
    սաղ հեչ, էն ի՞նչ խաչեր ա Աթեիստի կողքերը, մակրոսի մեջ
    Խաչերի մեջ ընկած (քրսիտոնյաներով շրջապատված) աթեիստ ։)
    Առաջ սենց էի գրում ..++††Ateist††++.. ()

    Բայց էս արդեն լրիվ ուրիշ պատմություն ա։


    Մակրոն որ փորձեք, արդյունքների մասին պատմեք, շատ չեմ փորձարկել։
    artak.am De gustibus et coloribus non est disputandum.

  13. Գրառմանը 1 հոգի շնորհակալություն է հայտնել.

    Վահե-91 (19.12.2013)

Էջ 2 2-ից ԱռաջինԱռաջին 12

Թեմայի մասին

Այս թեման նայող անդամներ

Այս պահին թեմայում են 1 հոգի. (0 անդամ և 1 հյուր)

Համանման թեմաներ

  1. Յունիկոդ vs. ANSI
    Հեղինակ՝ Rammstein, բաժին` Համակարգիչ
    Գրառումներ: 10
    Վերջինը: 05.07.2010, 15:53
  2. Նոր Unicode Converter
    Հեղինակ՝ Edgar Marukyan, բաժին` Համակարգչային ծրագրեր
    Գրառումներ: 13
    Վերջինը: 05.12.2009, 15:13
  3. Unicode-ով տեքստ հավաքելը VB 6.0
    Հեղինակ՝ Arthur26, բաժին` Ծրագրավորում
    Գրառումներ: 7
    Վերջինը: 10.11.2008, 00:36

Էջանիշներ

Էջանիշներ

Ձեր իրավունքները բաժնում

  • Դուք չեք կարող նոր թեմաներ ստեղծել
  • Դուք չեք կարող պատասխանել
  • Դուք չեք կարող կցորդներ տեղադրել
  • Դուք չեք կարող խմբագրել ձեր գրառումները
  •