Topic: read-line issue ? or variable setting ?

[Andrea]

Hi all,..

anyone can run READ-LINE on this file

Code: [Select]

(setq file (open "C:\\test\\test2.txt" "r"))
(setq rline (read-line file))
(close file)
it return..

Code: [Select]

"˙ŝt\000e\000s\000t\000f\000i\000l\000e\000"
??

[ronjonp]

Same here. This is probably the culprit.

[Andrea]

I check the file propreties...all seem ok..
strange thing...

[Andrea]

Same here. This is probably the culprit.

Bingo !  thank you very much Ron !
Now I've to figureout how to change this proprety...

thanks again.

[Andrea]

there...

Code: [Select]

(defun ReadasUnicode (file / fsobj readalldoc)
  (if (findfile file)
    (progn
      (setq fsobj (vlax-create-object "Scripting.FileSystemObject"))
      (setq file (vlax-invoke-method fsobj 'OpenTextFile file 1 :vlax-false -2))
      (setq readalldoc (vlax-invoke file 'readall))
      (vlax-invoke file 'close)
      (vlax-release-object fsobj)
      (vlax-release-object file)
      (princ)
    )
  )
  readalldoc
)

any other suggestion ?

[roy_043]

Since you are also working with BricsCAD this may be of interest:

Code: [Select]

(defun BinReadUnInt16 (fileName / fptr int ret)
  (setq fptr (open fileName "rb"))
  (while (setq int (vle-read-uint16  fptr))
    (setq ret (cons int ret))
  )
  (close fptr)
  (reverse ret)
)

Code: [Select]

(BinReadUnInt16 "C:/downloads/test2.txt") => (65279 116 101 115 116 102 105 108 101 13 10)

Code: [Select]

(vl-list->string (BinReadUnInt16 "C:/downloads/test2.txt")) => "˙testfile\r\n"
BTW:
According to the BricsCAD 'Lisp Developer Support Package' AutoLisp also supports (open <filename> "rb") and (open <filename> "wb"). Where "rb" stands for "read binary" and "wb" for "write binary".

[VovKa]

http://www.theswamp.org/index.php?topic=39617.msg449060#msg449060

Code: [Select]

(vk_ReadTextStream "C:\\test\\test2.txt" "utf-16")

[Lee Mac]

This might also be of some interest:
http://www.theswamp.org/index.php?topic=39814.0