Unicode to ASCII s VB
7 отговора
15 прегледа
Unicode to ASCII s VB
Imam edno vaprosche za VB 6.0, makar che kato gledam tuk mai VB mnogo-mnogo ne se uvajava :). Shto bre, 6.0 si ima kompilatorche pochti kato Visual C++.
Ta znachi - iskam da si pisha s VB tekstovi failcheta. Problema e, che nikakva kirilica ne izliza. Obiknoven string kogato go zapisha v obiknoven tekstov fail i izliza na kitaiski. Dokolkoto si shvashtam problema mi e che VB vsichko si vodi v Unicode i neshto ne mi prehvarlia v ASCII tekstovo failche. Ma moga li da sam siguren. A i ne znam ako e taka s kakva funkcia da si konvertiram stringa v ASCII i da si vijdam kirilicata. Molia vi, pomognete. Badete ot dobrite momcheta.
прекодиране
function MIK_Encode(s as string) as string
dim result as string
dim c as integer
result = s
for i=1 to len(result)
c = asc(mid(result, i, 1))
if (c > 128) then
mid(s, i) = chr(c - 64)
end if
next
MIK_Encode = result
end function
Проблема не е в Unicode, честно казано, не знам как се съчетава той с бейсика. Просто windows-ката кодова таблица е отместена в кирилската си част спрямо MIK (използваната в ДОС).
Имаш да черпиш бира.;)
Unicode to ASCII s VB
човека никъде не е казал, че иска текстовият му файл да е в DOS(MIK) формат
както и да е, даже и да иска DOS(MIK), формат не би трябвало да използва > 128, а >192, иначе просто ще направи излишно прекодиране на симжолите м/у 128 и 192, което с нищо няма да подобри нещата.
Bezkraino Blagodaria
Leleeee, ama vie ste super,
koda s utochneniata zaspa na momenta.
napravo sam strashno zadaljen. Direktno kod, dvama dushi utochniavat i si partnirat, super profi. Mnogo me izkefihte. Edvali ima drug profesionalen bransh v BG v koito neshtata mogat da sediat po tozi nachin.
Kolkoto do birata - samo svirnete ako se sabirate niakade - idvam i cherpia nared. Chesno.
Kazvam se Plamen (adashi malko se padame :) ).
Ako moga s neshto niakade da pomogna: e-mail - bandb@techno-link.com