Cygwinウィンドウ上でのgitなどの実行結果をExcel VBAでWshShellを使って取得する。

Question

なぜそんなことをしたいのかと言われそうですが、事情があって、
Cygwinでのgitなどの実行結果をExcel VBAでWshShellを使って取得したいのですが、
可能なものでしょうか？
下記コードでcommandにgitコマンドなどを渡します。
実行はできますが、Cygwinウィンドウ上に表示される結果は、当然、拾えません。
拾う方法はあるでしょうか？

Public Function fncCygScript(command As String) As String
Dim WSH                     As WshShell
Dim wExec                   As Object
Dim output                  As String
   
    fncCygScript = ""
    output = ""
    
    Set WSH = New WshShell
    Set wExec = WSH.Exec("%ComSpec% /c " & "set LESSCHARSET=utf-8 && C:\cygwin64\bin\mintty.exe -i /Cygwin-Terminal.ico " & command)
    
    Do While wExec.Status = 0
        output = output & wExec.StdOut.Read(1)
        DoEvents
    Loop
    
    Sleep (1000)
    DoEvents
    
    fncCygScript = output
   
    Set wExec = Nothing
    Set WSH = Nothing
End Function

Answer 1

Set wExec = WSH.Exec("C:\cygwin64\bin\echo test")
output = output & wExec.StdOut.Read(100)

普通に拾えましたが。

Comments

[nayameru]

ありがとうございます。
Set wExec = WSH.Exec("C:\cygwin64\bin\mintty.exe -i /Cygwin-Terminal.ico git status")
のようにCygwinウィンドウを立ち上げた上で、その中での結果を拾いたいのですが。
ご提示頂きましたコードでは、Cygwin上での結果ではなく、Windows上での結果にならないでしょうか？
（Windows上でecho.exeを走らせているだけ）
実は、Windows版では不具合が多く、Linux版だと安定しているツールを動かしたいのです。
（gitも動かしますが、gitは例として挙げました）

[itagagaki]

minttyもbashも関係ないですよね。
そのツールはCygwin bashを介して起動しないと動作しないのですか？

[nayameru]

> 実は、Windows版では不具合が多く、Linux版だと安定しているツールを動かしたいのです。
の通りなのですが、何か勘違いしていますでしょうか？
知識不足ですみません。

[itagagaki]

Cygwin上で動くコマンド *.exe はWindowsコマンドです。
もしCygwinでLinuxコードをコンパイルしたのだとしても、その結果出来ているのは *.exe （および *.dll）のWindowsコマンドです。
別に、端末mintty内でしか動かないわけではありませんし、bash が必要なわけでもありません。

以下、参考までに

[CygwinのプログラムやCygwinでコンパイルしたプログラムをコマンドプロンプトで実行する - Engineer's Notebook]
https://eng-notebook.com/blog-entry-34/

[nayameru]

そうなんですね。。。
Linux版をLinux上で動かすと不具合がないのか。。。
色々ありがとうございました。勉強になりました。

Answer 2

Cygwinウィンドウ上に表示される結果は、当然、拾えません。

出力をファイルにリダイレクトして、そのファイルの内容を読み取ればいいのでは?

Comments

[nayameru]

ありがとうございます。
この線で行きたいと思います。