人に聞けない痔の悩み、これでスッキリ >>

宜しくお願いします。

山川谷.BATをダブルクリックすれば、
クリップボードに、”山”をコピーし、続いて、”川”、”谷”を順次コピーする様な
コードをお教え下さい

『谷』のみをクリップボードにコピーするコードは見つかりました
( SET /P<NUL="谷"|clip ) が、知識が無く、応用が全く利きませんので
お教え下さいます様、宜しくお願い致します。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

「続いて順次」と言うのはどういう意味?


間をおかずに続けて処理すれば無意味ですよね。

Enterを押す度に次の文字をコピーするのなら、

set /p <NUL="山"|clip
set /p ="川"|clip
set /a ="谷"|clip

10秒ごとにコピーするなら、

set /p <NUL="山"|clip
timeout /t 10
set /p <NUL="川"|clip
timeout /t 10
set /a <NUL="谷"|clip

この回答への補足

notnot 様

早速に、有難うございます。

※「続いて順次」と書いたのは、
『おはよう』とか『今晩は』とかの定型文章を必要な時(使用する時)に
クリップボードにコピーしてから、別のソフトで、
定型文章を入力をしたい位置に、クリップボードから貼り付ける
処理をする為でした

多くのバッチファイルをデスクトップに置くより、一つのバッチファイルで、
複数の文字列をクリップボードに、別々にコピーしたくて検索しておりましたが、
なかなかぴったりしたコードを探せ無かった為、初めて、ここに質問させて頂きました。

教えて頂きましたコードの10秒を1秒に替えて使用すれば、考えていた事が
出来ました。

本当に、有難うございました。

補足日時:2015/01/17 12:11
    • good
    • 0

このQ&Aに関連する人気のQ&A

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

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

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

Qバッチファイルでクリップボードの文字を使う

バッチファイルにて
フォルダを作成し、ファオルダの名前にクリップボードにコピーされている文字を使いたいのですが、お分かりの方、教えてください。お願いいたします。

Aベストアンサー

DOSコマンドではクリップボードの内容を取り込むコマンドが無いので
標準のままでは、バッチ処理は不可能です
クリップボードの操作が可能な外部プログラムが必要になります

ということで、VBスクリプトで同様の動作を実現できるものを

http://www.whitire.com/vbs/tips0170.html
http://vbscript.infopos.net/p/000035.html

上記サイトのサンプルを合体させて
------
Option Explicit
On Error Resume Next

Dim objFS
Dim objIE
Dim strCbData
Dim str_path
Dim Fname1

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objIE = CreateObject("InternetExplorer.Application")
If Err.Number = 0 Then
objIE.Navigate("about:blank")
strCbData = objIE.document.parentwindow.clipboardData.GetData("text")
Fname1 = ".\" & strCbData
str_path = objFS.CreateFolder(Fname1)
MsgBox str_path
objIE.Quit
Else
WScript.Echo "エラー:" & Err.Description
End If

Set objIE = Nothing
------

こんな感じで、一応動きますが

単純に組み合わせただけなので、クリップボードに文字列以外のデータやファイル名に利用できない文字列などのエラー処理はされていません

DOSコマンドではクリップボードの内容を取り込むコマンドが無いので
標準のままでは、バッチ処理は不可能です
クリップボードの操作が可能な外部プログラムが必要になります

ということで、VBスクリプトで同様の動作を実現できるものを

http://www.whitire.com/vbs/tips0170.html
http://vbscript.infopos.net/p/000035.html

上記サイトのサンプルを合体させて
------
Option Explicit
On Error Resume Next

Dim objFS
Dim objIE
Dim strCbData
Dim str_path
Dim Fname1

Set objFS = Creat...続きを読む


このカテゴリの人気Q&Aランキング