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

[Sunjoong Lee]

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 <address@hidden>

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.