0 Members and 1 Guest are viewing this topic.
;; Retrieves a text file from http://www.opendcl.com;; Based on Password Generator - Lee Mac ;; http://www.theswamp.org/index.php?topic=45220.msg504240#msg504240(defun readwwwtxt ( / obj rtn ) (if (setq obj (vlax-get-or-create-object "winhttp.winhttprequest.5.1")) (progn (setq rtn (vl-catch-all-apply (function (lambda ( ) (vlax-invoke-method obj 'open "GET" (strcat "http://www.opendcl.com/version/version.txt" ) :vlax-false ) (vlax-invoke-method obj 'send) (vlax-get-property obj 'responsebody) ) ) ) ) (vlax-release-object obj) (if (vl-catch-all-error-p rtn) (princ (vl-catch-all-error-message rtn)) (princ (vl-list->string (mapcar '(lambda ( x ) (lsh (lsh x 24) -24)) (vlax-safearray->list (vlax-variant-value rtn)) ) ) ) ) ) ) (princ))(vl-load-com) (princ)
<!DOCTYPE html><html lang="en" xmlns:fb="http://ogp.me/ns/fb#" xml:lang="en" class="" xmlns="http://www.w3.org/1999/xhtml"><head> <script type="text/javascript"> window._document_observe_listeners = []; document.observe = function(event, func) { window._document_observe_listeners.push({event: event, func: func}); }; window._jquery_ready_handlers = []; jQuery = function(handler) { window._jquery_ready_handlers.push(handler); }; function on_script_loaded(func) { (window.LoadedJsSuccessfully && document.loaded) ? func() : document.observe('script:loaded', func); } </script>
"https://dl.dropboxusercontent.com/u/2190289/3dcircle.txt"
Hello!Have anybody a tip how I can create a txt-file for reading on Internet, something like this http://www.opendcl.com/version/version.txt. I want save som strings, that all people in my company can read.
1001,6399639.0050,140917.0395,14.1900,351002,6399639.0427,140917.0612,14.1883,331003,6399637.9412,140920.9416,14.2981,331004,6399637.7453,140922.4169,14.2106,301005,6399636.4977,140925.1814,12.9932,371006,6399643.8283,140920.0239,14.2999,211007,6399644.9423,140922.3941,14.2907,231008,6399646.0801,140924.0623,14.2830,281009,6399647.4268,140925.8188,14.0676,621010,6399658.3731,140934.0247,12.8735,371011,6399660.2911,140929.7799,14.2301,301012,6399660.8362,140928.7482,14.4935,331013,6399661.8820,140925.2360,14.4253,331014,6399662.7536,140923.3580,14.1661,341015,6399663.7824,140920.9240,14.3407,331016,6399665.5760,140925.0868,14.4027,421017,6399676.4439,140925.0100,14.4442,331018,6399676.0636,140926.9903,14.3849,341019,6399675.7558,140929.1346,14.5302,331020,6399674.6807,140933.1402,14.6979,331021,6399674.5812,140934.4774,14.6329,301022,6399674.1669,140938.0629,13.5475,371023,6399687.9067,140942.0012,13.6892,371024,6399688.9051,140939.0079,14.6122,301025,6399689.2605,140937.4530,14.7784,331026,6399690.2661,140933.7134,14.6481,331027,6399690.8919,140931.8043,14.3896,341028,6399691.5671,140929.1749,14.5694,331029,6399705.3710,140932.8291,14.6457,331030,6399705.1060,140934.7105,14.2285,341031,6399704.4094,140937.3823,14.7591,331032,6399703.5584,140941.2014,14.9165,331033,6399703.4167,140942.4247,14.6681,301034,6399703.0543,140945.3158,13.7486,371035,6399701.5285,140933.8234,14.2286,241036,6399704.4092,140934.7291,14.2568,621037,6399708.8118,140934.3335,14.6512,621038,6399709.7948,140937.8926,15.1640,631039,6399709.7559,140937.8959,15.1487,631040,6399719.4849,140936.3540,14.8049,331041,6399719.3641,140938.1597,14.4041,341042,6399719.0379,140940.6971,14.9729,331043,6399718.4117,140944.4596,15.0808,331044,6399718.4342,140944.4669,15.0816,331045,6399717.9532,140947.8248,13.7029,371046,6399732.2193,140950.4480,14.0333,371047,6399732.9822,140947.4080,15.2299,331048,6399733.0431,140947.3724,15.2237,331049,6399733.5920,140943.5537,15.0932,331050,6399733.9187,140941.3102,14.6559,341051,6399734.2865,140939.1526,14.9514,331052,6399749.0539,140941.4067,15.0798,331053,6399748.8937,140943.2010,14.7193,341054,6399748.5960,140945.9247,15.1997,331055,6399748.1738,140949.7447,15.3530,331056,6399747.5850,140952.4295,14.3471,371057,6399761.6958,140954.3137,14.5520,371058,6399762.0116,140951.8847,15.4454,....
Put the text file in your Public folder and put the "public link" in the lisp, example:Code: [Select]"https://dl.dropboxusercontent.com/u/2190289/3dcircle.txt"
(readwwwtxt "https://dl.dropboxusercontent.com/u/2190289/131016-1S.txt")