Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Перенос данных в DOS-кодировку / 13 сообщений из 13, страница 1 из 1
06.04.2006, 09:08
    #33647933
Dorward
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос данных в DOS-кодировку
Здравствуйте !
Мне надо текстовый файл в Windows - кодировке переделать в DOS -
кодировку.Что сделать ?
...
Рейтинг: 0 / 0
06.04.2006, 09:19
    #33647948
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос данных в DOS-кодировку
комбинация функций
cpconvert
filetostring
stringtofile
если с последними не наврал
...
Рейтинг: 0 / 0
06.04.2006, 09:28
    #33647972
Dorward
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос данных в DOS-кодировку
А можно код ?
...
Рейтинг: 0 / 0
06.04.2006, 09:32
    #33647986
DIMM@
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос данных в DOS-кодировку
stWin=filetostr('WinCod.txt')
stDos=CPCONVERT(1251,866,stStr)
STRTOFILE(stNew, 'DosCod.txt')
...
Рейтинг: 0 / 0
06.04.2006, 09:34
    #33647990
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос данных в DOS-кодировку
StrToFile(Cpconvert(866,1251,FILETOSTR("Dos.TXT")),"Win.txt")
...
Рейтинг: 0 / 0
06.04.2006, 09:34
    #33647993
DIMM@
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос данных в DOS-кодировку
извиняюсь
stWin=filetostr('WinCod.txt')
stDos=CPCONVERT(1251,866,stWin)
STRTOFILE(stDos, 'DosCod.txt')
где WinCod - имя исходного файла, а DosCod - имя нового файла в дос кодировке
...
Рейтинг: 0 / 0
06.04.2006, 09:37
    #33648000
DIMM@
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос данных в DOS-кодировку
leafStrToFile(Cpconvert(866,1251,FILETOSTR("Dos.TXT")),"Win.txt")
ну да,это гораздо лучше моего... чего то я тут совсем затупил...:(
...
Рейтинг: 0 / 0
06.04.2006, 10:36
    #33648174
S866
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос данных в DOS-кодировку
2 DIMM@
Лутше то оно лутше, только ваше новичку легче прочесть и понять.
...
Рейтинг: 0 / 0
06.04.2006, 13:34
    #33648904
Dorward
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос данных в DOS-кодировку
Команда StrToFile(Cpconvert(866,1251,FILETOSTR("Dos.TXT")),"Win.txt")
стирает данные в файле win.txt и ничего не кладёт в файл dos.txt.М.б. есть что другое ?
...
Рейтинг: 0 / 0
07.04.2006, 01:45
    #33650679
Петяня
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос данных в DOS-кодировку
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
07.04.2006, 08:48
    #33650820
Dorward
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос данных в DOS-кодировку
Это Си что ли?А можно на ФоксПро?
...
Рейтинг: 0 / 0
07.04.2006, 09:04
    #33650842
DIMM@
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос данных в DOS-кодировку
я ж те написал, как сделать. Сам проверил, прежде чем выложить. Все работает, копируется файл WinCod.txt в DosCod.txt - и все нормально. Проверь все еще раз
...
Рейтинг: 0 / 0
07.04.2006, 09:08
    #33650855
Dorward
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос данных в DOS-кодировку
Я пользовался вариантом leaf он всё стирает а твой действительно работает.
Спасибо разобрался.Тема закрыта.
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Перенос данных в DOS-кодировку / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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