Egern.net ArmenianUnicodeConverter-ը դու ես ստեղծել?
Ես 2 տարի ա էդ եմ օգտագործում:
Egern.net ArmenianUnicodeConverter-ը դու ես ստեղծել?
Ես 2 տարի ա էդ եմ օգտագործում:
Ի դեպ, ԼԱՎԱԳՈՒՅՆ ծրագիրը, որը կա այս ոլորտում մինչև այսօր, թե ֆունկիցոնալ առումով, թե հեղինակի՝ խնդիրներին արագ արձագանքելու ու լուծելու ցանկությամբ !!!Egern.net-ի խոսքերից
Դրել եմ կոնվերտերի օնլայն տարբերակը` http://egern.net/auc.htm
Կա նաև "օֆլայն" տարբերակ` .hta ֆորմատովhttp://egern.net/auc.zip
Իմ կարծիքով Armenian Text Convertor-ը ավելի նորմալ է փոխակերպումԴրել եմ կոնվերտերի օնլայն տարբերակը` http://egern.net/auc.htm
Կա նաև "օֆլայն" տարբերակ` .hta ֆորմատով
Կա «և»-ի, չակերթների ու թվերի փոխակերպման հետ կապված խնդիր:
Մի գործնական խորհուրդ տամ. ինքս էլ եմ հաճախ փոխարինում և չակերտների հետ խնդիր եմ ունենում: Վարվում եք այսպես - տեքստը քոպի եք անում մի առանձին վոռդի էջի վրա, հետո ctrl-H-ով բացում եք պատուհանը, քոփի եք անում առաջին չակերտը վերևում, ներքևում էլ - *: Դրանից հետո սեղմում եք Ռեփլաս ալլ կնոպկեն, սաղ առաջին չակերտները դառնում են *: Հետո նույն կերպ աստղիկը փոխում եք սրա «<<» հետ… Նույնն էլ անում եք մյուս չակերտի հետ և հետո հանգիստ փոխում տառատեսակը յունիկոդի:
Համեցեք իմ ֆորում
Միայն արժանապատվություն ունեցողը կարող է գնահատել դա և իր, և ուրիշների մոտ:
Armenian Smart Converter –ի նոր տարբերակը կարելի է բեռնել անվճար այստեղից
http://converter.unicode.am/
Կարծես թե վատ չի աշխատում։
Բոլոր հայալեզու ԱյԹի նյութերը մի տեղ: Ուսումնական նյութեր, ակնարկներ, ինչպեսներ և ուղեցույցներ ՀայIT.org
Իմ Անհանգիստ Բլոգը http://ablog.gratun.am/
Loki (11.09.2009)
2Egern.net
Չգիտեմ էլ, ոնց շնորհակալություն հայտնեմ
Ժողովուրդ ջան word-ում ամեն դեպքում ինչ որ մի ձև ստացվում է, իսկ MS Access-ում ոնց կարելի է կոնվերտացիա անել:
Էսօր word-ի համար գրածս մակրոյում մի քիչ փոփոխություն արեցի, որ ե-ի ու չակերտի խնդիրը լուծի։
Էս տարբերակում նայում ա հարևան սիմվոլներին, ու ըստ դրանց որոշում կոդավորումն ու սիմվոլը։
Ես ծրագրավորող չեմ, կարծում եմ, որ նույնը կարելի ա ավելի էֆեկտիվ գրել։ Էս տարբերակով իմ կոմպի վրա 25 էջանոց ֆայլը փոխակերպեց 22 վարկյանում։Կոդ: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
Հ.Գ.
Ոչ բոլոր անսի կետադրական նշաններն եմ փոխել յունիկոդի։ Օրինակ. միջակետը, վերջակետը դեռ էդքան տարածում չունեն։ Սկի Word-ը հայկական վերջակետից հետո (։) չի ֆայմում հաջորդ տառը մեծատառ դարձնի։
artak.amDe gustibus et coloribus non est disputandum.
սաղ հեչ, էն ի՞նչ խաչեր ա Աթեիստի կողքերը, մակրոսի մեջ
Խաչերի մեջ ընկած (քրսիտոնյաներով շրջապատված) աթեիստ ։)սաղ հեչ, էն ի՞նչ խաչեր ա Աթեիստի կողքերը, մակրոսի մեջ
Առաջ սենց էի գրում ..++††Ateist††++.. ()
Բայց էս արդեն լրիվ ուրիշ պատմություն ա։
Մակրոն որ փորձեք, արդյունքների մասին պատմեք, շատ չեմ փորձարկել։
artak.am
Վահե-91 (19.12.2013)
Այս պահին թեմայում են 1 հոգի. (0 անդամ և 1 հյուր)
Ձեր իրավունքները բաժնում
Մեջբերել
Էջանիշներ