ネットが遅くてイライラしてない!?

windows xpのdosで、秒数を含む現在時刻を表示のみする方法を教えてください。

timeコマンドだと秒数まで出るけど、新規に設定する時刻の入力待ちになってしまいます。表示のみできる方法を探しています。
用途は以下の通りです。

Cドライブのファイル(1GB)をDドライブにコピーするのに何秒かかるか転送速度を出すため、以下のようなbatを書きました。
time /tだと、分までしか表示できないので、使い勝手が悪いです・・・

copy.bat
-------------------------
time /t
cp c:\a.txt d:\b.txt
time /t
-------------------------

以上、よろしくお願いします。

A 回答 (4件)

test.bat


-------------------------
time
cp c:\a.txt d:\b.txt
time
-------------------------
として
test.bat <nul
あるいは
test.bat <nul >c:\c.dat
でc.datに結果を書き込む
    • good
    • 0
この回答へのお礼

ありがとうございました。
その方法で無事できました。
迅速な回答ありがとうございます。

お礼日時:2006/09/04 17:09

補足です。

(#1の人の回答を見て気付きました)
空ファイルを作らなくても

time <nul

で良いですね。更に、

time <nul |find "現在"

なら入力を促す表示もなくなります。
    • good
    • 0
この回答へのお礼

ありがとうございました。
現在の表示もなくすことができて、表示もきれいになりましたです。

お礼日時:2006/09/04 17:30

time < nul


copy c:\a.txt d:\b.txt
time < nul
    • good
    • 0
この回答へのお礼

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

お礼日時:2006/09/04 17:30

姑息な方法ですが、


例えば「dummy.txt」というような空テキストファイルを作っておき、

time <dummy.txt

で止まらなくはなります。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qbatである文字列内に特定の文字列が含まれているか確認したい

batファイルの中である変数「abc」の中に「test」という文字が含まれていたら○○を行なうという分岐を作成したいのですが、どのように行なえばよいのでしょうか?

そのまま、ずばりのお答えお待ちしております。

よろしくお願い致します。

Aベストアンサー

大文字小文字を区別しなくていいなら、

if not "%abc:test=%" == "%abc%" echo 含まれていた

区別するなら、

echo %abc% | find "test" >NUL
if not ERRORLEVEL 1 echo 含まれていた

QEXCELマクロで上書きメッセージ無しで保存する方法

EXCELマクロで上書きメッセージ無しで保存する方法をお願いします
ActiveWorkbook.SaveAs "C:\Documents andSettings\Nakatani\MyDocuments\Book1.xls"
の様にするとすでにファイルがある場合上書きメッセージが出ます
メッセージを出さずに上書きするプログラミングを教えて下さい
宜しくお願いします

Aベストアンサー

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\Documents andSettings\Nakatani\MyDocuments\Book1.xls"
Application.DisplayAlerts = True

Q【Excel VBA】マクロでExcel自体を終了させたい

環境:WindowsXP、Excel2003

マクロでエクセルを終了(ブックを閉じて、アプリケーション自体も終了)させたいのですが、以下のコードではアプリケーションが閉じてくれません。

ThisWorkbook.Close
ExcObj.Quit
Application.Quit

どこか悪いところはありますでしょうか?

よろしくお願いします。

Aベストアンサー

普通に考えれば質問者のコードで上手くいきそうですが
hana-hana3さんの回答にもあるようにThisWorkBook.Closeでコード終了となりますので
Application.QuitをThisWorkBook.Closeの前にもってこないといけません。
Application.Quitはそれがあるプロシージャのコードが全て終わるまで
その実行を保留するちょと特別動作をします。

'-------------------------------------
 Application.Quit
 ThisWorkbook.Close
'-------------------------------------
 
 

Qバッチ処理でファイルの中身を変数に入れるやり方

あるファイルの中には1行の文字列があります。
このファイルをバッチで読み取り、変数に設定したいです。

例:
test.txt
abcacbacbacbacbacbacbacbacb

test,bat
set DATA=[test.txtを読み込んだ値]

よろしくお願い致します。

Aベストアンサー

これですね。

参考URL:http://www.upken.jp/kb/dqvgHNRUxwFDkmtoqEwfXHUjDrevNv.html

Qファイル並び替え 秒まで

フォルダ内のファイルを更新日時(或いは日付日時)順に並び替えたいのですが
最小単位が分までみたいです。
なので同じ分内に作成(ダウンロード)したファイルが正確に作成した順に並び替え
られません。(同じ分内のファイルがサイズ順なのか名前順になってしまうのか
法則は分かりませんが)
もし最小単位が秒なら作成した順にきっちり並び替えられると思うのですが。


その様に設定を変える方法、或いはそのように並び替えられるソフトなどがありました
ご紹介ください。要するに作成した順にきっちり並び替えられるならOKなんです。
よろしくお願いします。

Aベストアンサー

フォルダ内のファイルを更新日時は分単位しか表示されませんが
各ファイルのプロパティを確認してもらえば分かると思いますが実際には
秒単位で記録されていますのでソートを掛ければ秒単位で並びますよ

QDOSコマンドで、標準出力を出力しないようにするには?

Windowsのバッチファイルでコマンドを実行する際、標準出力をディスプレイに表示したくないのですが、どのようにするのが、一般的なのでしょうか?
CDで実行するので、ファイルに出力はしたくありません。
UNIXとかだと、nullにパイプするようなのですが…。

Aベストアンサー

>UNIXとかだと、nullにパイプするようなのですが…。

リダイレクトですね。

同様です。
標準出力だけなら「c:\> command > nul」
エラー出力もなら「c:\> command > nul 2>&1」

QMS-DOSコマンドプロンプトを途中で止める

SQLPlusで、MS-DOSコマンドプロンプトを使用する場合、SELECT分の抽出があいまいすぎて大量のデータが結果として表示される場合、途中でキャンセルはできないのでしょうか?現状、出力が終えるまでぼけーって待ってます。
今回の質問のようにMS-DOSコマンドプロンプトのコマンドが他にもありましたら教えてください。

Aベストアンサー

プログラムの作りにもよりますが、
「Ctrl+C」で停止
「Ctrl+S」で一時停止
出来ないでしょうか?

QFunctionの戻り値を配列にしたいのですが

vbを始めたばかりですがよろしくお願いします。

Functionの戻り値を配列にしたいのですが

Function fnc(ByVal a As Byte, ByVal b As Byte) As Integer()
fnc(0) = a + b
fnc(1) = a - b
End Function
というような使い方はできないのでしょうか?
一つのFunctionで二つの計算結果をかえすには
どうしたらよいのでしょうか?
お願いします。

Aベストアンサー

ローカル変数を使えば可能だと思いますよ

VB6.0の場合
Function fnc( byVal a as Byte, Byval b as Byte) as Integer
  dim ar(1) as Integer
  ar(0) = a + b
  ar(1) = a - b
  fnc = ar
End Function

VB.NETなら
Function fnc( byVal a as Byte, Byval b as Byte) as Integer
  dim ar(1) as Integer
  ar(0) = a + b
  ar(1) = a - b
  return ar
End Function

VB.NETでも fnc = ar と言った記述も出来ます

呼び出し側では 動的配列として返り値を受けます
dim results() as Integer
results = fnc( 5, 3 )
と言った具合です

Q【Excel】 セルの色での判断はできますか?

使用環境:Office2003

条件付書式を使用して、セルの値がxxならばセルを着色する・フォントを変える、というのは可能ですが、

逆に

セルの色がxx(例えば赤等)ならば、隣のセルに1を代入する

ということは可能でしょうか?
※VBAを使わなければそれにこしたことはないですが、
 必要ならばコーディングも教えてください

よろしくお願いします。

Aベストアンサー

過去の質問を検索していただくと、たくさんの事例がありますが、結論から言うとVBAを使用しないとセルの色は取得できません

>セルの色がxx(例えば赤等)ならば、隣のセルに1を代入する
VBAを使用すればもちろんできますが、これは「例えば」の質問であって、このコードを書いても意味はないのでは?

ですから汎用的に使えるユーザ定義関数にしました。以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。
ワークシート画面に戻って、適当なセルに
=CellColor(A1)
と入力してみて下さい。A1セルの色番号が表示されます。(背景色なしの場合は0が返ります)
この戻り値判定して、関数などでセルに値をセットすればよいでしょう

Function CellColor(ByVal rng As Range)
With rng.Cells(1, 1).Interior
If .ColorIndex = xlNone Then
CellColor = 0
Else
CellColor = .ColorIndex
End If
End With
End Function

ただしセルの背景色を後から変えても、ユーザ定義関数の戻り値は自動的には変わりません。式を入力した後で背景色を変更した場合は
 ALT+Ctlr+F9
で強制再計算させる必要があります。

過去の質問を検索していただくと、たくさんの事例がありますが、結論から言うとVBAを使用しないとセルの色は取得できません

>セルの色がxx(例えば赤等)ならば、隣のセルに1を代入する
VBAを使用すればもちろんできますが、これは「例えば」の質問であって、このコードを書いても意味はないのでは?

ですから汎用的に使えるユーザ定義関数にしました。以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて...続きを読む

Q別のシートから値を取得するとき

Worksheets("シート名").Activate
上記のを行ってから別シートの値を取得するのですが、
この処理を行うと指定したシートへ強制的にとんでしまいます。。。

※イメージ
For ~ To ~
  Worksheets("シートA").Activate
  シートAの値取得
       :
  Worksheets("シートB").Activate
  シートBの値取得
Next

このイメージ処理を行うとものすごい勢いで画面がチカチカします。。。
シートを変えずに他のシートから値を取得する方法はないのでしょうか。
教えてください!

Aベストアンサー

Worksheets("シートA").Range("A1")

みたいな感じでできませんか?


人気Q&Aランキング