Code: Select all
on mouseUp
put url("http://www.wallpaperdownloader.com/bing-wallpaper/archive/all/all/1/datedes/") into u
filter u with ("*<img class=" "e& "thumbnail" "e& " src=*")
replace "<img class=" "e& "thumbnail" "e& " src=" "e with empty in u
replace quote& " alt=" "e& "Bing Images - " with "=" in u
replace quote& " />"&numTochar(13) with empty in u
replace tab with empty in u
repeat while CR&CR is in u
replace CR&CR with CR in u
end repeat
put u after s
if char 1 of s is CR then delete char 1 of s
replace "http://www.bing.com/az/hprichbg/rb/" with empty in s
replace "_1366x768.jpg" with ".JPG" in s
put 0 into j; set itemDelimiter to "="
repeat for each line l in s
add 1 to j
put CR & j && (item 2 of l) &"="& (item 1 of l) after t
end repeat
set itemDelimiter to comma
if char 1 of t is CR then delete char 1 of t
put t into fld "Bing"
end mouseUp
1 Angel Oak=AngelOak_EN-AU8619425077.JPG
2 King Penguin And Antarctic Seal=KingPenguinAndAntarcticSeal_ZH-CN9407874973.JPG
3 Petra Jordan=PetraJordan_DE-DE9641813596.JPG
4 London Eye=LondonEye_EN-AU9512752066.JPG
5 Seal Pup And Mother=SealPupAndMother_ZH-CN9609234410.JPG
6 Frauenchiemsee=Frauenchiemsee_DE-DE9233413833.JPG
7 Iled Olonne=IledOlonne_FR-FR9677259144.JPG
8 Opium Poppy=OpiumPoppy_ZH-CN8625759628.JPG
9 Sask Moon=SaskMoon_EN-CA13461630647.JPG
10 Tiger Eye=TigerEye_EN-AU11507535552.JPG
11 Herzliya Israel=HerzliyaIsrael_ZH-CN12724786713.JPG
With LC 7.0 dp3 this gives 355 lines (see yourself).
Yes there is "numTo..." in, but I tried also numToByte, numToNativeChar, and tried 10 as arg instead of 13. No success.