AppleScript parsing html from site -


what i'm trying names of tv shows on wikipedia page.

ok, did first:

property showsweblist : {}  tell application "safari"     set loaddelay 2 -- in seconds; test system     make new document @ end of every document     set url of document 1 "http://en.wikipedia.org/wiki/list_of_television_programs_by_name"     delay loaddelay     set nrofuls javascript "document.getelementbyid('mw-content-text').queryselectorall('ul').length;" in document 1     set nrofuls nrofuls - 1 number     log nrofuls     repeat ws 1 nrofuls         delay loaddelay         set nroflis javascript "document.getelementbyid('mw-content-text').getelementsbytagname('ul')[" & ws & "].queryselectorall('li').length;" in document 1         set nroflis nroflis - 1 number         log nroflis          repeat rs 0 nroflis             delay 0.3             set ashow javascript "document.getelementbyid('mw-content-text').getelementsbytagname('ul')[" & ws & "].getelementsbytagname('li')[" & rs & "].getelementsbytagname('i')[0].getelementsbytagname('a')[0].innerhtml;" in document 1             if ashow not "" or "missing value"                 copy ashow end of showsweblist             end if         end repeat     end repeat end tell

and works how want to. problem takes 15 minutes until it's done , gotta have safari document in front whole time. thought pick whole code , parse it. not easy. how code looks now:

tell application "safari"     make new document @ end of every document     set url of document 1 "http://en.wikipedia.org/wiki/list_of_television_programs_by_name"      delay 4      set orghtml javascript "document.getelementbyid('mw-content-text').innerhtml;" in document 1     set orghtml orghtml text     set readytext extractbetween(orghtml, "<li><i><a ", "</a></i></li>")     log (item 0 of readytext)     set removearray extractbetween(readytext, "href", ">")     set completearray {}     repeat rt 0 (count readytext)         repeat ra 0 (count removearray)             if (item ra of removearray) in (item rt of readytext)                 set completename trim_line((item rt of readytext), (item ra of removearray), 1)                 set end of completearray completename             end if         end repeat     end repeat     log completearray  end tell  on extractbetween(searchtext, starttext, endtext)      set tid applescript's text item delimiters -- save them later.      set applescript's text item delimiters starttext -- find first one.      set liste text items of searchtext      set applescript's text item delimiters endtext -- find end one.      set extracts {}      repeat subtext in liste          if subtext contains endtext              copy text item 1 of subtext end of extracts          end if      end repeat      set applescript's text item delimiters tid -- original values.      return extracts  end extractbetween  on trim_line(this_text, trim_chars, trim_indicator)     -- 0 = beginning, 1 = end, 2 = both     set x length of trim_chars     -- trim beginning     if trim_indicator in {0, 2}         repeat while this_text begins trim_chars             try                 set this_text characters (x + 1) thru -1 of this_text string             on error                 -- text contains nothing trim characters                 return ""             end try         end repeat     end if     -- trim ending     if trim_indicator in {1, 2}         repeat while this_text ends trim_chars             try                 set this_text characters 1 thru -(x + 1) of this_text string             on error                 -- text contains nothing trim characters                 return ""             end try         end repeat     end if     return this_text end trim_line

not smooth , not working. somehow seems can't items out of list, because doesn't see list item. can me out?

cheers

i recommend different approach. dl source, , grab title between tags. whole script takes under 2 seconds. start with:

property baseurl : "http://en.wikipedia.org/wiki/list_of_television_programs_by_name" set rawhtml shell script "curl '" & baseurl & "'" set pretag "\" title=\"" -- " title=" set otid applescript's text item delimiters set applescript's text item delimiters pretag set rawlist text items of rawhtml set namelist {} repeat eachline in rawlist     set theoff offset of ">" in eachline     set thisname text 1 thru (theoff - 2) of eachline     -- add error checking here skip opening non-title hits, , fine-tune precise title string     set namelist namelist & return & thisname end repeat set applescript's text item delimiters otid return namelist

add little error checking, , tweak pretag , posttag fits best.


Comments

Post a Comment

Popular posts from this blog

commonjs - How to write a typescript definition file for a node module that exports a function? -

consider, toml node module can use: // toml.d.ts declare module toml { export function parse(value:string):any; } declare module "toml" { export = toml; } then: /// <reference path="../../../../../defs/toml/toml.d.ts"/> import toml = require('toml'); toml.parse(...); however, node module export single function, such 'glob' ( https://github.com/isaacs/node-glob ). the node usage of module be: var glob = require("glob") glob("*.js", {}, callback(err, files) { ... }); you'd naively expect this: // glob.d.ts declare function globs(paths:string, options:any, callback:{(err:any, files:string[]):void; ...but because typescripts 'import' semantics bit strange, seems can use 'import .. = require()' statement alias modules . trying call: /// <reference path="../../../../../defs/glob/glob.d.ts"/> import blog = require('glob'); results in: error ts2072: mod
Read more

openid - Okta: Failed to get authorization code through API call -

i'm integrating okta own idp server using okta's api. i'm implementing authorization code flow following steps below: in own server, use /api/v1/authn endpoint sessiontoken. use sessiontoken obtain authorization calling endpoint: /oauth2/v1/authorize?client_id=" + clientid + "&sessiontoken=" + sessiontoken + "&response_type=code&response_mode=query&scope=openid&redirect_uri=" + redirecturl + "&state=evanyang&nonce=" it's supposed return response status code 302 , location header containing redirect url code value. however, keep getting response status code 200 , without location header, html body saying "you using unsupported browser." , "javascript disabled on browser." according api documentation: http://developer.okta.com/docs/api/resources/oidc.html#authentication-request , sessiontoken parameter sufficient this: an okta one-time sessiontoken. allows api-based
Read more

thorough guide for profiling racket code -

did googling ("racket profiling", "racket measure performance"), didn't find , there no examples in docs. did google "profile" search on htdp - no luck. (profile (f ...)) output isn't obvious other small snippets. ideally want python's python -m cprofile usage examples. when search "python profiling", both duckduckgo , google give top result: 26.4. python profilers . (although scanned quickly, seems more of reference "thorough usage guide" examples. if had else in mind, perhaps please link that?) the equivalent racket documentation be: profile: statistical profiler . a usage example: #lang racket (require profile) (profile-thunk (thunk (function-to-profile arg0 arg1) )) here (thunk e) convenience (lambda () e) . bigger example: #lang racket (module mod racket (provide f) (define (f) (for/list ([i 10000]) i))) (require (prefix-in mod: 'mod)) (define (f) (for ([i 10000
Read more