Ticket #590: AutoReduceV2.au3

File AutoReduceV2.au3, 18.3 KB (added by asfarley@…, on Sep 22, 2008 at 12:11:25 AM)

Image processing script

Line 
1#include <GUIConstantsEx.au3>
2
3Opt('MustDeclareVars', 1)
4
5AutoReduceMain()
6
7
8; Func AutoReduceMain()
9;This function currently runs the show;
10Func AutoReduceMain()
11 Local $msg, $btn
12 Local $File_Name, $Exposure_Time, $FrameRate, $Total_Frames, $Working_Directory
13 Local $File_Name_Box, $Exposure_Time_Box, $FrameRate_Box, $Total_Frames_Box, $Working_Directory_Box
14
15 Local $File_Name1,$File_Name2,$File_Name3,$File_Name4,$File_Name5,$File_Name6,$File_Name7,$File_Name8,$File_Name9,$File_Name10
16 Local $File_Name1_Box,$File_Name2_Box,$File_Name3_Box,$File_Name4_Box,$File_Name5_Box,$File_Name6_Box,$File_Name7_Box,$File_Name8_Box,$File_Name9_Box,$File_Name10_Box
17
18
19
20 GUICreate("AutoReduce", 500, 550, @DesktopWidth / 4 , @DesktopHeight / 4 , -1, 0x00000018)
21
22 ;input boxes
23 $File_Name_Box = GUICtrlCreateInput("F:\Alex\Unedited Files\capturew.avi", 10, 5, 300, 20)
24 GUICtrlSetState(-1, $GUI_DROPACCEPTED) ;accept drag & drop files for previous input control
25 GUICtrlCreateLabel("Drag raw file here", 355, 5)
26
27 $File_Name1_Box = GUICtrlCreateInput("", 10, 35, 300, 20)
28 GUICtrlSetState(-1, $GUI_DROPACCEPTED) ;accept drag & drop files for previous input control
29 GUICtrlCreateLabel("Drag raw file here", 355, 35)
30
31 $File_Name2_Box = GUICtrlCreateInput("", 10, 65, 300, 20)
32 GUICtrlSetState(-1, $GUI_DROPACCEPTED) ;accept drag & drop files for previous input control
33 GUICtrlCreateLabel("Drag raw file here", 355, 65)
34
35 $File_Name3_Box = GUICtrlCreateInput("", 10, 95, 300, 20)
36 GUICtrlSetState(-1, $GUI_DROPACCEPTED) ;accept drag & drop files for previous input control
37 GUICtrlCreateLabel("Drag raw file here", 355, 95)
38
39 $File_Name4_Box = GUICtrlCreateInput("", 10, 125, 300, 20)
40 GUICtrlSetState(-1, $GUI_DROPACCEPTED) ;accept drag & drop files for previous input control
41 GUICtrlCreateLabel("Drag raw file here", 355, 125)
42
43 $File_Name5_Box = GUICtrlCreateInput("", 10, 155, 300, 20)
44 GUICtrlSetState(-1, $GUI_DROPACCEPTED) ;accept drag & drop files for previous input control
45 GUICtrlCreateLabel("Drag raw file here", 355, 155)
46
47 $File_Name6_Box = GUICtrlCreateInput("", 10, 185, 300, 20)
48 GUICtrlSetState(-1, $GUI_DROPACCEPTED) ;accept drag & drop files for previous input control
49 GUICtrlCreateLabel("Drag raw file here", 355, 185)
50
51 $File_Name7_Box = GUICtrlCreateInput("", 10, 215, 300, 20)
52 GUICtrlSetState(-1, $GUI_DROPACCEPTED) ;accept drag & drop files for previous input control
53 GUICtrlCreateLabel("Drag raw file here", 355, 215)
54
55 $File_Name8_Box = GUICtrlCreateInput("", 10, 245, 300, 20)
56 GUICtrlSetState(-1, $GUI_DROPACCEPTED) ;accept drag & drop files for previous input control
57 GUICtrlCreateLabel("Drag raw file here", 355, 245)
58
59 $File_Name9_Box = GUICtrlCreateInput("", 10, 275, 300, 20)
60 GUICtrlSetState(-1, $GUI_DROPACCEPTED) ;accept drag & drop files for previous input control
61 GUICtrlCreateLabel("Drag raw file here", 355, 275)
62
63 $File_Name10_Box = GUICtrlCreateInput("", 10, 305, 300, 20)
64 GUICtrlSetState(-1, $GUI_DROPACCEPTED) ;accept drag & drop files for previous input control
65 GUICtrlCreateLabel("Drag raw file here", 355, 305)
66
67 GUICtrlCreateLabel("//-----------------------------------------------------------------------------------------------------------------------------------------------//", 25, 327)
68 $Working_Directory_Box = GUICtrlCreateInput("F:\Alex\output", 10, 345, 300, 20)
69 GUICtrlSetState(-1, $GUI_DROPACCEPTED) ;accept drag & drop files for previous input control
70 GUICtrlCreateLabel("Directory for processed files", 355, 345)
71
72 $Exposure_Time_Box = GUICtrlCreateInput("2", 10, 375, 50, 20)
73 GUICtrlCreateLabel("Exposure Time", 355, 375)
74
75 $FrameRate_Box = GUICtrlCreateInput("30", 10, 405, 50, 20)
76 GUICtrlCreateLabel("Framerate", 355,405 )
77
78 $Total_Frames_Box = GUICtrlCreateInput("4500", 10, 435, 50, 20)
79 GUICtrlCreateLabel("Total number of frames", 355, 435)
80
81 $btn = GUICtrlCreateButton("Ok", 10, 465, 60, 20)
82
83 ;wait for OK click
84 GUISetState()
85 $msg = 0
86 While $msg <> $GUI_EVENT_CLOSE
87 $msg = GUIGetMsg()
88 Select
89 Case $msg = $btn
90 ExitLoop
91 EndSelect
92 WEnd
93
94 ;get settings
95 $File_Name = GUICtrlRead($File_Name_Box)
96 $File_Name1 = GUICtrlRead($File_Name1_Box)
97 $File_Name2 = GUICtrlRead($File_Name2_Box)
98 $File_Name3 = GUICtrlRead($File_Name3_Box)
99 $File_Name4 = GUICtrlRead($File_Name4_Box)
100 $File_Name5 = GUICtrlRead($File_Name5_Box)
101 $File_Name6 = GUICtrlRead($File_Name6_Box)
102 $File_Name7 = GUICtrlRead($File_Name7_Box)
103 $File_Name8 = GUICtrlRead($File_Name8_Box)
104 $File_Name9 = GUICtrlRead($File_Name9_Box)
105 $File_Name10 = GUICtrlRead($File_Name10_Box)
106 $Exposure_Time = GUICtrlRead($Exposure_Time_Box)
107 $FrameRate = GUICtrlRead($FrameRate_Box)
108 $Total_Frames = GUICtrlRead($Total_Frames_Box)
109 $Working_Directory = GUICtrlRead($Working_Directory_Box)
110
111
112 Local $i
113 for $i = 1 to 11
114
115 Switch Int($i)
116 Case 1
117 if $File_Name <> "" Then
118 ReduceRaw($File_Name, $Exposure_Time, $FrameRate, $Total_Frames, $Working_Directory)
119 EndIf
120 Case 2
121 if $File_Name1 <> "" Then
122 ReduceRaw($File_Name1, $Exposure_Time, $FrameRate, $Total_Frames, $Working_Directory)
123 EndIf
124 Case 3
125 if $File_Name2 <> "" Then
126 ReduceRaw($File_Name2, $Exposure_Time, $FrameRate, $Total_Frames, $Working_Directory)
127 EndIf
128 Case 4
129 if $File_Name3 <> "" Then
130 ReduceRaw($File_Name3, $Exposure_Time, $FrameRate, $Total_Frames, $Working_Directory)
131 EndIf
132 Case 5
133 if $File_Name4 <> "" Then
134 ReduceRaw($File_Name4, $Exposure_Time, $FrameRate, $Total_Frames, $Working_Directory)
135 EndIf
136 Case 6
137 if $File_Name5 <> "" Then
138 ReduceRaw($File_Name5, $Exposure_Time, $FrameRate, $Total_Frames, $Working_Directory)
139 EndIf
140 Case 7
141 if $File_Name6 <> "" Then
142 ReduceRaw($File_Name6, $Exposure_Time, $FrameRate, $Total_Frames, $Working_Directory)
143 EndIf
144 Case 8
145 if $File_Name7 <> "" Then
146 ReduceRaw($File_Name7, $Exposure_Time, $FrameRate, $Total_Frames, $Working_Directory)
147 EndIf
148 Case 9
149 if $File_Name8 <> "" Then
150 ReduceRaw($File_Name8, $Exposure_Time, $FrameRate, $Total_Frames, $Working_Directory)
151 EndIf
152 Case 10
153 if $File_Name9 <> "" Then
154 ReduceRaw($File_Name9, $Exposure_Time, $FrameRate, $Total_Frames, $Working_Directory)
155 EndIf
156 Case 11
157 if $File_Name10 <> "" Then
158 ReduceRaw($File_Name10, $Exposure_Time, $FrameRate, $Total_Frames, $Working_Directory)
159 EndIf
160 Case Else
161 ;
162 EndSwitch
163 Next
164
165
166
167
168EndFunc
169
170
171;func ReduceRaw()
172;This function takes the input for a specific file and performs the VirtualDub and ImageJ reduction
173Func ReduceRaw($File_Name, $Exposure_Time, $FrameRate, $Total_Frames, $Working_Directory)
174
175 WinSetState("AutoReduce", "", @SW_MINIMIZE)
176
177;start VirtualDub
178 Run("VirtualDub.exe")
179 WinWaitActive("VirtualDub")
180
181 ;open file to be processed
182 Send("!f")
183 Send("{ENTER}")
184 Send($File_Name)
185 Send("{ENTER}")
186
187 ;apply 2:1 high quality reduction
188 WinWaitActive("VirtualDub")
189 Send("^f")
190 WinActivate("Filters")
191 WinWaitActive("Filters")
192 Send("!a")
193 Send("{LEFT}")
194 Send("{ENTER}")
195 Send("{ENTER}")
196
197 ;delete redundant frames
198 If $Exposure_Time == "2" Then
199 WinWaitActive("VirtualDub")
200 Send("^r")
201 WinActivate("Video Frame Rate Control")
202 ControlClick("Video frame rate control", "", "Button7")
203 Send("{ENTER}")
204 EndIf
205
206 ;select first quarter
207 WinWaitActive("VirtualDub 1.8")
208 Send("^g")
209 Send("0")
210 Send("{ENTER}")
211 Send("{HOME}")
212 Send("^g")
213 Send("2250")
214 Send("{ENTER}")
215 Send("{END}")
216
217
218
219 ;save first quarter reduced .avi
220 Send("!f")
221 Send("a")
222 Send($Working_Directory)
223 Send("\")
224 Send("1")
225 Send("{ENTER}")
226 if WinActive("Save AVI 2.0 File") OR WinActive("Save") Then
227 Send("{LEFT}")
228 Send("{ENTER}")
229 EndIf
230
231 ;select second quarter
232 WinWaitActive("VirtualDub 1.8")
233 Send("^g")
234 Send("2250")
235 Send("{ENTER}")
236 Send("{HOME}")
237 Send("^g")
238 Send("4500")
239 Send("{ENTER}")
240 Send("{END}")
241
242 ;save second quarter reduced .avi
243 Send("!f")
244 Send("a")
245 Send($Working_Directory)
246 Send("\")
247 Send("2")
248 Send("{ENTER}")
249 if WinActive("Save AVI 2.0 File") OR WinActive("Save") Then
250 Send("{LEFT}")
251 Send("{ENTER}")
252 EndIf
253
254 ;select third quarter
255 WinWaitActive("VirtualDub 1.8")
256 Send("^g")
257 Send("4500")
258 Send("{ENTER}")
259 Send("{HOME}")
260 Send("^g")
261 Send("6750")
262 Send("{ENTER}")
263 Send("{END}")
264
265 ;save third quarter reduced .avi
266 Send("!f")
267 Send("a")
268 Send($Working_Directory)
269 Send("\")
270 Send("3")
271 Send("{ENTER}")
272 if WinActive("Save AVI 2.0 File") OR WinActive("Save") Then
273 Send("{LEFT}")
274 Send("{ENTER}")
275 EndIf
276
277 ;select fourth quarter
278 WinWaitActive("VirtualDub 1.8")
279 Send("^g")
280 Send("6750")
281 Send("{ENTER}")
282 Send("{HOME}")
283 Send("^g")
284 Send("9000")
285 Send("{ENTER}")
286 Send("{END}")
287
288 ;save fourth quarter reduced .avi
289 Send("!f")
290 Send("a")
291 Send($Working_Directory)
292 Send("\")
293 Send("4")
294
295 #CS
296 Send("{ENTER}")
297 if WinActive("Save AVI 2.0 File") OR WinActive("Save") Then
298 Send("{LEFT}")
299 Send("{ENTER}")
300 EndIf
301
302 ;exit VirtualDub
303 WinWaitActive("VirtualDub 1.8")
304 Send("!f")
305 Send("q")
306
307
308 ;start ImageJ
309 Run("ImageJ.exe")
310 WinWaitActive("ImageJ")
311
312
313 ;open file 1
314 Send("^o")
315 WinWaitActive("Open")
316 Send($Working_Directory)
317 Send("\")
318 Send("1.avi")
319 Send("{ENTER}")
320
321 ;select imageJ window
322 WinWaitActive("1.avi")
323 WinActivate("ImageJ")
324 WinWaitActive("ImageJ")
325 WinSetState("ImageJ", "", @SW_SHOW)
326
327 ;reduce to 8-Bit
328 ;alt right right down right enter
329 WinWaitActive("ImageJ")
330 Send("{ALT}")
331 Send("{RIGHT}")
332 Send("{RIGHT}")
333 Send("{DOWN}")
334 Send("{RIGHT}")
335 Send("{ENTER}")
336 WinWaitActive("ImageJ")
337
338 ;save
339 WinActivate("ImageJ")
340 WinWaitActive("ImageJ")
341 Send("{ALT}")
342 Send("{DOWN}")
343 Send("{DOWN}")
344 Send("{DOWN}")
345 Send("{DOWN}")
346 Send("{DOWN}")
347 Send("{DOWN}")
348 Send("{DOWN}")
349 Send("{DOWN}")
350 Send("{DOWN}")
351 Send("{RIGHT}")
352 Send("{DOWN}")
353 Send("{DOWN}")
354 Send("{DOWN}")
355 Send("{DOWN}")
356 Send("{DOWN}")
357 Send("{DOWN}")
358 Send("{DOWN}")
359 Send("{ENTER}")
360 WinWaitActive("Save as AVI...")
361 Send("{ENTER}")
362 Send("y")
363 Sleep(3500)
364
365 ;close file
366 WinActivate("ImageJ")
367 WinWaitActive("ImageJ")
368 Send("^w")
369 WinWaitActive("ImageJ")
370 Send("n")
371
372 ;open file 2
373 Send("^o")
374 WinWaitActive("Open")
375 Send($Working_Directory)
376 Send("\")
377 Send("2.avi")
378 Send("{ENTER}")
379
380 ;select imageJ window
381 WinWaitActive("2.avi")
382 WinActivate("ImageJ")
383 WinWaitActive("ImageJ")
384 WinSetState("ImageJ", "", @SW_SHOW)
385
386 ;reduce to 8-Bit
387 ;alt right right down right enter
388 WinWaitActive("ImageJ")
389 Send("{ALT}")
390 Send("{RIGHT}")
391 Send("{RIGHT}")
392 Send("{DOWN}")
393 Send("{RIGHT}")
394 Send("{ENTER}")
395 WinWaitActive("ImageJ")
396
397 ;save
398 WinActivate("ImageJ")
399 WinWaitActive("ImageJ")
400 Send("{ALT}")
401 Send("{DOWN}")
402 Send("{DOWN}")
403 Send("{DOWN}")
404 Send("{DOWN}")
405 Send("{DOWN}")
406 Send("{DOWN}")
407 Send("{DOWN}")
408 Send("{DOWN}")
409 Send("{DOWN}")
410 Send("{RIGHT}")
411 Send("{DOWN}")
412 Send("{DOWN}")
413 Send("{DOWN}")
414 Send("{DOWN}")
415 Send("{DOWN}")
416 Send("{DOWN}")
417 Send("{DOWN}")
418 Send("{ENTER}")
419 WinWaitActive("Save as AVI...")
420 Send("{ENTER}")
421 Send("y")
422 Sleep(3500)
423
424 ;close file
425 WinActivate("ImageJ")
426 WinWaitActive("ImageJ")
427 Send("^w")
428 WinWaitActive("ImageJ")
429 Send("n")
430
431 ;open file 3
432 Send("^o")
433 WinWaitActive("Open")
434 Send($Working_Directory)
435 Send("\")
436 Send("3.avi")
437 Send("{ENTER}")
438
439 ;select imageJ window
440 WinWaitActive("3.avi")
441 WinActivate("ImageJ")
442 WinWaitActive("ImageJ")
443 WinSetState("ImageJ", "", @SW_SHOW)
444
445 ;reduce to 8-Bit
446 ;alt right right down right enter
447 WinWaitActive("ImageJ")
448 Send("{ALT}")
449 Send("{RIGHT}")
450 Send("{RIGHT}")
451 Send("{DOWN}")
452 Send("{RIGHT}")
453 Send("{ENTER}")
454 WinWaitActive("ImageJ")
455
456 ;save
457 WinActivate("ImageJ")
458 WinWaitActive("ImageJ")
459 Send("{ALT}")
460 Send("{DOWN}")
461 Send("{DOWN}")
462 Send("{DOWN}")
463 Send("{DOWN}")
464 Send("{DOWN}")
465 Send("{DOWN}")
466 Send("{DOWN}")
467 Send("{DOWN}")
468 Send("{DOWN}")
469 Send("{RIGHT}")
470 Send("{DOWN}")
471 Send("{DOWN}")
472 Send("{DOWN}")
473 Send("{DOWN}")
474 Send("{DOWN}")
475 Send("{DOWN}")
476 Send("{DOWN}")
477 Send("{ENTER}")
478 WinWaitActive("Save as AVI...")
479 Send("{ENTER}")
480 Send("y")
481 Sleep(3500)
482
483 ;close file
484 WinActivate("ImageJ")
485 WinWaitActive("ImageJ")
486 Send("^w")
487 WinWaitActive("ImageJ")
488 Send("n")
489
490 ;open file 4
491 Send("^o")
492 WinWaitActive("Open")
493 Send($Working_Directory)
494 Send("\")
495 Send("4.avi")
496 Send("{ENTER}")
497
498 ;select imageJ window
499 WinWaitActive("4.avi")
500 WinActivate("ImageJ")
501 WinWaitActive("ImageJ")
502 WinSetState("ImageJ", "", @SW_SHOW)
503
504 ;reduce to 8-Bit
505 ;alt right right down right enter
506 WinWaitActive("ImageJ")
507 Send("{ALT}")
508 Send("{RIGHT}")
509 Send("{RIGHT}")
510 Send("{DOWN}")
511 Send("{RIGHT}")
512 Send("{ENTER}")
513 WinWaitActive("ImageJ")
514
515 ;save
516 WinActivate("ImageJ")
517 WinWaitActive("ImageJ")
518 Send("{ALT}")
519 Send("{DOWN}")
520 Send("{DOWN}")
521 Send("{DOWN}")
522 Send("{DOWN}")
523 Send("{DOWN}")
524 Send("{DOWN}")
525 Send("{DOWN}")
526 Send("{DOWN}")
527 Send("{DOWN}")
528 Send("{RIGHT}")
529 Send("{DOWN}")
530 Send("{DOWN}")
531 Send("{DOWN}")
532 Send("{DOWN}")
533 Send("{DOWN}")
534 Send("{DOWN}")
535 Send("{DOWN}")
536 Send("{ENTER}")
537 WinWaitActive("Save as AVI...")
538 Send("{ENTER}")
539 Send("y")
540 Sleep(3500)
541
542 ;close file
543 WinActivate("ImageJ")
544 WinWaitActive("ImageJ")
545 Send("^w")
546 WinWaitActive("ImageJ")
547 Send("n")
548
549 ;load all files together
550 ;open file 1
551 Send("^o")
552 WinWaitActive("Open")
553 Send($Working_Directory)
554 Send("\")
555 Send("1.avi")
556 Send("{ENTER}")
557 WinWaitActive("1.avi")
558 WinActivate("ImageJ")
559 WinWaitActive("ImageJ")
560
561
562 ;open file 2
563 Send("^o")
564 WinWaitActive("Open")
565 Send($Working_Directory)
566 Send("\")
567 Send("2.avi")
568 Send("{ENTER}")
569 WinWaitActive("2.avi")
570 WinActivate("ImageJ")
571 WinWaitActive("ImageJ")
572
573
574 ;open file 3
575 Send("^o")
576 WinWaitActive("Open")
577 Send($Working_Directory)
578 Send("\")
579 Send("3.avi")
580 Send("{ENTER}")
581 WinWaitActive("3.avi")
582 WinActivate("ImageJ")
583 WinWaitActive("ImageJ")
584
585
586 ;open file 4
587 Send("^o")
588 WinWaitActive("Open")
589 Send($Working_Directory)
590 Send("\")
591 Send("4.avi")
592 Send("{ENTER}")
593 WinWaitActive("4.avi")
594 WinActivate("ImageJ")
595 WinWaitActive("ImageJ")
596
597
598 ;concatenate files
599
600 ;start with first and second files
601 Send("{ALT}")
602 Send("{RIGHT}")
603 Send("{RIGHT}")
604 Send("{RIGHT}")
605 Send("{RIGHT}")
606 Send("{RIGHT}")
607 Send("{UP}")
608 Send("{UP}")
609 Send("{UP}")
610 Send("{UP}")
611 Send("{UP}")
612 Send("{UP}")
613 Send("{UP}")
614 Send("{UP}")
615 Send("{UP}")
616 Send("{UP}")
617 Send("{UP}")
618 Send("{UP}")
619 Send("{UP}")
620 Send("{UP}")
621 Send("{UP}")
622 Send("{RIGHT}")
623 Send("{DOWN}")
624 Send("{ENTER}")
625 WinWaitActive("Concatenator")
626 Send("{ENTER}")
627
628 ;change focus back to imageJ
629 ;wait for window to activate
630 WinSetState("ImageJ", "", @SW_SHOW)
631 WinActivate("ImageJ")
632 WinWaitActive("ImageJ")
633
634 ;concatenate third file
635 Send("{ALT}")
636 Send("{RIGHT}")
637 Send("{RIGHT}")
638 Send("{RIGHT}")
639 Send("{RIGHT}")
640 Send("{RIGHT}")
641 Send("{UP}")
642 Send("{UP}")
643 Send("{UP}")
644 Send("{UP}")
645 Send("{UP}")
646 Send("{UP}")
647 Send("{UP}")
648 Send("{UP}")
649 Send("{UP}")
650 Send("{UP}")
651 Send("{UP}")
652 Send("{UP}")
653 Send("{UP}")
654 Send("{UP}")
655 Send("{UP}")
656 Send("{RIGHT}")
657 Send("{DOWN}")
658 Send("{ENTER}")
659 WinWaitActive("Concatenator")
660 Send("{DOWN}")
661 Send("{DOWN}")
662 Send("{TAB}")
663 Send("{UP}")
664 Send("{ENTER}")
665
666 ;change focus back to imageJ
667 ;wait for window to activate
668 WinSetState("ImageJ", "", @SW_SHOW)
669 WinActivate("ImageJ")
670 WinWaitActive("ImageJ")
671
672 ;concatenate fourth file
673
674 Send("{ALT}")
675 Send("{RIGHT}")
676 Send("{RIGHT}")
677 Send("{RIGHT}")
678 Send("{RIGHT}")
679 Send("{RIGHT}")
680 Send("{UP}")
681 Send("{UP}")
682 Send("{UP}")
683 Send("{UP}")
684 Send("{UP}")
685 Send("{UP}")
686 Send("{UP}")
687 Send("{UP}")
688 Send("{UP}")
689 Send("{UP}")
690 Send("{UP}")
691 Send("{UP}")
692 Send("{UP}")
693 Send("{UP}")
694 Send("{UP}")
695 Send("{RIGHT}")
696 Send("{DOWN}")
697 Send("{ENTER}")
698 WinWaitActive("Concatenator")
699 Send("{DOWN}")
700 Send("{TAB}")
701 Send("{UP}")
702 Send("{ENTER}")
703
704 ;change focus back to imageJ
705 ;wait for window to activate
706 WinWaitActive("Concatenated Stacks")
707 WinSetState("ImageJ", "", @SW_SHOW)
708 WinActivate("ImageJ")
709 WinWaitActive("ImageJ")
710
711 ;get original filename
712 Dim $Path_Data[4]
713 $Path_Data = _FileParsePath($File_Name)
714 ;$Path_Data[3] = Name
715 ;$Path_Data[4] = extension
716
717 ;save
718 WinActivate("ImageJ")
719 WinWaitActive("ImageJ")
720 Send("{ALT}")
721 Send("{DOWN}")
722 Send("{DOWN}")
723 Send("{DOWN}")
724 Send("{DOWN}")
725 Send("{DOWN}")
726 Send("{DOWN}")
727 Send("{DOWN}")
728 Send("{DOWN}")
729 Send("{DOWN}")
730 Send("{RIGHT}")
731 Send("{DOWN}")
732 Send("{DOWN}")
733 Send("{DOWN}")
734 Send("{DOWN}")
735 Send("{DOWN}")
736 Send("{DOWN}")
737 Send("{DOWN}")
738 Send("{ENTER}")
739 WinWaitActive("Save as AVI...")
740 Send($Working_Directory)
741 Send("\")
742 Send($Path_Data[2])
743 Send("R.avi")
744 Send("{ENTER}")
745 Sleep(12000)
746 WinActivate("ImageJ")
747 WinWaitActive("ImageJ")
748
749
750 ;exit ImageJ
751
752 Send("{ALT}")
753 Send("{UP}")
754 Send("{UP}")
755 Send("{ENTER}")
756 Send("{ENTER}")
757 #CE
758
759EndFunc
760
761;===============================================================================
762;
763; Function Name: _FileParsePath
764; Description: Takes a full path such as "C:\Path\File.Ext" and returns an array such as "C:","\Path\","File",".Ext"
765; Parameter(s):
766; Requirement(s):
767; Return Value(s): A 4-element Array. See Description
768; Author(s): Mike Ratzlaff <mike@ratzlaff.org>
769;
770;===============================================================================
771;
772Func _FileParsePath($FileName)
773 Dim $Return[4];Drive, Path, Name, Extension
774 Dim $Len
775 If StringMid($FileName, 2, 1) = ":" Then
776 $Return[0] = StringLeft($FileName, 2)
777 $FileName = StringRight($FileName, StringLen($FileName) - 2)
778 Else
779 $Return[0] = ''
780 EndIf
781 $Len = StringInStr($FileName, "\", 0, -1)
782 $Return[1] = StringLeft($FileName, $Len)
783 $FileName = StringRight($FileName, StringLen($FileName) - $Len)
784 $Len = StringInStr($FileName, ".", 0, -1)
785 $Return[2] = StringLeft($FileName, $Len - 1)
786 $FileName = StringRight($FileName, StringLen($FileName) - $Len + 1)
787 $Return[3] = $FileName
788 Return $Return
789EndFunc ;==>_FileParsePath
790
791;===============================================================================