AutoHotkey Community

[andrewafresh]

I’m trying to create a hotkey that I can use when viewing the internet to go up one level e.g. if I am viewing a page with this address:
http://www.me.com/level1/level2
the script will take me to:
http://www.me.com/level1

This is the script:

F1::
Clipboard = ;empty the clipboard
send !d ; move to the address line
send ^c ;copy the URL to clipboard
clipwait
StringGetPos, SlashPos, Clipboard, /, R1 ; find out where the last slash resides in URL
if SlashPos = -1 ;if no slash, exit
return
LeftChars := SlashPos - 1 ; subtract one from the slash position
stringleft, NewUrl, Clipboard, %LeftChars% ;copy everything before the slash into NewUrl
send %NewUrl%
sleep 300
send {enter}
return

The problems are:
1) it usually does not copy the URL to the clipboard- it just waits and waits till I press Ctrl+C myself
2) the variable NewUrl often starts tp: and not http:

Any ideas?

[aaffe]

instead of copying the http to clipboard I would use ControlGetText and ControlSend to the address-bar.

[engunneer]

you can use StringSplit and SplitPath for more reliable editing of the URL.
_________________

(Common Answers)

[Guest]

try adding a sleep, 250 after send !d

[andrewafresh]

Many thanks for all your replies. For the record, this is the code which I have got working (in Internet Explorer 7):

^d::
controlgettext, oldurl, edit1, A
;msgbox %oldUrl%
stringright, LastChar, oldurl, 1
if LastChar = / ; if URL ends in / remove the /
StringTrimRight, oldurl, oldurl, 1
StringGetPos, SlashPos, oldUrl, /, R1 ; find out where the last slash resides in URL
if SlashPos = -1 ;if no slash, exit
return
;msgbox %SlashPos%
LeftChars := SlashPos - 0 ; subtract one from the slash position
;msgbox %LeftChars%
stringleft, NewUrl, oldUrl, %LeftChars% ;copy everythnig before the slash into NewUrl
;msgbox %NewUrl%
send !d ; move to the address line
sleep 300
send %NewUrl%
sleep 300
send {enter}
;ControlSetText, Edit1, %NewUrl%, A
return

[sinkfaze]

You should be able to bump the reliability by sending the finished product to the clipboard and pasting it:

[Astrognaw]