ƒобро пожаловать в форум, Guest††>>†† ¬ойти†|†–егистрац舆| ѕоиск†|†ѕравила†| ¬ избранное | ѕодписатьс€
¬се форумы / FoxPro, Visual FoxPro Ќовый топик †† ќтветить
 ѕеренос данных в DOS-кодировку  [new]
Dorward
Member

ќткуда:
—ообщений: 31
«дравствуйте !
ћне надо текстовый файл в Windows - кодировке переделать в DOS -
кодировку.„то сделать ?
6 апр 06, 09:08††††[2529723]     ќтветить | ÷итировать —ообщить модератору
 Re: ѕеренос данных в DOS-кодировку  [new]
leaf
Member [заблокирован]

ќткуда: –остов-на-ƒону --> ћосква
—ообщений: 2661
комбинаци€ функций
cpconvert
filetostring
stringtofile
если с последними не наврал
6 апр 06, 09:19††††[2529751]     ќтветить | ÷итировать —ообщить модератору
 Re: ѕеренос данных в DOS-кодировку  [new]
Dorward
Member

ќткуда:
—ообщений: 31
ј можно код ?
6 апр 06, 09:28††††[2529782]     ќтветить | ÷итировать —ообщить модератору
 Re: ѕеренос данных в DOS-кодировку  [new]
DIMM@
Member

ќткуда: ¬итебск
—ообщений: 136
stWin=filetostr('WinCod.txt')
stDos=CPCONVERT(1251,866,stStr)
STRTOFILE(stNew, 'DosCod.txt')
6 апр 06, 09:32††††[2529804]     ќтветить | ÷итировать —ообщить модератору
 Re: ѕеренос данных в DOS-кодировку  [new]
leaf
Member [заблокирован]

ќткуда: –остов-на-ƒону --> ћосква
—ообщений: 2661
StrToFile(Cpconvert(866,1251,FILETOSTR("Dos.TXT")),"Win.txt")
6 апр 06, 09:34††††[2529811]     ќтветить | ÷итировать —ообщить модератору
 Re: ѕеренос данных в DOS-кодировку  [new]
DIMM@
Member

ќткуда: ¬итебск
—ообщений: 136
извин€юсь
stWin=filetostr('WinCod.txt')
stDos=CPCONVERT(1251,866,stWin)
STRTOFILE(stDos, 'DosCod.txt')
где WinCod - им€ исходного файла, а DosCod - им€ нового файла в дос кодировке
6 апр 06, 09:34††††[2529816]     ќтветить | ÷итировать —ообщить модератору
 Re: ѕеренос данных в DOS-кодировку  [new]
DIMM@
Member

ќткуда: ¬итебск
—ообщений: 136
leaf
StrToFile(Cpconvert(866,1251,FILETOSTR("Dos.TXT")),"Win.txt")

ну да,это гораздо лучше моего... чего то € тут совсем затупил...:(
6 апр 06, 09:37††††[2529826]     ќтветить | ÷итировать —ообщить модератору
 Re: ѕеренос данных в DOS-кодировку  [new]
S866
Member

ќткуда:
—ообщений: 387
2 DIMM@
Ћутше то оно лутше, только ваше новичку легче прочесть и пон€ть.
6 апр 06, 10:36††††[2530172]     ќтветить | ÷итировать —ообщить модератору
 Re: ѕеренос данных в DOS-кодировку  [new]
Dorward
Member

ќткуда:
—ообщений: 31
 оманда StrToFile(Cpconvert(866,1251,FILETOSTR("Dos.TXT")),"Win.txt")
стирает данные в файле win.txt и ничего не кладЄт в файл dos.txt.ћ.б. есть что другое ?
6 апр 06, 13:34††††[2531581]     ќтветить | ÷итировать —ообщить модератору
 Re: ѕеренос данных в DOS-кодировку  [new]
ѕет€н€
Guest
WSH2(js)
//* в функцию WinToDos передаЄтс€ 1251-текст
//* результатом будет этот же текст, но в 866 CP
function WinToDos(s) {
  var i,ss;
  if (typeof(WinDict)=="undefined")
    MakeWinDict();
  ss="";
  for (i=0;i<s.length;i++) {
    if (WinDict.Exists(s.charAt(i)))
      ss+=WinDict.Item(s.charAt(i));
    else
      ss+=s.charAt(i);
  }
  return ss;
}
function MakeWinDict() {
  WinDict = WScript.CreateObject("Scripting.Dictionary");
  WinDict.add ("ј", "А"); WinDict.add ("Ѕ", "Б"); WinDict.add ("¬", "В");
  WinDict.add ("√", "Г"); WinDict.add ("ƒ", "Д"); WinDict.add ("≈", "Е");
  WinDict.add ("®", "р"); WinDict.add ("∆", "Ж"); WinDict.add ("«", "З");
  WinDict.add ("»", "И"); WinDict.add ("…", "Й"); WinDict.add (" ", "К");
  WinDict.add ("Ћ", "Л"); WinDict.add ("ћ", "М"); WinDict.add ("Ќ", "Н");
  WinDict.add ("ќ", "О"); WinDict.add ("ѕ", "П"); WinDict.add ("–", "Р");
  WinDict.add ("—", "С"); WinDict.add ("“", "Т"); WinDict.add ("”", "У");
  WinDict.add ("‘", "Ф"); WinDict.add ("’", "Х"); WinDict.add ("÷", "Ц");
  WinDict.add ("„", "Ч"); WinDict.add ("Ў", "Ш"); WinDict.add ("ў", "Щ");
  WinDict.add ("Џ", "Ъ"); WinDict.add ("џ", "Ы"); WinDict.add ("№", "Ь");
  WinDict.add ("Ё", "Э"); WinDict.add ("ё", "Ю"); WinDict.add ("я", "Я");

  WinDict.add ("а", "†"); WinDict.add ("б", "°"); WinDict.add ("в", "Ґ");
  WinDict.add ("г", "£"); WinDict.add ("д", "§"); WinDict.add ("е", "•");
  WinDict.add ("Є", "с"); WinDict.add ("ж", "¶"); WinDict.add ("з", "І");
  WinDict.add ("и", "®"); WinDict.add ("й", "©"); WinDict.add ("к", "™");
  WinDict.add ("л", "Ђ"); WinDict.add ("м", "ђ"); WinDict.add ("н", "≠");
  WinDict.add ("о", "Ѓ"); WinDict.add ("п", "ѓ"); WinDict.add ("р", "а");
  WinDict.add ("с", "б"); WinDict.add ("т", "в"); WinDict.add ("у", "г");
  WinDict.add ("ф", "д"); WinDict.add ("х", "е"); WinDict.add ("ц", "ж");
  WinDict.add ("ч", "з"); WinDict.add ("ш", "и"); WinDict.add ("щ", "й");
  WinDict.add ("ъ", "к"); WinDict.add ("ы", "л"); WinDict.add ("ь", "м");
  WinDict.add ("э", "н"); WinDict.add ("ю", "о"); WinDict.add ("€", "п");
}
7 апр 06, 01:45††††[2534391]     ќтветить | ÷итировать —ообщить модератору
 Re: ѕеренос данных в DOS-кодировку  [new]
Dorward
Member

ќткуда:
—ообщений: 31
Ёто —и что ли?ј можно на ‘оксѕро?
7 апр 06, 08:48††††[2534574]     ќтветить | ÷итировать —ообщить модератору
 Re: ѕеренос данных в DOS-кодировку  [new]
DIMM@
Member

ќткуда: ¬итебск
—ообщений: 136
€ ж те написал, как сделать. —ам проверил, прежде чем выложить. ¬се работает, копируетс€ файл WinCod.txt в DosCod.txt - и все нормально. ѕроверь все еще раз
7 апр 06, 09:04††††[2534603]     ќтветить | ÷итировать —ообщить модератору
 Re: ѕеренос данных в DOS-кодировку  [new]
Dorward
Member

ќткуда:
—ообщений: 31
я пользовалс€ вариантом leaf он всЄ стирает а твой действительно работает.
—пасибо разобралс€.“ема закрыта.
7 апр 06, 09:08††††[2534618]     ќтветить | ÷итировать —ообщить модератору
¬се форумы / FoxPro, Visual FoxPro ќтветить