FullPlanetAutomatedProcessing/45-WinJupos-Parser.ahk at main · maphilli14/FullPlanetAutomatedProcessing · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
#Requires AutoHotkey v2.0
;
FileAppend "`n`n" FormatTime(A_Now, "dddd MMMM d, yyyy hh:mm:ss tt") " Logging Planet Ephem`n`n", "WinJupos.txt"
;
; updated to put comments on how to find the right boxes when working at 1080p / HD res with included wjs font and color scheme
; use spy to update all 'the following' comments
;
PLANET := InputBox("Input Planet's position number:`n EG: 5= Jupiter").value

;
;System
;
WinActivate "ahk_class TDialogHauptfenster"
sleep 1000
; the following line is the System box, top left under ephem tab
MouseClick "r",22, 275
sleep 1000
MouseClick ,32, 285
sleep 1000
System := A_Clipboard
DATE := SubStr(System, 1 , 10)
TIME := StrReplace(SubStr(System, 26 , 7), ":", "-")
SYS := SubStr(System, 38 , )
;
;
;Alt
;
sleep 1000
MouseClick ,654, 275
sleep 1000
MouseClickDrag ,654, 275 ,1031, 317
sleep 1000
Send "^c"
sleep 1000
Alt := A_Clipboard
Loop Parse Alt, "`n", "`r"
{
	if InStr(A_LoopField, "Alt")
		ALT := SubStr(A_LoopField, -3)

}
;
;
;rest box
;
sleep 1000
MouseClick "r", 851, 544
sleep 2000
MouseClick "l", 861, 554
sleep 1000
Rest := A_Clipboard
;
A_Clipboard := System Alt Rest
;
;
if (PLANET = "4")
{
	Loop Parse Rest, "`n", "`r"
	{
		if InStr(A_LoopField, "Elongation")
			ELONG := SubStr(A_LoopField, 21, )
		if InStr(A_LoopField, "Diameter")
			DIA := SubStr(A_LoopField, 22, 5 )
		if InStr(A_LoopField, "magnitude")
			MAG := SubStr(A_LoopField, 22, 4 )
		if InStr(A_LoopField, "Longitude of Sun")
			LS := SubStr(A_LoopField, 22,)
	}
	FileAppend Rest "`n", "WinJupos.txt"
	FileAppend "=============================`n", "WinJupos.txt"
	FileAppend "Mars`n", "WinJupos.txt"
	FileAppend "m" DATE "_" TIME "`n`n", "WinJupos.txt"
	FileAppend DATE " - " TIME "UTC`n`n", "WinJupos.txt"
	FileAppend SYS "`n`n", "WinJupos.txt"
	PlanetStats := "Dia:" DIA ", mag:" MAG "`n" "Alt:" ALT ", Ls:" LS "`nElong:" ELONG "`n`n"
	FileAppend  PlanetStats, "WinJupos.txt"
}
;
if (PLANET = "5")
{
	Loop Parse Rest, "`n", "`r"
	{
		if InStr(A_LoopField, "Elongation")
			ELONG := SubStr(A_LoopField, 21, )
		if InStr(A_LoopField, "phase corrected")
			DIA := SubStr(A_LoopField, 22, 5 )
		if InStr(A_LoopField, "magnitude")
			MAG := SubStr(A_LoopField, 22, 4 )
		if InStr(A_LoopField, "Longitude of Sun")
			LS := SubStr(A_LoopField, 22,)
	}
	FileAppend "j" DATE "_" TIME "`n`n", "WinJupos.txt"
	FileAppend DATE " - " TIME "UTC`n`n", "WinJupos.txt"
	FileAppend SYS "`n`n", "WinJupos.txt"
	PlanetStats := "Dia:" DIA ",mag:" MAG "`n" "Alt:" ALT ", Ls:" LS "`nElong:" ELONG "`n`n"
	FileAppend  PlanetStats, "WinJupos.txt"
}
if (PLANET = "2")
{
	Loop Parse Rest, "`n", "`r"
	{
		if InStr(A_LoopField, "Elongation")
			ELONG := SubStr(A_LoopField, 21, )
		if InStr(A_LoopField, "Diameter")
			DIA := SubStr(A_LoopField, 22, 5 )
		if InStr(A_LoopField, "magnitude")
			MAG := SubStr(A_LoopField, 22, 4 )
		if InStr(A_LoopField, "Illumin. fraction")
			PHASE := Round(SubStr(A_LoopField, 23, 5) * 100, 1)
			;PHASE := Round(rPHASE * 100, 1)
	}
	FileAppend "v" DATE "_" TIME "`n`n", "WinJupos.txt"
	FileAppend DATE " - " TIME "UTC`n`n", "WinJupos.txt"
	FileAppend " System I             II (Atm. UV)`n" SYS "`n`n", "WinJupos.txt"
	PlanetStats := "Dia:" DIA ",mag:" MAG "`n" "Alt:" ALT ", Phase:" PHASE "%`nElong:" ELONG "`n`n"
	FileAppend  PlanetStats, "WinJupos.txt"
}
if (PLANET = "6")
{
	Loop Parse Rest, "`n", "`r"
	{
		if InStr(A_LoopField, "Elongation")
			ELONG := SubStr(A_LoopField, 21, )
		if InStr(A_LoopField, "phase corrected")
			DIA := SubStr(A_LoopField, 22, 5 )
		if InStr(A_LoopField, "magnitude")
			MAG := SubStr(A_LoopField, 22, 4 )
		if InStr(A_LoopField, "Earth")
			RINGS := SubStr(A_LoopField, 33, 5)
		if InStr(A_LoopField, "Longitude of Sun")
			LS := SubStr(A_LoopField, 21,)
	}
	FileAppend "s" DATE "_" TIME "`n`n", "WinJupos.txt"
	FileAppend DATE " - " TIME "UTC`n`n", "WinJupos.txt"
	FileAppend SYS "`nLoS=" LS "`n`n", "WinJupos.txt"
	PlanetStats := "Dia:" DIA ",mag:" MAG "`n" "Alt:" ALT ", Rings:" RINGS "`nElong:" ELONG "`n`n"
	FileAppend  PlanetStats, "WinJupos.txt"
}

;
WinActivate "ahk_class Notepad++"
TrayTip "Script is done"