文字コードの変換 in R DouKaku?

[topic] 文字コードの変換

1.shift-jisで書かれた文字列をeuc-jpの文字列に変換して返す関数を作ってください。

2.shift-jisで書かれたファイルをeuc-jpに変換してファイル出力するしてください。ただし1で作成した関数を利用せずに。

何気にどう書く？orgに文字コード系の話が出てなかったような気がしたので投稿してみる。

2は言語仕様レベルでさくっといける場合(perlのencodingとか)でお願いします。
読み込みや書き込みのレベルで、文字コードを考えないでスパッといけるのが望ましい。

post comment

Posted feedbacks - R

シンプルに。

#1. convert encoding of string from sjis to eucjp
sjis2euc.character <- function(str){
    iconv(str, "sjis", "eucjp")
}

#2. convert encoding of file from sjis to eucjp
sjis2euc.file <- function(infile="sample.sjis", outfile="sample.eucjp"){
    fr <- file(infile, "r", encoding="sjis")
    fw <- file(outfile, "w", encoding="eucjp")
    cat(readLines(fr), sep="\n", file=fw)
    close(fr)
    close(fw)
}

DouKaku?

[topic] 文字コードの変換

Posted feedbacks - R

Index

Feed

Other

Link

Pathtraq