Actually, I have typed "Two", "Four", "One" and "Three".
Can you tell me the order programatically ?
Like this:
Code: Select all
_ := ComObjActive("Excel.Application").ActiveWorkbook.FullName
tempFolder := RegExReplace(_, ".*\K\\.*") "\_\"
tempFile := _ ".zip"
FileCopy, % _, % tempFile
FileCreateDir, % tempFolder
# := ComObjCreate("Shell.Application")
#.Namespace(tempFolder).CopyHere(#.Namespace(tempFile).items,4|16)
FileDelete, % tempFile
FileEncoding, UTF-8
FileRead, #, % tempFolder "\" "xl\sharedStrings.xml"
FileRemoveDir, % tempFolder, 1
chroniArray := {}
While @ := RegExMatch( #, "<t>(.+?)</t>", _, @ ? StrLen(_) + @ : 1)
chroniArray[_1] := A_Index
For eachCell In ComObjActive("Excel.Application").Cells.SpecialCells(2)
If chroniArray.HasKey(eachCell.Text)
eachCell.(1,2).Value := chroniArray[eachCell.Text]
When you are going to use someone else's script, Please just leave a brief comment saying thank you.
타인의 스크립트를 이용할 때는 최소한의 감사 표시를 남기시기 바랍니다. 개싸가지 도적질은 그만 하시고..