Форумы GIS-Lab.info

Код: Выделить всё

> library(foreign)
> 
> p = read.dbf("d:/temp/f111.dbf",as.is=TRUE)
> Encoding(p$TEXT)
[1] "unknown" "unknown"
> head(p)
  KOD                      TEXT
1   0 Ќ…Ќ…–Љ€‰ Ђ‚’ЋЌЋЊЌ›‰ ЋЉђ“ѓ
2   1 ЌҐ­ҐжЄЁ©  ўв®­®¬­л© ®ЄагЈ
> 
> iconv.list=iconvlist()
> 
> pos=grep("866",iconv.list)
> iconv.list[pos]
[1] "866"      "cp866"    "CP866"    "CSIBM866" "IBM866"  
> 
> pos=grep("1251",iconv.list)
> iconv.list[pos]
[1] "CP1251"       "windows-1251"
> 
> p$TEXT2 = iconv(p$TEXT, from = "CP866", to = "CP1251", sub = "?")
> print(p)
  KOD                      TEXT                     TEXT2
1   0 Ќ…Ќ…–Љ€‰ Ђ‚’ЋЌЋЊЌ›‰ ЋЉђ“ѓ НЕНЕЦКИЙ АВТОНОМНЫЙ ОКРУГ
2   1 ЌҐ­ҐжЄЁ©  ўв®­®¬­л© ®ЄагЈ Ненецкий автономный округ