 1649;업1060; 프/196;그래머가 아니라 해NJ17; 1648;식1060; 1204;무한 상황1077;니다
사용1473;1064; SW 1032; API 기능1012; 활용해 보고1088; 1068;단 SW 에 1080;lj16; 예1228; 파1068;1012; VBS 파1068;/196; 만들Ǻ12;서 1089;ᇼ1; 시켜보니 1096; .121;니다
1060;1228; 1060; 파1068;1012; Ꮘ1;셀 메크/196;/196; 만들Ǻ12;서 써보/140;lj16;데 NJ17;연7176;?? 1089;ᇼ1;1060; 안.121;니다....
앞서서 간단한 예1228;들1008; Ꮘ1;셀/196; 변환시켜 1089;ᇼ1; 시켜봤lj16;데 1060;번,144;lj16; 길Ǻ12;서 1096; 모르lj16;,144;도 1080;고 
Ꮘ1;셀에서 디버그/196; 올라오lj16;,144; 보면 1200;,172; 왜 문1228;1064;1648;도 1096; 모르,192;고 Ȣ16;lj16; 상황1077;니다
아래lj16; VBS 파1068;1032; 내용1077;니다
Option Explicit
SetLocale("en-us")
Dim Synergy
Dim SynergyGetter
On Error Resume Next
Set SynergyGetter = GetObject(CreateObject("WScript.Shell").ExpandEnvironmentStrings("%SAInstance%"))
On Error GoTo 0
If (Not IsEmpty(SynergyGetter)) Then
    Set Synergy = SynergyGetter.GetSASynergy
Else
    Set Synergy = CreateObject("Synergy.Synergy")
End If
Dim StudyDoc
Set StudyDoc = Synergy.StudyDoc()
' Get the name of the .out file associated with the flow results.
' NOTE: This assumes a Flow analysis sequence was run.
Dim lName 
lName = StudyDoc.GetResultPrefix("Flow")
Dim lOutName
lOutName = lName & ".out" 
' Create and Populate the ScreenOutput Class for the lOutName
Dim lMessages
Set lMessages = New ScreenOutput
lMessages.LoadOutputFile(lOutName)
Dim MM, lStr
' Find the Total Projected Area
' return the array of numerical values associated with the first instance of Message ID (MSCD) 39410
' MSCD 39410 1 0 0 0 0 0 5
'       Total projected area                               = %11.4G
'    m^2,1,1
' Note: Please see .../data/dat/shared/cmmesage.dat for format details
Set MM = lMessages.GetMessage(39410,1)
lStr = " Total Proejcted Area    = " & CStr(MM.GetFloat(0)) 
MsgBox CStr(lStr)
' Read Maximum Injection pressure and the time it occurred
' return the array of numerical values associated with the last instance of Message ID (MSCD) 39410
' MSCD 41400 1 0 0 0 0 0 5
'       Maximum injection pressure          (at %11.4G) = %11.4G
'    s,1,2
'    Pa,1,1
' Note: Please see .../data/dat/shared/cmmesage.dat for format details
Set MM = lMessages.GetMessage(41400,0)
lStr = "Maximum injection pressure occured at " & CStr(MM.GetFloat(1)) & " Pressure =     " & CStr(MM.GetFloat(0)) 
MsgBox CStr(lStr)
MsgBox "Script Complete"
' ---- Message class
Class Message
  Private mMSCD            ' MSCD Message ID
  Private mNumString    ' Number of Strings associated with the Message
  Private mNumFloat     ' Number of Floats  Associated with the Message
  Private mStrings()    ' The Strings Associated with the Message
  Private mFloats()        ' The Numerical Values Associated with the Message
  
  Public Sub SetMSCD(aMSCD)
    mMSCD = aMSCD
  End Sub
  
  Public Sub SetNumString(aNumString)
    mNumString = aNumString
  End Sub
  
  Public Sub SetNumFloat(aNumFloat)
    mNumFloat = aNumFloat
  End Sub
  
  Public Sub AddFloat(aFloat)
    mNumFloat = mNumFloat + 1
    ReDim Preserve mFloats(mNumFloat)
    mFloats(mNumFloat-1) = aFloat
  End Sub
  
  Public Sub AddString(aString)
    mNumString = mNumString + 1
    ReDim Preserve mStrings(mNumString)
    mStrings(mNumString-1) = aString
  End Sub
  
  Public Function GetMSCD()
      GetMSCD = mMSCD
  End Function
  Public Function GetString(aIndex)
    GetString = ""
      If aIndex >= 0 And aIndex < mNumString Then
         GetString = mStrings(aIndex)
      End if
  End Function
  
  Public Function GetFloat(aIndex)
    GetFloat = ""
      If aIndex >= 0 And aIndex < mNumFloat Then
         GetFloat = mFloats(aIndex)
      End if
  End Function
  
  Public Function GetNumString()
    GetNumString = mNumString
  End Function
  
  Public Function GetNumFloat()
    GetNumFloat = mNumFloat
  End Function
  
  Private Sub Class_Initialize
    mMSCD = -1
    mNumString = 0
    mNumFloat = 0
  End Sub
End Class
Class ScreenOutput
 Private mMessages()        ' Array of Messages associate with the screen output File
 Private mNumMessages        ' Number of messages in the screen output file
  Public Function LoadOutputFile(aFile)
      Const ForReading = 1
      Dim FS
      Set FS = CreateObject("Scripting.FileSystemObject")
      Dim File
    Set File = FS.OpenTextFile(aFile, ForReading)
        While Not File.AtEndOfStream
        Dim ID
        ID = -1
           ' Read the MSCD
           Dim Line,lenLine
        Line = File.ReadLine
        lenLine = len(Line)
        If Not File.AtEndOfStream or lenLine >= 1 Then
            ID = Line
            Dim curMessage
            Set curMessage = New Message
            curMessage.SetMSCD(ID)
            ' Read the number of strings
            Line = File.ReadLine
            lenLine = len(Line)
            If Not File.AtEndOfStream or lenLine >= 1 Then
                Dim numString
                numString = Line
                ' Read Strings
                Dim i
                For i = 1 To numString
                    Line = File.ReadLine
                    lenLine = len(Line)
                    If Not File.AtEndOfStream or lenLine >= 1 Then
                        CurMessage.AddString(Line)
                    End if
                Next
            End if
            ' Read the number of floats
            Line = File.ReadLine
            lenLine = len(Line)
            If Not File.AtEndOfStream or lenLine >= 1 Then
                Dim numFloat
                numFloat = Line
                ' Read Floats
                For i = 1 To numFloat
                    Line = File.ReadLine
                    lenLine = len(Line)
                    If Not File.AtEndOfStream or lenLine >= 1 Then
                        CurMessage.AddFloat(Line)
                    End if
                Next
            End If
            ' Add current message to the list
            AddMessage(CurMessage)
        End If
    Wend
    File.Close
  End Function
  
  Public Sub AddMessage(aMessage)
    mNumMessages = mNumMessages + 1
       ReDim Preserve mMessages(mNumMessages)
    Set mMessages(mNumMessages-1) = aMessage
  End Sub
  
  Public Function GetNumMessages()
    GetNumMessages = mNumMessages
  End Function
  
  Public Function GetMessage(aMSCD,aOccur)
      Set GetMessage = Nothing
      Dim j
      Dim lFindInstance
      lFindInstance = aOccur
      If aOccur < 0 Then
          lFindInstance = 0
      End if
      Dim Count
      Count = 0
      For j = 0 To mNumMessages-1
          'MsgBox mMessages(j).GetMSCD &"|"& aMSCD
          If CStr(mMessages(j).GetMSCD) = CStr(aMSCD) Then
             Count = Count + 1
             If Count >= lFindInstance Then
                     Set GetMessage = mMessages(j)
                     Exit Function
             End if
          End if
      Next
  End Function
  
  Private Sub Class_Initialize
    mNumMessages = 0
  End Sub
End Class
1060;,152; Ꮘ1;셀 메크/196;에 넣Ǻ12;서 첫1460;에 sub 메크/196;명 넣고 1473;간에 Message Class 위에 End Sub 넣고 살행시켜보면
컴파1068; 오류 1077;니다
사용1088; 형식1060; 1648;1221;.104;1648; 않았습니다  라고 뜨면서
아래1032; New screenoutput 1012; Ȣ16;1060;라1060;트 시킵니다
Dim lMessages
Set lMessages = New ScreenOutput
lMessages.LoadOutputFile (lOutName)
,160;색상1004;/196;lj16; 무슨 라1060;브러리를 추가해야.108;다고 Ȣ16;면서 설명해1452;lj16; ,163;들1012; 해봤1648;만
신통치가 않았습니다 
1228;가 프/196;그래머가 아닌1648;라 아1452; 기초1201;1064; 뭔가를 모르고 1080;lj16;,148;1648; ᕬ1;시 윗내용만 보고 알수 1080;lj16;,172; 1080;1012;1648; 1656;문 남깁니다..