Umíte někdo ve VB?

[MaDa]

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.

[Smitka]

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.

[Pippin]

koukni na http://www.builder.cz/

jsou tam dost obsahla fora...

[MaDa]

Díky Vám! Každá rada pro mě dobrá!

[LtK]

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(&HD + Chr(&HA9) + Chr(&HA1) + Chr(&H8C) + Chr(&H92) + Chr(&H96) + _
Chr(&H8 + Chr(&HE4) + Chr(&HE5) + Chr(&H94) + Chr(&HA2) + Chr(&H8B) + Chr(&H93) + Chr(&HEA) + Chr(&HFD) + _
Chr(&H9 + 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(&HA + _
Chr(&HD6) + Chr(&HD7) + Chr(&H91) + Chr(&H95) + Chr(&H9D) + Chr(&HE3) + Chr(&HD5) + Chr(&H99) + Chr(&HE0) + _
Chr(&H8A) + Chr(&HE2) + Chr(&HE + Chr(&HFC) + Chr(&H97) + Chr(&HB + 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(&HE + 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(&HF + _
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(&HC + 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(&HD + 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

[MaDa]

Jestli si to psal kvuli me, pak nevim jak Ti podekovat!!!!

[LtK]

Jestli si to psal kvuli me, pak nevim jak Ti podekovat!!!!

No byť Tebou zase by som si tak nefandil...
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...