AutoHotkey Community

; AutoHotkey Version: 1.0.48.05
; Language:       English
; Platform:       Windows XP Professional 5.1 SP3
; Author:         C. Waring
;
; Script Function: To Make one New Excel File and to copy all results (from mulitply .txt) made in program Mark to rows in the Excel sheet.
;

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

FileSelectFile, Results, 3, C:\Documents and Settings\gseuser\Desktop\Bootstrap\,Name New Results File ,*xls
Run, %Results%
WinActivate, ahk_class XLMAIN
Send, ^{Home} ; Go to Row 1 Col 1

clipboard = ; start off empty

FileSelectFile, File,,,Select first .txt file,*.txt

Loop,%File%, 0, 0

{
File = %A_LoopFileFullPath%
Run, %File%
Loop, Read, %File%,
FileReadLine, Name, %File%, 8
ControlSend, XLDESK1, %Name%, ahk_class XLMAIN
WinActivate, ahk_class XLMAIN
Send {tab}
clipboard = ; start off empty

WinActivate, ahk_class Notepad
WinWait, ahk_class Notepad
Loop, Read, %File%,
If A_LoopReadLine contains Model=
{
  StringReplace, var, A_LoopReadLine, {, +[, All ; "Shift + [") = {
  StringReplace, var, var, }, +], All
  ControlSend, XLDESK1, %var%, ahk_class XLMAIN
}
WinActivate, ahk_class XLMAIN
Send {tab}

WinActivate, ahk_class Notepad
WinWait, ahk_class Notepad
Loop, Read, %File%,
If A_LoopReadLine contains 1     1
ControlSend, XLDESK1, %A_LoopReadLine%, ahk_class XLMAIN
WinActivate, ahk_class XLMAIN
Send {tab}
Sleep, 100
Send {enter}
Sleep, 100
WinClose, ahk_class Notepad
}