VBSで便利なプログラムを作れスレ 2
素人丸出しお粗末で遅くてもいいので
いますぐ使えるちょっぴり便利プログラムを作れ
(例○○を自動処理してくれるプログラム)
前スレ
VBSで便利なプログラムを作れスレ
https://mevius.5ch.net/test/read.cgi/tech/1170492587/ それとはまったく関係ないんだけどプログラミング中に聴く音楽でおすすめ教えて >>199>>200>>201
お前としては自演を敢行して終わりにするつもりだったんだろうな
バカだからスルーできなくてのこのこ出てきたけどwww >>204
よおピラフ
>>185で止んでるのを見ると最後にレスした者勝ちバトルから逃れたくて仕方なかったんだろうね
バカだから再開してるけど >>195>>203>>206
「よおピラフ」「それもお前」を繰り返す単純な作業です >>208
DNAに欠陥のあるお前に向いてるわけだ :: .|ミ|
:: .|ミ|
:: .|ミ| ::::::::
::::: ____ |ミ| ::::
:: ,. -'"´ `¨ー 、 ::
:: / ,,.-'" ヽ ヽ、 ::
:: ,,.-'"_ r‐'" ,,.-'"` ヽ、 ::
:: / ヾ ( _,,.-='==-、ヽ ヽ、
:: i へ___ ヽゝ=-'"/ _,,> ヽ
:: ./ / > ='''"  ̄ ̄ ̄ ヽ
:: / .<_ ノ''" ヽ i
:: / i 人_ ノ .l
:: ,' ' ,_,,ノエエエェェ了 /
i じエ='='='" ', / ::
', (___,,..----U / ::
ヽ、 __,,.. --------------i-'" ::
ヽ、_ __ -_'"--''"ニニニニニニニニヽ ::
`¨i三彡--''"´ ヽ ::
/ ヽ :: ┼ヽ -|r‐、. レ |
/ ヽ:: d⌒) ./| _ノ __ノ :: .|ミ|
:: .|ミ|
:: .|ミ| ::::::::
::::: ____ |ミ| ::::
:: ,. -'"´ `¨ー 、 ::
:: / ,,.-'" ヽ ヽ、 ::
:: ,,.-'"_ r‐'" ,,.-'"` ヽ、 ::
:: / ヾ ( _,,.-='==-、ヽ ヽ、
:: i へ___ ヽゝ=-'"/ _,,> ヽ
:: ./ / > ='''"  ̄ ̄ ̄ ヽ
:: / .<_ ノ''" ヽ i
:: / i 人_ ノ .l
:: ,' ' ,_,,ノエエエェェ了 /
i じエ='='='" ', / ::
', (___,,..----U / ::
ヽ、 __,,.. --------------i-'" ::
ヽ、_ __ -_'"--''"ニニニニニニニニヽ ::
`¨i三彡--''"´ ヽ ::
/ ヽ :: ┼ヽ -|r‐、. レ |
/ ヽ:: d⌒) ./| _ノ __ノ :: .|ミ|
:: .|ミ|
:: .|ミ| ::::::::
::::: ____ |ミ| ::::
:: ,. -'"´ `¨ー 、 ::
:: / ,,.-'" ヽ ヽ、 ::
:: ,,.-'"_ r‐'" ,,.-'"` ヽ、 ::
:: / ヾ ( _,,.-='==-、ヽ ヽ、
:: i へ___ ヽゝ=-'"/ _,,> ヽ
:: ./ / > ='''"  ̄ ̄ ̄ ヽ
:: / .<_ ノ''" ヽ i
:: / i 人_ ノ .l
:: ,' ' ,_,,ノエエエェェ了 /
i じエ='='='" ', / ::
', (___,,..----U / ::
ヽ、 __,,.. --------------i-'" ::
ヽ、_ __ -_'"--''"ニニニニニニニニヽ ::
`¨i三彡--''"´ ヽ ::
/ ヽ :: ┼ヽ -|r‐、. レ |
/ ヽ:: d⌒) ./| _ノ __ノ テキストファイル内を置換するプログラムを作ったのはいいが、文字化けしておかしなことになる。
置換する前は当たり前だが、文字化けしてない状態で、
置換した後は文字化けする。
置換処理の後に、保存前にエンコードを設定しないといけないのか? >>220
編集前のテキストファイルと、VBSファイルが、UTF-8かSJISかを確認してね。 >>233
こいつ、自演連呼ロボット。以下、無視すべし。 / ̄ ̄\
/ ⌒ ⌒ \
デーデ | ( ●)(● ) |
. デーデデッデ♪ l (__人__) │
| `⌒ ´ | ____
| |/ \
ヽ / ─ ─ \ ))
(( ヽ ./ (●) (●) \
/ | (__人__) | デーデ
. / \ `⌒´ ,/ デーデデッデ♪
. __/ / ./ (
(( 〈__/ノ / \
/ __/ / \ \_
(( 〈__/ノ ノ.\__ ノ ))
\___ノ / /⌒\ /
ノ ノ )| \
レ´ ^ レ.\___ノ\ l
ノ ノ ) ノ
レ´ ^ レ´ >>238
全部404じゃん
404って存在しないって意味だよ
頭大丈夫? >>240
意味わかんない
存在しないGitHubのページ貼って意味わかんない ピラフは
\ / ┌─┐
X │ │
/ \ノ └
─┼─┌─┐ | ──, ┼- | \ | \
, /|\ \/ | / ┼- 、 | | | |
| /\ ヽ_/ ヽ_ ヽ_ノ \/ \/
| ̄| ̄| _|__ __|__ | ̄| | ̄|
\ / | ̄| ̄| | ヽ _|_ | | | | |
/  ̄  ̄ | | | ○| |__| |__|
/ | | ヽ \ | | .| |
l___ | ヽ__ ∨ ○\ ノ □ □ 存在しないGitHubのページを貼る
殺害予告をする
自演乙
糖質乙
これ本物のキチガイだよ \人人人人/ __
< > /Y (_ノ(ヽ
<勝ちまくり> {_,{_,{ / }
<モテまくり> ____ {_ノ|| /
< > /⌒ ⌒\ { || /
_/ΥΥΥΥ\. /( ●) (●)\ ', ◎_ノ
〈\ \ _ /::::::⌒(__人__)⌒:::::\.,ィ彡イ⌒丶 }. || {
( ̄)≧=- _ ィ≦三≧x{. |r┬-| /i:i:i:‖i:i:i:i:i:i:i:\ ′ l
( ̄).___/ 〃:i:i:i:i:i:iシVi:i\ `ー'´ {i:i:i:i:i:i:i「¨\トミi:i:ハ / }
八 ̄) \ / 〉 ‖i:i:i:i:i:i:i{ Yi:! ヽ /Yi:i八i:! ィテァ⌒l)i:iヽ /
ヽ¨.) \ヽ/__ ィi:i:i:ハi:i:i:」 ィ_E `¨´ Y:iァ=ァ、 }i:i:i八 /
\// /i:i:(.{ ≠ァ i ゞ' i| ゞ込 ヽ ,ィ リツ¨¨  ̄ ¨¨ヽ
\ ノi:i:i:i:i込 、'_,ィ ‖ )i:i≧s。'"_ / / \
-=彡i:i:i:i:i:i:i:i:i\ `¨ ,イi ,:、 /⌒ヾi:iゝ __ / ヽ
/  ̄ ̄ )i:i:i:i:i) ≧彡i:i .:c ゞ ′ /¨`、
ノ / \∧ /77シシシハ、 l 、 _〈≧=___从-∧
/ 〈 \∨//////\ヽ ┌! /_ヽ l|ll 壱万円 |」」]丶
/ \ |‖// ≦⌒} 「 ̄丶 / ̄ |,′ ‖/―┴┬――――┴三三
/ / >'  ̄)////〈__ノ  ̄< / \ \ / ′ {「/ ̄l / |\ \ \ \ __
/ // ___ノ〈//// / ><\ \ \/{ j ̄ ̄|Y ∨ \ \ 丶 \
/ ´ s≦ / ∨\ \ ̄/ / / /\\ ̄ ̄ /j ⌒ヽ /| |\ ∨ ̄ ̄| ̄  ̄  ̄ VBScript って、駄目な子だけど当時は輝いてたんだと思う。
でも今は本当に駄目。
そっと PowerShell に譲って息を引き取る感じかな。
バッチスクリプトほどの老獪さもないし。
だから
:: .|ミ|
:: .|ミ|
:: .|ミ| ::::::::
::::: ____ |ミ| ::::
:: ,. -'"´ `¨ー 、 ::
:: / ,,.-'" ヽ ヽ、 ::
:: ,,.-'"_ r‐'" ,,.-'"` ヽ、 ::
:: / ヾ ( _,,.-='==-、ヽ ヽ、
:: i へ___ ヽゝ=-'"/ _,,> ヽ
:: ./ / > ='''"  ̄ ̄ ̄ ヽ
:: / .<_ ノ''" ヽ i
:: / i 人_ ノ .l
:: ,' ' ,_,,ノエエエェェ了 /
i じエ='='='" ', / ::
', (___,,..----U / ::
ヽ、 __,,.. --------------i-'" ::
ヽ、_ __ -_'"--''"ニニニニニニニニヽ ::
`¨i三彡--''"´ ヽ ::
/ ヽ :: ┼ヽ -|r‐、. レ |
/ ヽ:: d⌒) ./| _ノ __ノ よってピラフ=片山も
:: .|ミ|
:: .|ミ|
:: .|ミ| ::::::::
::::: ____ |ミ| ::::
:: ,. -'"´ `¨ー 、 ::
:: / ,,.-'" ヽ ヽ、 ::
:: ,,.-'"_ r‐'" ,,.-'"` ヽ、 ::
:: / ヾ ( _,,.-='==-、ヽ ヽ、
:: i へ___ ヽゝ=-'"/ _,,> ヽ
:: ./ / > ='''"  ̄ ̄ ̄ ヽ
:: / .<_ ノ''" ヽ i
:: / i 人_ ノ .l
:: ,' ' ,_,,ノエエエェェ了 /
i じエ='='='" ', / ::
', (___,,..----U / ::
ヽ、 __,,.. --------------i-'" ::
ヽ、_ __ -_'"--''"ニニニニニニニニヽ ::
`¨i三彡--''"´ ヽ ::
/ ヽ :: ┼ヽ -|r‐、. レ |
/ ヽ:: d⌒) ./| _ノ __ノ :: .|ミ|
:: .|ミ|
:: .|ミ| ::::::::
::::: ____ |ミ| ::::
:: ,. -'"´ `¨ー 、 ::
:: / ,,.-'" ヽ ヽ、 ::
:: ,,.-'"_ r‐'" ,,.-'"` ヽ、 ::
:: / ヾ ( _,,.-='==-、ヽ ヽ、
:: i へ___ ヽゝ=-'"/ _,,> ヽ
:: ./ / > ='''"  ̄ ̄ ̄ ヽ
:: / .<_ ノ''" ヽ i
:: / i 人_ ノ .l
:: ,' ' ,_,,ノエエエェェ了 /
i じエ='='='" ', / ::
', (___,,..----U / ::
ヽ、 __,,.. --------------i-'" ::
ヽ、_ __ -_'"--''"ニニニニニニニニヽ ::
`¨i三彡--''"´ ヽ ::
/ ヽ :: ┼ヽ -|r‐、. レ |
/ ヽ:: d⌒) ./| _ノ __ノ :: .|ミ|
:: .|ミ|
:: .|ミ| ::::::::
::::: ____ |ミ| ::::
:: ,. -'"´ `¨ー 、 ::
:: / ,,.-'" ヽ ヽ、 ::
:: ,,.-'"_ r‐'" ,,.-'"` ヽ、 ::
:: / ヾ ( _,,.-='==-、ヽ ヽ、
:: i へ___ ヽゝ=-'"/ _,,> ヽ
:: ./ / > ='''"  ̄ ̄ ̄ ヽ
:: / .<_ ノ''" ヽ i
:: / i 人_ ノ .l
:: ,' ' ,_,,ノエエエェェ了 /
i じエ='='='" ', / ::
', (___,,..----U / ::
ヽ、 __,,.. --------------i-'" ::
ヽ、_ __ -_'"--''"ニニニニニニニニヽ ::
`¨i三彡--''"´ ヽ ::
/ ヽ :: ┼ヽ -|r‐、. レ |
/ ヽ:: d⌒) ./| _ノ __ノ :: .|ミ|
:: .|ミ|
:: .|ミ| ::::::::
::::: ____ |ミ| ::::
:: ,. -'"´ `¨ー 、 ::
:: / ,,.-'" ヽ ヽ、 ::
:: ,,.-'"_ r‐'" ,,.-'"` ヽ、 ::
:: / ヾ ( _,,.-='==-、ヽ ヽ、
:: i へ___ ヽゝ=-'"/ _,,> ヽ
:: ./ / > ='''"  ̄ ̄ ̄ ヽ
:: / .<_ ノ''" ヽ i
:: / i 人_ ノ .l
:: ,' ' ,_,,ノエエエェェ了 /
i じエ='='='" ', / ::
', (___,,..----U / ::
ヽ、 __,,.. --------------i-'" ::
ヽ、_ __ -_'"--''"ニニニニニニニニヽ ::
`¨i三彡--''"´ ヽ ::
/ ヽ :: ┼ヽ -|r‐、. レ |
/ ヽ:: d⌒) ./| _ノ __ノ ソート済みのランダムな数列があるとします
(0, 15, 30, 46, 61, 76, 112, 148, 183, 219, 255)
この中から任意の数値の近似値を得たいのですが
アルゴリズムを教えてください
できるだけ高速なアルゴリズムがよいです
どうぞよろしくお願いいたします >>262
では差の絶対値が最小のものを選ぶ高速なアルゴリズムを教えてください MinValue = 9999999 ' とりあえず大きな整数
For I = 0 To Cnt - 1
Diff = A(I) - N
Abso = Diff * Diff
If Abso < MinValue Then
MinValue = Abso
End If
Next
WScript.Echo MinValue
' 未確認。 >>271
バイナリサーチしますか?
お願いできますか? わがはいはバイナリ 男をサーチ!!
(YYフ
目
ヘ / ̄ ̄\
\/ (・)(・) ヽ
| ゜ |
ヽ \_/ ノ
`○エエ>ー――<エエ○
|o o|
>―――<\
(__)(__)、 _ --- _
/ ヽ
/ 〇 . |
l l
ヽ、 , '
丶、_ _,,/
||
_,,l:l___
,. -'"´ `¨ー 、
/ ,,.-'" ヽ ヽ、
,,.-'"_ r‐'" ,,.-'"` ヽ、
/ ヾ ( _,,.-='==-、ヽ ヽ、
i へ___ ヽゝ=-'"/(じ::::::)_,,> ヽ
./ /代ハ> ='''"  ̄ ̄ ̄ ヽ
/ .<_弋リ''" ヽ i わがはいはバイナリ
/ i 人_ ノ .l 男をサーチ!!
,' ' ,_,,ノエエエェェ了 /
i じエ='='='" ', /
', (___,,..---- '' /
ヽ、 __,,.. --------------i-'"
ヽ、_ __ -_'"--''"ニニニニニニニニヽ
`¨i三彡--''"´ ヽ
/ ヽ ┼ヽ -|r‐、. レ |
/ ヽ d⌒) ./| _ノ __ノ Dim targetURL
targetURL = InputBox("目的のURLを入力してください。" ,"InputURL", CopyedURL)
MsgBox targetURL '←ここではURLは"="も含め正常に出ている
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "hoge.bat "&""&targetURL&"", 1, True
〜〜〜〜〜〜〜〜〜〜
呼び出し先のhoge.batで引数を"echo %1"で表示すると
URLに含まれる"="以降の文字列が消えている。
"="以降の文字列も含めてhoge.batの引数として渡すにはどうすればいいですか? >>282
echo %%1
の結果が"%1"になりました。 >>284
echo "%1"
の結果は"="以降が消えたURLでした。
VBScript側の問題だと思うのですが違いますか? targetURLに代入するURLが例えば"http://hoge.com/do?a=xxxx"だとすると
hoge.bat "http://hoge.com/do?a=xxxx"
の文字列でhoge.batを呼び出す必要があると思うのですが
targetURLを"""で囲むと
hoge.bat "targetURL"
と、"targetURL"という文字列になってしまい、目的が果たせません。
一方、targetURLを""で囲うと結果としてはURLがダブルクォーテーションで囲われず
hoge.bat http://hoge.com/do?a=xxxx
となり、hoge.bat実行時に引数のURLの"="以降が無視されてしまいます。
どうすればいいでしょうか? コマンドプロンプトでは%は特殊な解釈をする。
targetURLの中の%を二重化。 新しく文字列を作って、元の文字列を一文字ずつ読み込み、文字が%でなければそのまま追加し、%があったら二回追加する。 >>288
targetURLに%はないです。
%の問題でなく=の問題です。
新しい文字列を作ろうとしても>>286と同じことが起きます。 >>267-268にピラフのクズっぷりがよく表れてる >>285
VBScript使わずにバッチファイル実行すれば
VBScriptの問題かどうかははっきりするかと思います
バッチファイルでは=が引数の区切りとして処理されるんでしょうね
バッチファイルに渡す引数を実引数と呼んで
バッチファイル内で使用する引数を仮引数と呼ぶことにします
=が引数の区切りとして処理されないよう
実引数を"でくくって一つの引数として渡して
仮引数は%~1でストリップすればよいです
もしくは実引数をa=bにして
仮引数を%*にする方法もありますが
引数が複数のときは使えないです
そういうのめんどうくさいのでPowerShellを使ったが良いと思います >>267
想定する回答を貰えなかったからってそりゃないだろ
接待もできないのかよ
それどころか余計なことするなくらいに思ってそうだよな 「コマンドプロンプト エスケープ イコール」で検索! = は、デリミタ(区切り文字)としても使う
= は、キャレット「^」ではエスケープできません! バッチファイルのパラメータとしてイコールやセミコロンが使えない原因と対処 | Windows バッチファイル
http://tooljp.com/bat_qa/927925C3BD1917D349257E8D00493464.html
対策
Windows 10 環境で、これらを引数として渡すのは困難です
=やセミコロンは、他の文字列として引数に渡し、バッチ内でこれらに変換する。
あるいは、Powershellを使う