Skip to content

Create dataProviderToScalarFile.VBS #78

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
JoshuaReicher merged 1 commit into from
Oct 26, 2020
Merged

Create dataProviderToScalarFile.VBS #78

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
99 changes: 99 additions & 0 deletions StkAutomation/VbScript/dataProviderToScalarFile.VBS
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,99 @@
' This script will take a custom report with just one data provider and a set of time steps and turn it into a scalar file
'
' Author: Jackson Artis
' Date: 16 Oct 2020

' read report
set oArgs = wscript.arguments
path = oArgs(0)
set oArgs = nothing
fileArray = getFileToArray(path)

' get number of data points in report
fileLength = UBound(fileArray)


counter = 0
numberSubtractor = 0
currentLine = trim(fileArray(counter))
currentWordArray = split(currentLine, " ")


first = CStr(currentWordArray(0))

while first <> "Time"
counter = counter + 1
numberSubtractor = numberSubtractor + 1
currentLine = trim(fileArray(counter))
currentWordArray = split(currentLine, " ")
If ubound(currentWordArray) > 0 Then
first = CStr(currentWordArray(0))
End If

wend

counter = counter + 2

numberOfDataPoints = fileLength - numberSubtractor - 1


' write header
fileStr = "stk.v.12.0" & vbcrlf
fileStr = fileStr & vbcrlf
fileStr = fileStr & "BEGIN Data" & vbcrlf
fileStr = fileStr & "TimeFormat UTCG" & vbcrlf
fileStr = fileStr & "NumberOfIntervals 1 " & vbcrlf
fileStr = fileStr & " BEGIN Interval" & vbcrlf
fileStr = fileStr & " NumberOfPoints " & numberOfDataPoints & vbcrlf
fileStr = fileStr & " BEGIN TimeValues"& vbcrlf


for i = counter to ubound(fileArray)
'get values
thisData = trim(fileArray(i))
thisDataArray = split(thisData, " ")

'fileStr = fileStr & vbTab & thisDataArray(0) & vbTab & thisDataArray(1) & vbTab & thisDataArray(2) & vbTab & thisDataArray(3) & vbTab & thisDataArray(4) & vbcrlf
fileStr = fileStr & vbTab & vbTab & thisData & vbcrlf
next



' write footer
fileStr = fileStr & vbcrlf
fileStr = fileStr & " END TimeValues" & vbcrlf
fileStr = fileStr & " END Interval" & vbcrlf
fileStr = fileStr & "END Data" & vbcrlf


' write everything to report
writeStrToFile path, fileStr

' the end


' ***** read report and write it to array *****
Function getFileToArray(path)
set fso = createObject("Scripting.FileSystemObject")
set fIn = fso.OpenTextFile(path, 1)
i = 0
while not fIn.AtEndOfStream
redim preserve fileArray(i)
fileArray(i) = fIn.ReadLine
i = i + 1
wend
set fIn = nothing
getFileToArray = fileArray
End Function

' ***** write everything to report *****
Sub writeStrToFile(path,string) 'saves a string to the given path
dim fso, f
set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.CreateTextFile(path)

f.write string

set f = nothing
set fso = nothing
End Sub