Jump to content
Macro Express Forums


  • Content Count

  • Joined

  • Last visited

  • Days Won


Posts posted by amonaghan

  1. This should work a lot smoother.

    <VARIABLE SET INTEGER Option="\x00" Destination="%Count%" Value="1"/>
    <TEXT BOX DISPLAY Title="Progress" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset0 Tahoma;}{\\f1\\fnil Tahoma;}}\r\n\\viewkind4\\uc1\\pard\\f0\\fs20 %Count%\\f1 \r\n\\par }\r\n" Left="Center" Top="Center" Width="278" Height="200" Monitor="0" OnTop="TRUE" Keep_Focus="TRUE" Mode="\x02" Delay="1"/>
    <REPEAT START Start="1" Step="1" Count="10" Save="FALSE"/>
    <DELAY Flags="\x02" Time="1000"/>
    <VARIABLE MODIFY INTEGER Option="\x07" Destination="%Count%"/>
    <TEXT BOX UPDATE Header="Progress" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil Tahoma;}}\r\n\\viewkind4\\uc1\\pard\\f0\\fs20 %Count%\r\n\\par }\r\n"/>


  2. This should work, although it is a bit slow. If anyone knows of a quicker way, please let me know?

    Shamelessly stolen from here :- https://www.macros.com/faq/1.79.html

    Repeat Until %cClipboardString% Equals ""
      Text Type (Simulate Keystrokes): <ARROW DOWN>
      Clipboard Copy
      Variable Set String %cClipboardString% from the clipboard contents
      Variable Modify String %cClipboardString%: Trim
    End Repeat


    <VARIABLE SET STRING Option="\x00" Destination="%cClipboardString%" NoEmbeddedVars="FALSE" _ENABLED="FALSE"/>
    <REPEAT UNTIL Variable="%cClipboardString%" Condition="\x00"/>
    <TEXT TYPE Action="0" Text="<ARROW DOWN>"/>
    <VARIABLE SET STRING Option="\x02" Destination="%cClipboardString%" NoEmbeddedVars="FALSE"/>
    <VARIABLE MODIFY STRING Option="\x00" Destination="%cClipboardString%"/>


  3. That's what I'm working towards, possibly doing it all from within Excel. I'm going to use MEP to tie all bits together in the meantime until I suss more out.

    You've given me a really good start though, so thanks again Cory.

    Having to leave it until the weekend as I am currently job hunting and have an appointment tomorrow to prepare for. (Not an interview yet).

  4. Cory,

    I've searched high and low through the URL I posted and can't find any reference to the link you posted. Where did you find that from?

    How did you know to use the bold part, as I can't find any reference to it in the rest of the code?  https://www.premierinn.com/whitbread-services-unsecured/hotels/search/54.97814/-1.61622/40.

    Incidentally, great work so far, I still need date/price info, but don't know where (other than trawling through all the code) where or what link to use.

    I found several JSON->CSV/XLSX converters online for later as I tried loading as JSON data file in Excel 2016 but not yet experienced enough in handling the Data module (formally Power Pivot).



  5. Cory,

    I know this is an old thread, but I can use the above External Script to grab a hotel website code, but this doesn't seem to include the data elements as displayed when using Chrome.

    I know I can fudge it and do the following:-

    1) Go to Elements tab

    2) Select Top most element

    3) Edit as HTML

    4) Select All

    5) Copy etc.

    but this kind of defeats the purpose of using VBscript.

    Do you know what lines in the above code that I need to change so that I can download the actual 'Elements' script rather than just the surrounding HTML code?

    I've looked at the code above and can't see how to do this.



  • Create New...