- VBScriptについて必死に話し合うスレ
261 ：山片mz[sage]：2014/05/18(日) 08:17:02.98 ID:Wf7TEvca - 桃白白出来たぞ！
Dim str
Do Until WScript.StdIn.AtEndOfStream = True
str = WScript.StdIn.ReadLine
'ここで文字列を反転
WScript.StdOut.WriteLine str
Loop
終了は Ctrl+Z 押してから リターンキーか Ctrl+C 押せばいい
|
- VBScriptについて必死に話し合うスレ
273 ：山片mz[sage]：2014/05/18(日) 17:20:50.14 ID:Wf7TEvca - じゃ完全版な
Dim str
Do Until WScript.StdIn.AtEndOfStream = True
str = WScript.StdIn.ReadLine
WScript.StdOut.WriteLine StrReverse(str)
Loop
インデントを全角スペースにしてみました
|
- VBScriptについて必死に話し合うスレ
277 ：山片mz[sage]：2014/05/18(日) 17:34:22.20 ID:Wf7TEvca - え？標準入力を読みとって行の文字列を反転させて標準出力に書き込むんでしょ
>>273はふざけたコードじゃないよ，まじめなコードだから一回試してみてみて
|
- VBScriptについて必死に話し合うスレ
280 ：山片mz[sage]：2014/05/18(日) 17:44:58.31 ID:Wf7TEvca - レベルが低いも何もこれで仕様を満たしてるんだからしょうがないよｗ
あと吐いたゲロうｐ
|
- VBScriptについて必死に話し合うスレ
283 ：山片mz[sage]：2014/05/18(日) 18:31:49.05 ID:Wf7TEvca - あーもしかして桃白白>>273をどうやって実行すればいいか分かんないのか
まず>>273を rev.vbs とか名前付けて保存する，でコマンドプロンプトから例えば
dir /b | cscript rev.vbs //nologo | sort ってやる
これで標準入力（フォルダのファイルリスト）を行毎に反転して標準出力に書きだす
でそれをsortコマンドでソートっていう>>247に書いてある事を完璧に実行出来るよ
|
- VBScriptについて必死に話し合うスレ
286 ：山片mz[sage]：2014/05/18(日) 18:48:24.15 ID:Wf7TEvca - >>283は>>247を 「一言一句違わずに完璧に実現」 しているのに何が不満なんだろうか．．．
|
- VBScriptについて必死に話し合うスレ
289 ：デフォルトの名無しさん[sage]：2014/05/18(日) 19:01:44.92 ID:Wf7TEvca - うわ本物来たｗ 婚約破棄したからもう来ないかと思ってたのにｗ
それはいいとして，実装？>>273は動作確認済みですけど．．．
|
- VBScriptについて必死に話し合うスレ
291 ：デフォルトの名無しさん[sage]：2014/05/18(日) 19:21:33.97 ID:Wf7TEvca - このスレの上の方で桃白白がClassが云々てレスしてたから
当然のようにVBS5.0ベースで考えてたんですけど
VBS1.0で考えないといけないとなると．．．んー
ならWSHのバージョンもあれだし，となるとそもそもStdInとか使えるのかって話にも
|
- VBScriptについて必死に話し合うスレ
295 ：デフォルトの名無しさん[sage]：2014/05/18(日) 19:41:34.72 ID:Wf7TEvca - 95．．． スタンドアロンですよね．．．
このすれは必死に話し合うスレなんで必死になってID赤くしちゃいましたけど今日はもう寝ますわ
最後に桃白白さんに一言
>>261はREMで反転とか書いてますけど
>>273は文字列反転関数を追加したちゃんとしたバージョンですよ
>>283に書いてある事一回やって見てね
|