素人丸出しお粗末で遅くてもいいので
いますぐ使えるちょっぴり便利プログラムを作れ
(例○○を自動処理してくれるプログラム)
前スレ
VBSで便利なプログラムを作れスレ
https://mevius.5ch.net/test/read.cgi/tech/1170492587/
VBSで便利なプログラムを作れスレ 2
1デフォルトの名無しさん
2018/10/13(土) 22:56:48.61ID:X8llOrQa829デフォルトの名無しさん
2022/12/10(土) 16:47:20.18ID:sHjU7qNe さて質問、wavファイルの正確な長さを知りたい、1秒以下の小数点単位まで
ファイルのプロパティでは1秒単位までしか拾えず
バイナリヘッダにも長さの情報はない
windows media playerを使って取得する方法とかある?
ファイルのプロパティでは1秒単位までしか拾えず
バイナリヘッダにも長さの情報はない
windows media playerを使って取得する方法とかある?
830デフォルトの名無しさん
2022/12/11(日) 02:45:39.10ID:08xatqWx WAVEってビットレート固定じゃないの?
圧縮して拡張子だけ.wavにしてるやつ?
ファイル容量で分からん?
圧縮して拡張子だけ.wavにしてるやつ?
ファイル容量で分からん?
831デフォルトの名無しさん
2022/12/11(日) 09:37:57.57ID:6buDrVW8 ffmpegに付属するffprobeってのでwavの長さが出力されるみたいなので、それを使おうと思う
でもWshShell.Execでやっても標準出力のデータが取れないんだけど、どうしたらいいんだ
でもWshShell.Execでやっても標準出力のデータが取れないんだけど、どうしたらいいんだ
832デフォルトの名無しさん
2022/12/12(月) 12:24:10.22ID:GkD26MT/ とりあえずこれで小数点以下のwavファイルの長さ取れたわ、ffprobe.exe必須
Dim sCmd, Exec, result
sCmd = ws.CurrentDirectory & "\" & "ffprobe.exe -loglevel quiet -show_streams " & ws.CurrentDirectory & "\" & "hoge.wav"
Set Exec = ws.Exec("cmd /c " & sCmd & " 2>&1 | findstr -i duration=")
result = Split(Replace(Exec.StdOut.ReadAll, vbCrLf, ""), "=")
WScript.Echo result(1)
Dim sCmd, Exec, result
sCmd = ws.CurrentDirectory & "\" & "ffprobe.exe -loglevel quiet -show_streams " & ws.CurrentDirectory & "\" & "hoge.wav"
Set Exec = ws.Exec("cmd /c " & sCmd & " 2>&1 | findstr -i duration=")
result = Split(Replace(Exec.StdOut.ReadAll, vbCrLf, ""), "=")
WScript.Echo result(1)
833デフォルトの名無しさん
2022/12/13(火) 20:27:40.67ID:BOGipya8 vbsでエラーが発生した行数を得るには?
834デフォルトの名無しさん
2023/01/02(月) 10:17:23.27ID:ZQn9NZuh office以外で無料でかつ、信頼されているcomオブジェクトでwinapiにアクセスできるものってない?
835デフォルトの名無しさん
2023/01/11(水) 16:31:27.76ID:jp+OFUYZ winapi経由でキーダウンを検知するところまではできたのだけれど
押したキーの標準入力がついて来てしまうの、いらないのだけけれど
どうしたら削除できますか
押したキーの標準入力がついて来てしまうの、いらないのだけけれど
どうしたら削除できますか
836デフォルトの名無しさん
2023/03/28(火) 22:16:36.04ID:dpygnQVl ∧∧ ミ _ ドスッ
( ,,)┌─┴┴─┐
/ つ おわり. |
~′ /´ └─┬┬─┘
∪ ∪ ││ _ε3
( ,,)┌─┴┴─┐
/ つ おわり. |
~′ /´ └─┬┬─┘
∪ ∪ ││ _ε3
837デフォルトの名無しさん
2023/04/04(火) 16:35:56.23ID:vSpSLcg3 VBSでADO RecordsetにCSVファイルを取り込むと電話番号の先頭のゼロが落ちるのな。
iniファイルを使わないと"0" & するしかないのかな?
iniファイルを使わないと"0" & するしかないのかな?
838デフォルトの名無しさん
2023/04/06(木) 00:16:15.07ID:hYGJaIME ダミーの文字型の文字を何行か紛れ込ませて、そのカラムは文字型だと思い込ませるとか?
839デフォルトの名無しさん
2023/04/10(月) 19:40:04.80ID:YifXJ3Ct >>838
それだと元のデータがファイルリストだとダミーのファイルが必要になりますね。
そのうち、それがダミーなのを忘れて、なんかエラーを出しそうな予感が…
いろいろとVBSの限界を感じる今日この頃。やっぱりpythonへ移るべきかなあ
それだと元のデータがファイルリストだとダミーのファイルが必要になりますね。
そのうち、それがダミーなのを忘れて、なんかエラーを出しそうな予感が…
いろいろとVBSの限界を感じる今日この頃。やっぱりpythonへ移るべきかなあ
840デフォルトの名無しさん
2023/05/27(土) 15:49:26.58ID:6b5IxvdG VBSの最大且つ唯一のメリットは開発環境がインストール済みということだから、Pythonをインストール出来る環境であればそ」もありかと。
自分の職場はインターネットから切り離された環境なのでVBSかVBAくらいしか使ってない。PowerShellはやらず嫌いだけど。
自分の職場はインターネットから切り離された環境なのでVBSかVBAくらいしか使ってない。PowerShellはやらず嫌いだけど。
841デフォルトの名無しさん
2023/05/27(土) 20:26:14.82ID:lAqxcZlW ま、pythonに行くわ
pythonはみんな使ってるから得るものが多い
pythonはみんな使ってるから得るものが多い
842デフォルトの名無しさん
2023/05/28(日) 03:21:43.65ID:wPIuZYuf >>837
Ruby では、オプションに変換関数・converter を指定できる
require 'csv'
input_csv = <<"EOT"
2022-10,あ,100
2023-01,い,200
EOT
require 'date'
# 月をDate 型へ、金額を整数型へ変換する
proc = Proc.new do |field, field_info|
case field_info.index # 列のインデックス
when 0 then Date.strptime( field, "%Y-%m" )
when 2 then field.to_i
else
field # 処理なし
end
end
options = { :converters => proc }
CSV.parse( input_csv, options ).each { |row| p row }
出力
[#<Date: 2022-10-01 ((2459854j,0s,0n),+0s,2299161j)>, "あ", 100]
[#<Date: 2023-01-01 ((2459946j,0s,0n),+0s,2299161j)>, "い", 200]
Ruby では、オプションに変換関数・converter を指定できる
require 'csv'
input_csv = <<"EOT"
2022-10,あ,100
2023-01,い,200
EOT
require 'date'
# 月をDate 型へ、金額を整数型へ変換する
proc = Proc.new do |field, field_info|
case field_info.index # 列のインデックス
when 0 then Date.strptime( field, "%Y-%m" )
when 2 then field.to_i
else
field # 処理なし
end
end
options = { :converters => proc }
CSV.parse( input_csv, options ).each { |row| p row }
出力
[#<Date: 2022-10-01 ((2459854j,0s,0n),+0s,2299161j)>, "あ", 100]
[#<Date: 2023-01-01 ((2459946j,0s,0n),+0s,2299161j)>, "い", 200]
843デフォルトの名無しさん
2023/05/28(日) 03:22:27.58ID:wPIuZYuf >>834
Ruby では、win32ole を使う
require 'win32ole'
fso = WIN32OLE.new( 'Scripting.FileSystemObject' )
p WIN32OLE.codepage #=> 65001, UTF-8
Ruby では、win32ole を使う
require 'win32ole'
fso = WIN32OLE.new( 'Scripting.FileSystemObject' )
p WIN32OLE.codepage #=> 65001, UTF-8
844デフォルトの名無しさん
2023/05/29(月) 16:34:12.97ID:AvjLnKXj845デフォルトの名無しさん
2023/05/29(月) 17:35:48.58ID:M6W/ObnY いや、Rubyなんて使わん方がいい
もう終わってるし、Web以外では使われていない
もう終わってるし、Web以外では使われていない
846842
2023/05/29(月) 19:59:39.69ID:D6yaSp/f Ruby はウェブ開発で、Ruby on Rails がほとんどだけど、
テキスト処理やツール開発にも良い
Vagrant や、ログ収集基盤ソフト Fluentd、
Shopify のカスタマイズ用言語 Liquid、
GitHub の静的サイトジェネレーター Jekyll などはRuby製
Mastodon はRails 6。
PHP よりも可読性が高いから、Rubyに変わった
YouTube で有名な雑食系エンジニア・KENTA は、
初心者のキャリアパスは、Rails → Go だけと言ってる
米国年収でも、Rails, AWS Solution Architect が13万ドル
Ruby, Elixir : 9.3 万ドル
Go : 8.9
Rust : 8.7
Go/Rust/Elixir の3大言語を超えた
テキスト処理やツール開発にも良い
Vagrant や、ログ収集基盤ソフト Fluentd、
Shopify のカスタマイズ用言語 Liquid、
GitHub の静的サイトジェネレーター Jekyll などはRuby製
Mastodon はRails 6。
PHP よりも可読性が高いから、Rubyに変わった
YouTube で有名な雑食系エンジニア・KENTA は、
初心者のキャリアパスは、Rails → Go だけと言ってる
米国年収でも、Rails, AWS Solution Architect が13万ドル
Ruby, Elixir : 9.3 万ドル
Go : 8.9
Rust : 8.7
Go/Rust/Elixir の3大言語を超えた
847デフォルトの名無しさん
2023/05/29(月) 20:03:53.88ID:M6W/ObnY 実際には使われていない
それがRuby
だからスレ違いの場所で必死になって宣伝する
関わってはいけません
それがRuby
だからスレ違いの場所で必死になって宣伝する
関わってはいけません
848デフォルトの名無しさん
2023/05/31(水) 07:59:45.59ID:pMbd5YB3 batファイルからpython.exeを起動すればインストールされてなくても動くんだな
もう戻ってこれんよ
もう戻ってこれんよ
849デフォルトの名無しさん
2023/07/10(月) 11:16:00.95ID:A7l9QZwa 質問です。
Outlookを経由してメールファイルをリッチテキスト形式に変換するVBSを組んだのですが、
msgファイルを変換した場合は正常に動作するのに、
emlファイルを変換しようとした場合「***を開けません。ファイルは既に開かれているか、またはファイルを開くための権限がない可能性があります。」というエラーが出てしまいます。
コード:80030050
ソース:Microsoft Outlook
と表示されています。
どうもApplication.CreateItemFromTemplate メソッド (Outlook)の部分でエラーになっているようなのですが…。
原因及び対策法お分かりになる方いらっしゃいませんか?
Outlookを経由してメールファイルをリッチテキスト形式に変換するVBSを組んだのですが、
msgファイルを変換した場合は正常に動作するのに、
emlファイルを変換しようとした場合「***を開けません。ファイルは既に開かれているか、またはファイルを開くための権限がない可能性があります。」というエラーが出てしまいます。
コード:80030050
ソース:Microsoft Outlook
と表示されています。
どうもApplication.CreateItemFromTemplate メソッド (Outlook)の部分でエラーになっているようなのですが…。
原因及び対策法お分かりになる方いらっしゃいませんか?
850デフォルトの名無しさん
2023/10/10(火) 09:42:52.20ID:J1XGUWZB 非推奨になった言語は終わり
851デフォルトの名無しさん
2024/02/08(木) 17:58:08.82ID:+aEBX7Oq >>0837
Schema.iniを書けばよろし
Schema.iniを書けばよろし
852デフォルトの名無しさん
2025/05/12(月) 14:30:31.34ID:Zw0HuL6G VBSそろそろ死んだかな
853デフォルトの名無しさん
2025/05/20(火) 18:30:05.16ID:mTpWtVWr vbsの代わりにpowershellを使えというから、ネットを参考にエクセルブックを操作するコードを書いてみてるけど、COMオブジェクトっていうんですかね、タスクマネージャにEXCEL.EXEが残ったり、ガベコレ?に数十秒掛かってEXCELが消滅したり、慣れるまでかかりそうです
あと、psの冗長な記述、スイッチとか嫌だなぁ
あと、psの冗長な記述、スイッチとか嫌だなぁ
レスを投稿する
ニュース
- 首相官邸前で「戦争あおるな」 台湾有事巡る答弁に抗議 [蚤の市★]
- 高市首相告白「『なめられない服』を選ぶことに数時間を費やしました」「外交交渉でマウント取れる服、買わなくてはいかんかもなぁ」 [ぐれ★]
- 国民・榛葉氏「中国焦ってる」 [ぐれ★]
- 【高市リスク】立民・小西洋之参院議員「高市総理がとんでもない安全保障オンチで外交オンチ」 [ぐれ★]
- 中国、高市首相非難の漫画 在フィリピン大使館がXに投稿 [ぐれ★]
- 『DOWNTOWN+』会員数50万人突破で見えてきた 松本人志の“月収4ケタ万円”驚愕収入 [阿弥陀ヶ峰★]
- 日本人「憲法9条があれば侵略されないって叫んでた売国左翼のゴミどもは今どんな気分?😂wwwwww」 [441660812]
- 【んな専🏡】三連休もんなってんなってんなりまくるのらよ🍬(・o・🍬)🏰
- 高市「財務省案はしょぼすぎる」経済対策自ら上乗せ、野党の要望も取り入れ予算規模拡大 [903292576]
- 高市サナ「あーしさぁ海外首脳に舐めれれたくないんだよね。だから国民のため『なめられない服』選びに数時間かけちゃった」 [517459952]
- 女死ね
- 【悲報】東京都民さん、20過ぎてるのに自転車に乗っててて大炎上wwwwwwwwwwww女「いい歳した男で自転車に乗るのは知的障がい者だけだよ? [483447288]
