« Return to Thread: I'm looking for a method of converting a string's character encoding

Re: I'm looking for a method of converting a string's character encoding

by Sunjoong Lee :: Rate this Message:

Are file-port and string-port much different? I can convert strings in file but I want not to use file. My terminal charset is utf-8. Suppose there be a "XXX" encoded text file "a.txt", it would be converted like this:

(use-modules (ice-9 rdelim))

(set-port-encoding! (current-output-port) "utf-8")

(define port (open-input-file "a.txt"))

(set-port-encoding! port "XXX")

(display (read-delimited "" port))

(close-port port)

I tried similar manner with string-port but failed. In real case, there is "XXX" encoded string. In this case, I cannot prepare it, so read it from a file.

(use-modules (ice-9 rdelim))

(define port (open-input-file "a.txt"))

(set-port-encoding! port "XXX")

(let ((port1 (open-input-string (let ((str (read-delimited "" port)))

(close-input-port port)

str)))

(port2 (open-output-string)))

(set-port-encoding! port1 "XXX")

(set-port-encoding! port2 "utf-8")

(display (read-delimited "" port1) port2)

(close-input-port port1)

(display (get-output-string port2))

(close-output-port port2))

2012/4/28 Sunjoong Lee <sunjoong@...>

Now, I need to convert this contents body string to utf-8 but I don't know how. I think it would be with port i/o.

« Return to Thread: I'm looking for a method of converting a string's character encoding