Potřeboval bych poradit, jak z texťáku dostat text v kódování pro MS DOS do textového pole, nebo ten text z textového pole překonvertovat do MS DOS (aby se správně zobrazovala čeština). Díky.
Printable View
Potřeboval bych poradit, jak z texťáku dostat text v kódování pro MS DOS do textového pole, nebo ten text z textového pole překonvertovat do MS DOS (aby se správně zobrazovala čeština). Díky.
Možná by šlo udělat dvě pole se všema znakama, jedno pole pro znakovou sadu Win a druhý pro Dos a pak to prohodit.
koukni na http://www.builder.cz/
jsou tam dost obsahla fora...
Díky Vám! Každá rada pro mě dobrá!
Prevod kódovania by sa dal riešiť asi takto...
Len neviem aké kódovanie je source, dest je Win1250...
Function ConvertCharSet(data)
dataout = data
Source = Chr(&HA0) + Chr(&H83) + Chr(&HC7) + Chr(&HA5) + Chr(&H84) + Chr(&H86) + Chr(&H87) + Chr(&H9F) + Chr(&HD4) + _
Chr(&HD0) + Chr(&H89) + Chr(&H82) + Chr(&HD8) + Chr(&HA9) + Chr(&HA1) + Chr(&H8C) + Chr(&H92) + Chr(&H96) + _
Chr(&H88) + Chr(&HE4) + Chr(&HE5) + Chr(&H94) + Chr(&HA2) + Chr(&H8B) + Chr(&H93) + Chr(&HEA) + Chr(&HFD) + _
Chr(&H98) + Chr(&HAD) + Chr(&HE7) + Chr(&H9C) + Chr(&HEE) + Chr(&HA3) + Chr(&H85) + Chr(&HFB) + Chr(&H81) + _
Chr(&HEC) + Chr(&HBE) + Chr(&HAB) + Chr(&HA7) + Chr(&HB5) + Chr(&HB6) + Chr(&HC6) + Chr(&HA4) + Chr(&H8E) + _
Chr(&H8F) + Chr(&H80) + Chr(&HAC) + Chr(&HD2) + Chr(&HD1) + Chr(&HD3) + Chr(&H90) + Chr(&HB7) + Chr(&HA8) + _
Chr(&HD6) + Chr(&HD7) + Chr(&H91) + Chr(&H95) + Chr(&H9D) + Chr(&HE3) + Chr(&HD5) + Chr(&H99) + Chr(&HE0) + _
Chr(&H8A) + Chr(&HE2) + Chr(&HE8) + Chr(&HFC) + Chr(&H97) + Chr(&HB8) + Chr(&HE6) + Chr(&H9B) + Chr(&HDD) + _
Chr(&HE9) + Chr(&HDE) + Chr(&HEB) + Chr(&H9A) + Chr(&HED) + Chr(&HBD) + Chr(&H8D) + Chr(&HA6)
dest = Chr(&HE1) + Chr(&HE2) + Chr(&HE3) + Chr(&HB9) + Chr(&HE4) + Chr(&HE6) + Chr(&HE7) + Chr(&HE8) + Chr(&HEF) + _
Chr(&HF0) + Chr(&HEB) + Chr(&HE9) + Chr(&HEC) + Chr(&HEA) + Chr(&HED) + Chr(&HEE) + Chr(&HE5) + Chr(&HBE) + _
Chr(&HB3) + Chr(&HF1) + Chr(&HF2) + Chr(&HF6) + Chr(&HF3) + Chr(&HF6) + Chr(&HF4) + Chr(&HE0) + Chr(&HF8) + _
Chr(&H9C) + Chr(&HBA) + Chr(&H9A) + Chr(&H9D) + Chr(&HFE) + Chr(&HFA) + Chr(&HF9) + Chr(&HFB) + Chr(&HFC) + _
Chr(&HFD) + Chr(&HBF) + Chr(&H9F) + Chr(&H9E) + Chr(&HC1) + Chr(&HC2) + Chr(&HC3) + Chr(&HA5) + Chr(&HC4) + _
Chr(&HC6) + Chr(&HC7) + Chr(&HC8) + Chr(&HCF) + Chr(&HD0) + Chr(&HCB) + Chr(&HC9) + Chr(&HCC) + Chr(&HCA) + _
Chr(&HCD) + Chr(&HCE) + Chr(&HC5) + Chr(&HBC) + Chr(&HA3) + Chr(&HD1) + Chr(&HD2) + Chr(&HD6) + Chr(&HD3) + _
Chr(&HD5) + Chr(&HD4) + Chr(&HC0) + Chr(&HD8) + Chr(&H8C) + Chr(&HAA) + Chr(&H8A) + Chr(&H8D) + Chr(&HDE) + _
Chr(&HDA) + Chr(&HD9) + Chr(&HDB) + Chr(&HDC) + Chr(&HDD) + Chr(&HAF) + Chr(&H8F) + Chr(&H8E)
For x = 1 To Len(Source)
i = 0
Do
i = InStr(i + 1, data, Mid(Source, x, 1))
If i > 0 Then
Mid(dataout, i, 1) = Mid(dest, x, 1)
End If
Loop While i <> 0
Next
ConvertCharSet = dataout
End Function
Jestli si to psal kvuli me, pak nevim jak Ti podekovat!!!! :-o
No byť Tebou zase by som si tak nefandil... :wink:Citace:
Původně odeslal MaDa
Písal som to niekedy dávno pre prevod tuším z Latin2 do Win1250...
A teraz som si na to spomenul a skopčil to odtiaľ...
Ale keď to pomohlo, tak je to OK... :smoke: