Skip to content

CreateAreaTargetFromCSV.html #58

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
jpthompson212 merged 1 commit into from
Aug 14, 2020
Merged

CreateAreaTargetFromCSV.html #58

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
113 changes: 113 additions & 0 deletions StkAutomation/Html/CreateAreaTargetFromCSV.html
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,113 @@
<html>
<head>

<title>
Template
</title>


<script language="VBSCRIPT" type="text/vbscript">
<!--


Dim uiApp
Dim scen
Dim root
Dim scenDir
Dim filename
Dim pointsArray
Dim executeCommand

Sub InitPage()

Set uiApp = window.external
Set root = uiApp.Personality2
Set scen = root.CurrentScenario
Set Dir = root.ExecuteCommand("GetDirectory / Scenario")
scenDir = Dir(0)

End Sub

Sub execute()

ReadExcelFile(filename)

End Sub

Sub selectExcelFile()
filename = uiApp.FileOpenDialog("*.csv","All Files (*.*)|*.*",".")
if filename <> "" then
document.F1.Excelfilepath.value = filename
end if
End Sub

Sub ReadExcelFile(ByVal strFile)

dim fs,objTextFile
set fs = CreateObject("Scripting.FileSystemObject")
dim arrStr
dim arrCount
set objTextFile = fs.OpenTextFile(filename)

Dim cmd

Dim nLine
nLine = -1


On Error Resume Next

Do While objTextFile.AtEndOfStream = False

Dim test
test = objTextFile.ReadLine

If test <> "" Then
arrStr = split(test,",")

arrCount = uBound(arrStr) + 1

nLine = nLine + 1

If (nLine<>0) Then
cmd = cmd & " " & arrStr(0) & " " & arrStr(1) & " "
End If

End if
Loop

'Create New Area Target in STK Scenario
root.ExecuteCommand("New / */AreaTarget " & document.F1.AreaTargetName.value)

root.ExecuteCommand("SetBoundary */AreaTarget/" & document.F1.AreaTargetName.value & " Pattern LatLon " & nLine & " " & cmd)

If Err.Number <> 0 Then
msgbox("Error: " & Err.Number)
msgbox("Error (Hex): " & Hex(Err.Number))
msgbox("Source: " & Err.Source)
msgbox("Description: " & Err.Description)
Err.Clear ' Clear the Error
End If
'On Error Goto 0


End Sub



// -->
</script>
</head>
<body onload="InitPage()" class="light" marginheight= "0" marginwidth="0" leftmargin="0" topmargin="0">
<form name="F1" method="post">
<input"middle"><font color="black">CREATE AREATARGET FROM CSV FILE</font>
<br>
<br>
<input"middle"><font color="black">Choose Excel File:</font>
<input size=60 name=ExcelFilepath value="">
<input onclick=selectExcelFile() type=button value=... name=selectExcelFileButton>
<input size=30 name=AreaTargetName value="AreaTarget1">
<input type="button" value="Create AreaTarget" onclick="execute()" class="submit">

</body>
</html>