%
% extract info from MSC webpage
% stack: msc-text
%
%%% "IMR\msctest.txt" offact

 read
%
% stack: web-page-content
%
'id="pdp-top-content"' found?
{
 'id="pdp-top-content"' right$
 '<a id="zoom"' right$
 '<img' right($
 dup '</a>' left$
 'onerror=' slice 'alt="' right($ &
 '"//cdn' '"http://cdn' replall
 !Extract.F
 'class="sixteen wide column">' right$
 dup '</div>' left)$ !Extract.A
 '<span class="pdp-main-price">' right$
 dup '</span>' left)$ !Extract.B
 '<span><img src="//' right$
 'Part #:' right($
 dup '</span>' left)$ ^'<span>'
 !Extract.Ca
 '</span>' right$
 dup '<span>' right($
 '</span>' left)$ !Extract.Cb
 '<div id="pdp-features">' right($
 dup '<a name="specs"' left$ !Extract.E
 '<div id="pdp-specs">' right($
 dup '<div class="six wide column"' left$
 '</div>' left$/ !Extract.D
 '<table class="ui compact very basic table"' right($
 '</table>' left)$
 '<img ' slice 'Part #:' right($ &
 '"/FlyerView' '"https://www.mscdirect.com/FlyerView' replall
 !Extract.G

 _Extract.A trim &;
 _Extract.B trim &; &
 _Extract.Ca trim &; &
 _Extract.Cb trim &; &
 _Extract.D trim &; &
 _Extract.E trim &; &
 _Extract.F trim &; &
 _Extract.G trim &; &

@Xls
@_xlHwnd
Win.Min

"IMR\msctest.lst" offact write
"notepad " "IMR\msctest.lst" offact &
*runsnorm
}
{
 pop
} ifelse