Read text file from a server on the internet

[hildevasco_br]

Hello

 

Could someone help me, I need to access a txt file to read a folder on a server by ip with visual lisp

 

Example:

 

Folder: https://xxx.xxx.xxx.xxx/d://teste/arquivoteste.txt
Where:
xxx.xxx.xxx.xxx and the ip address or ftp.xxxxx.com.br
test is a folder on the D:// drive
testfile.txt is the file to be read to retrieve the content

 

Thanks
hildevasco

[fan_zh]

try this code

(defun get (url / outtext xml)
  (setq xml (vlax-create-object "Microsoft.XMLHTTP"))
  (vlax-invoke xml 'open "GET" url 0)
  (vlax-invoke xml 'setrequestheader "If-Modified-Since" 0) ;_ 
  (vlax-invoke xml 'send)
  (setq outtext (vlax-get xml "responseText"))
  (vlax-release-object xml)
  (princ outtext)
  (princ)
)

 

Edited August 19, 2022 by fan_zh