tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトル他のプログラム駆動+リダイレルト
記事No14973
投稿日: 2010/10/16(Sat) 20:44
投稿者クロ
文字列を与えるとある変換をして画面上に出力するソフトがあります。
これをVB6で駆動し、変換した出力を画面でなくファイルにしたいのですがうまくいきません。

DOC窓で以下のようにリダイレクトコマンドを入れたところうまくいきました。

>\HENKAN.EXE "ABCDE" > HENKANout.txt ’"ABCDE"は変換したい文字列

VBレスキュー(052)を参考にさせていただき以下のようにしましたがうまくいきません。

1.まずはプログラムの駆動と変換がされるか確認しました。
   MyFile = Chr$(34) & "ABCDE" & Chr$(34) 'OK
   Ret = Shell("C:\HENKAN.EXE " & MyFile, vbNormalFocus)
結果1.DOS窓が一瞬開き、画面に変換結果がでます。変換はOKでした。


2.次に画面の出力をリダイレクトでファイルに出力させました。
   MyFile = Chr$(34) & "ABCDE" & Chr$(34) & " > C:\HENKANout.txt"
   Ret = Shell("C:\HENKAN.EXE " & MyFile, vbNormalFocus)

結果2.ファイルはできず、1.の結果と同じ画面に出力される結果となりました。

画面に出力される他のプログラムをファイルに出力させるにはどのようにすれば
よいでしょうか。

[ツリー表示へ]
タイトルRe: 他のプログラム駆動+リダイレルト
記事No14974
投稿日: 2010/10/17(Sun) 12:15
投稿者魔界の仮面弁士
> DOC窓で以下のようにリダイレクトコマンドを入れたところうまくいきました。
DOC窓?


> 結果2.ファイルはできず、1.の結果と同じ画面に出力される結果となりました。
Shell Environ("COMSPEC") & " /C C:\HENKAN.EXE ""ABCDE"" > C:\HENKANout.txt", vbNormalFocus
でどうでしょう。

[ツリー表示へ]
タイトルRe^2: 他のプログラム駆動+リダイレルト
記事No14983
投稿日: 2010/10/21(Thu) 01:35
投稿者クロ
魔界の仮面弁士さま 

ご教授ありがとございます。


> Shell Environ("COMSPEC") & " /C C:\HENKAN.EXE ""ABCDE"" > C:\HENKANout.txt", vbNormalFocus
> でどうでしょう。

上の方法でファイル出力ができるようになりました。
Shell Environ("COMSPEC")の方法は今後も何かに使えそうです。

ありがとうございました。

[ツリー表示へ]