[VBA] VBAからHaskell処理を使う

gistfile1.hs

-- Haskell
import System
import Text.ParserCombinators.Parsec
main = do args <- getArgs
          run parens (head args)
run :: Show a => Parser a -> String -> IO()
run p cs = case (parse p "" cs) of
             Left e -> print e
             Right x -> print x
parens :: Parser Int
parens = do char '('
            n <- parens
            char ')'
            m <- parens
            return (max (n + 1) m)
         <|> return 0

-- VBA
'"C:\script\pDepth"を実行する
Function pDepth(ByRef trgt As Range) As String
  pDepth = execCmmnd("pDepth " & trgt.Value)
End Function

'指定された外部コマンドを実行し、そのコマンドの標準出力を返す
Function execCmmnd(cmmnd As String) As String
  Dim WSH, wExec As Variant
  Set WSH = CreateObject("WScript.Shell")
  Set wExec = WSH.Exec("cmd /q /c " & cmmnd)
  Do While wExec.Status = 0
      DoEvents
  Loop
  execCmmnd = wExec.StdOut.ReadAll
  Set wExec = Nothing
  Set WSH = Nothing
End Function