Zur Hauptseite

KaPeGe - allgemein
QR-Code:
QR-Code
100 % PHP 5.4.45  
Zu meinem kleinen Sudelbuch Zu den Schüttelreimen Zur Kletterecke Zur Radelecke

CoordSwap: Koordinaten tauschen

;--------------------------------------------------------------------------
; Tauscht die Koordinaten durch die Zwischenablage von TOP 50 und MapSource
;--------------------------------------------------------------------------

AutoTrim, off
SetTitleMatchMode, 2

start:
clipboard = 
ClipWait
clp = %clipboard%
if clp contains exitsc
    ExitApp
; MapSource -> Top50
StringSplit, koo , clp,%A_Tab%
if koo4 contains N,S,E,W,.      ;     msgbox, Kommt aus Mapsource: %koo4%
{
    StringMid,b   ,koo4,1,1
    StringMid,bg  ,koo4,2,2
    StringMid,bmin,koo4,5,6
    StringMid,l   ,koo4,12,1
    StringMid,lg  ,koo4,13,2
    StringMid,lmin,koo4,16,6
    hoch = %koo4%
    if b = N
        b = Nord
    if b = S
        b = Süd
    if l = E
        l = Ost
    if l = W
        l = West
    top50 = %lg%°%lmin%' %l%, %bg%°%bmin%' %b%, %hoch%
    ifWinExist, Top50 Viewer
    {
        WinActivate, Top50 Viewer
        send, !bk ; Alt-b-k ruft Koordinateneingabe auf
        WinWait, Koordinateneingabe
        send, %lg%%A_Tab%%lmin%%A_Tab%%l%%A_Tab%%bg%%A_Tab%%bmin%%A_Tab%%b%{Enter}
        clp =
        koo4 = 
    }
}

; Top50 -> Mapsource
if clp contains Nord,Süd,West,Ost,°,'   ; msgbox, Kommt aus Top50: %clp%
{
    StringMid,l   ,clp,13,1
    StringMid,lg  ,clp,1,3
    StringMid,lmin,clp,5,6
    StringMid,b   ,clp,30,1
    StringMid,bg  ,clp,18,3
    StringMid,bmin,clp,22,6
    StringMid,hoch,clp,36,10
    Transform,hoch, Round, %hoch%
    if l = O
        l = E
    clipboard = %b%%bg% %bmin% %l%%lg% %lmin%
    FormatTime, Kommentar,,dd.MM.yyyy, HH:mm:ss
    ifWinExist, MapSource
    {
        WinActivate, MapSource
        WinWait, MapSource, Routenberechnungsdat
        IfWinNotActive, MapSource, Routenberechnungsdat, WinActivate, MapSource, Routenberechnungsdat
        WinWaitActive, MapSource, Routenberechnungsdat
        Send, {ALTDOWN}b{ALTUP}p
        WinWait, Wegpunkteigenschaften
        send, {tab}{down}{home}{down 8}
        sleep, 100
        send, {tab}{del}{CTRLDOWN}v{CTRLUP}{tab}{space}+{tab}%hoch%{tab 5}%Kommentar%{Enter}
    }
}
goto, start
return

Schritt zurück An den Seitenanfang Zur Softwareecke Zur Hauptseite E-mail an: Peter Schritt vorwärts Navigation
© 1999-2017 bei KPG (www.kapege.de)
Bei Problemen mit der Seite hilft eine Mail an den Webmaster. Du bist seit 0 Minuten bei KaPeGe.

Ranking-Hits