powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Перенос данных в DOS-кодировку
13 сообщений из 13, страница 1 из 1
Перенос данных в DOS-кодировку
    #33647933
Dorward
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте !
Мне надо текстовый файл в Windows - кодировке переделать в DOS -
кодировку.Что сделать ?
...
Рейтинг: 0 / 0
Перенос данных в DOS-кодировку
    #33647948
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
комбинация функций
cpconvert
filetostring
stringtofile
если с последними не наврал
...
Рейтинг: 0 / 0
Перенос данных в DOS-кодировку
    #33647972
Dorward
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А можно код ?
...
Рейтинг: 0 / 0
Перенос данных в DOS-кодировку
    #33647986
Фотография DIMM@
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
stWin=filetostr('WinCod.txt')
stDos=CPCONVERT(1251,866,stStr)
STRTOFILE(stNew, 'DosCod.txt')
...
Рейтинг: 0 / 0
Перенос данных в DOS-кодировку
    #33647990
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
StrToFile(Cpconvert(866,1251,FILETOSTR("Dos.TXT")),"Win.txt")
...
Рейтинг: 0 / 0
Перенос данных в DOS-кодировку
    #33647993
Фотография DIMM@
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
извиняюсь
stWin=filetostr('WinCod.txt')
stDos=CPCONVERT(1251,866,stWin)
STRTOFILE(stDos, 'DosCod.txt')
где WinCod - имя исходного файла, а DosCod - имя нового файла в дос кодировке
...
Рейтинг: 0 / 0
Перенос данных в DOS-кодировку
    #33648000
Фотография DIMM@
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
leafStrToFile(Cpconvert(866,1251,FILETOSTR("Dos.TXT")),"Win.txt")
ну да,это гораздо лучше моего... чего то я тут совсем затупил...:(
...
Рейтинг: 0 / 0
Перенос данных в DOS-кодировку
    #33648174
S866
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 DIMM@
Лутше то оно лутше, только ваше новичку легче прочесть и понять.
...
Рейтинг: 0 / 0
Перенос данных в DOS-кодировку
    #33648904
Dorward
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Команда StrToFile(Cpconvert(866,1251,FILETOSTR("Dos.TXT")),"Win.txt")
стирает данные в файле win.txt и ничего не кладёт в файл dos.txt.М.б. есть что другое ?
...
Рейтинг: 0 / 0
Перенос данных в DOS-кодировку
    #33650679
Петяня
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
WSH2(js)
//* в функцию WinToDos передаётся 1251-текст
//* результатом будет этот же текст, но в 866 CP
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
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 ("я", "п");
}
...
Рейтинг: 0 / 0
Перенос данных в DOS-кодировку
    #33650820
Dorward
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Это Си что ли?А можно на ФоксПро?
...
Рейтинг: 0 / 0
Перенос данных в DOS-кодировку
    #33650842
Фотография DIMM@
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я ж те написал, как сделать. Сам проверил, прежде чем выложить. Все работает, копируется файл WinCod.txt в DosCod.txt - и все нормально. Проверь все еще раз
...
Рейтинг: 0 / 0
Перенос данных в DOS-кодировку
    #33650855
Dorward
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я пользовался вариантом leaf он всё стирает а твой действительно работает.
Спасибо разобрался.Тема закрыта.
...
Рейтинг: 0 / 0
13 сообщений из 13, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Перенос данных в DOS-кодировку
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]