Unicode-ով տեքստ հավաքելը VB 6.0

[Arthur26]

Բարեվ Ձեզ
VB 6.0 ֆորմայի էդիտորում Unicode-ով տեքստը հավաքում եմ, հարցական նշաններ է ցույց տալիս:
Կա՞ այդ պրոբլեմի լուծումը

[Cannibal]

հա լուծում կա.
պռոստո մտի կոնտռոլ պանել,լանգուաջե սետտինգս ու ավելացրա հայերենը.կոմպտ ռեստառտ տուր ու վոնցվոր թե ֆսյո.
ես ետ ձև եմ արել ու եղել ա...

[Cannibal]

ստացվեց՞

[Arthur26]

Չէ, չեղավ

[Egern.net]

Բարեվ Ձեզ
VB 6.0 ֆորմայի էդիտորում Unicode-ով տեքստը հավաքում եմ, հարցական նշաններ է ցույց տալիս:
Կա՞ այդ պրոբլեմի լուծումը

ինչքան գիտեմ հնարավոր չէ....

[davzion]

ինչքան գիտեմ հնարավոր չէ....

Անհնարին բան չկա, ես մի հատ ֆունկցիա եմ գրել, որ հայերեն ANSI կոդով տեքստերը կոնվերտ ա անում Unicode- կոդերի, հենց ֆայլը գտնեմ կկցեմ, իսկ եթե շատ շտապ ա պետք, [email protected]-ի վրա գրեք, որ գտնելու դեպքում ավելի շուտ նկատեմ

[tombraider]

Չէ, չեղավ

կարող ես փորձել այս ծրագիրը
ArmenianEasterPhoneticKeyboardLayout1.0
աշխատում է կադվինը անջատած վիճակում

[davzion]

Ավելացվում եմ խոստացածս VB ֆունկցիան`UniArm(x)
UniArm-ը ANSI կոդավորմամբ հայերեն տեքստը Unicode-ի վերածելու համար է: Կարելի է օգտագործել ֆայլերի հետ աշխատելիս, Երբ ասենք ինչ որ ֆայլի մեջ պետք է յունիկոդով ինչ որ բան հայերեն գրել: Ես օգտագործում եմ HTML դվիժոկների համար:

Dim sss As String

Function UniArm(x)
sss = ""
For i = 1 To Len(x)
a = Mid(x, i, 1)
Select Case a
Case "І"
b = "Ф±"
Case "ґ"
b = "ФІ"
Case "¶"
b = "Фі"
Case "ё"
b = "Фґ"
Case "є"
b = "Фµ"
Case "ј"
b = "Ф¶"
Case "ѕ"
b = "Ф·"
Case "А"
b = "Фё"
Case "В"
b = "Ф№"
Case "Д"
b = "Фє"
Case "Ж"
b = "Ф»"
Case "И"
b = "Фј"
Case "К"
b = "ФЅ"
Case "М"
b = "Фѕ"
Case "О"
b = "Фї"
Case "Р"
b = "ХЂ"
Case "Т"
b = "ХЃ"
Case "Ф"
b = "Х‚"
Case "Ц"
b = "Хѓ"
Case "Ш"
b = "Х„"
Case "Ъ"
b = "Х…"
Case "Ь"
b = "Х†"
Case "Ю"
b = "Х‡"
Case "а"
b = "Х€"
Case "в"
b = "Х‰"
Case "д"
b = "ХЉ"
Case "ж"
b = "Х‹"
Case "и"
b = "ХЊ"
Case "к"
b = "ХЌ"
Case "м"
b = "ХЋ"
Case "о"
b = "ХЏ"
Case "р"
b = "Хђ"
Case "т"
b = "Х‘"
Case "ф"
b = "Х’"
Case "ц"
b = "Х“"
Case "ш"
b = "Х”"
Case "ъ"
b = "Х•"
Case "ь"
b = "Х–"
Case "і"
b = "ХЎ"
Case "µ"
b = "Хў"
Case "·"
b = "ХЈ"
Case "№"
b = "Х¤"
Case "»"
b = "ХҐ"
Case "Ѕ"
b = "Х¦"
Case "ї"
b = "Х§"
Case "Б"
b = "ХЁ"
Case "Г"
b = "Х©"
Case "Е"
b = "ХЄ"
Case "З"
b = "Х«"
Case "Й"
b = "Х¬"
Case "Л"
b = "Х­"
Case "Н"
b = "Х®"
Case "П"
b = "ХЇ"
Case "С"
b = "Х°"
Case "У"
b = "Х±"
Case "Х"
b = "ХІ"
Case "Ч"
b = "Хі"
Case "Щ"
b = "Хґ"
Case "Ы"
b = "Хµ"
Case "Э"
b = "Х¶"
Case "Я"
b = "Х·"
Case "б"
b = "Хё"
Case "г"
b = "Х№"
Case "е"
b = "Хє"
Case "з"
b = "Х»"
Case "й"
b = "Хј"
Case "л"
b = "ХЅ"
Case "н"
b = "Хѕ"
Case "п"
b = "Хї"
Case "с"
b = "ЦЂ"
Case "у"
b = "ЦЃ"
Case "х"
b = "Ц‚"
Case "ч"
b = "Цѓ"
Case "щ"
b = "Ц„"
Case "Ё"
b = "Ц‡"
Case "ы"
b = "Ц…"
Case "э"
b = "Ц†"
Case Else
b = a
End Select
sss = sss & b
Next i
UniArm = sss
End Function

Հ.Գ. Որքան գիտեմ, VB6-ում գործում է միայն ANSI կոդավորում: Դրա համար անհրաժեշտ է ման գալ դրան շրջանցելու հնարավորություններ` հայերեն յունիկոդից օգտվելու համար: Յունիկոդի լիարժեք հնարավորություներ կան միայն VB7-ից բարձր վերսիաներում: