連続した数字を自動で書き込む
: お尻丸出しの勇者 [ ] NGNG たとえば・・・ あいうえお0001.jpg と いうのを数字だけ自動的にかえて あいうえお0001.jpg あいうえお0002.jpg あいうえお0003.jpg あいうえお0004.jpg あいうえお0005.jpg あいうえお0006.jpg あいうえお0007.jpg あいうえお0008.jpg ・ ・ ・ とテキストに書き込むにはどーしたらいいですか? どんなソフトを使えばいいですか? フリーソフトで検索するとしたらなんていうキーワードで探せばいいですか? 軽いソフトがいいです ウィンドウズについてるメモ帳ではできませんか? まことにもうしわけないです : 2 [sage] NGNG 2ゲト ズザァァァァー : 3 [] NGNG WSHで そぉいうのやるの どっかで見た : 4 [] NGNG ttp://www.angel.ne.jp/~jac/freesoft.html これはどぉ? : _ [] NGNG / ┏ )))) ┃ ■■ / / ┃キ ┃ | ヽヽ ┃\ / / /┃ タ ┃ i 、、 | ヽヽ |\ ┃ \ / / \ \┃┃ ┃__∧ ド ド |ヽ |\ | ┃ / / \ ┃┃ ┃゚∀゚)━━━━━━ !!!!! / / ヽ┃┃ ┃ ⌒\ / ┃┃ ┃/ / /┗ (((┛ / <キタ━━━━━━ / / ̄ \ キタ━━━━━━ !!!!! ― / ん、 \ \ ―― (__ ( > ) ⌒ヽ ’ ・`し' / / 人, ’ ’, ( ̄ / Y⌒ヽ)⌒ヽ、 ) | \_つ : 名無しさん@そうだ選挙にいこう [] NGNG テキストに書き込むなら、表計算ソフトで作って、テキスト形式で保存して、 あとで、","などはワードパッドの”編集”−”置き換え”を使ってみたらどう? : 名無しさん@そうだ選挙にいこう [] NGNG 6です。 説明不足でした、あらためて操作を説明します。 エクセルで説明します。 エクセルを開き、セルA1に”あいうえお”と入れます。 セルA2に =A1 と入れます。セルA3以降のセルにセルA2の内容をコピーしておきます。 セルB1に0をいれて、セルB2に =B1+1 を入れ、セルB3以降のセルにセルB2の内容をコピーします。 セルC1にjpgをいれて、セルC2に =C1 を入れ、セルC3以降のセルにセルC2の内容をコピーします。 これをCSV形式(カンマ区切り)で、保存し。 (このとき警告が出ますが、”OK””はい”にしてください。) エクセルを閉じて(この時の警告はキャンセル)、 ワードパッドで保存したファイルを開きます。 (開くときは、”全てのファイル”に指定すると保存したファイルが見えます。) あとは、編集ー置換で",jpg"となっている部分を".jpg"に置換えて","を"00"に置換します。 数字一桁の部分には0が一つ足りないから、0を手入力してください。 これで、あいうえお0099.jpgまでは作れます。ほかの表計算ソフトでも出来ると思います。 説明が下手なので、わかりづらいかもしれませんが、ご了承ください。 : 名無しさん@そうだ選挙にいこう [] NGNG メモ帳開いて下記のテキストを貼り付けて「Test.vbs」とでも名前を付けて保存。 後は、ダブルクリックして実行して下さい。 「C:\Test.txt」が作成されます。 Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("c:\test.txt", True) For i=1 to 99 MyFile.WriteLine("あいうえお") & Right("000" & CStr(i),4) & ".jpg" Next MyFile.Close : 6 [] NGNG おお、このほうが、メモ帳だけですんで断然いいですね。 >For i=1 to 99 >MyFile.WriteLine("あいうえお") & Right("000" & CStr(i),4) & ".jpg" >Next ここの、部分をいじくれば、ファイル名、桁数、拡張子が変えられるのですね。 ローテクばかりやっている自分が恥ずかしいです、勉強が足りませんでした。 逝ってきます。 : お尻丸出しの勇者 [ ] NGNG 1です 8さんサンクスです : 名無しさん@そうだ選挙にいこう [sage] NGNG で、このごみスレをどうするよ。 : 名無しさん@そうだ選挙にいこう [] NGNG めんどくせーなーと思いつつ いつも手間かけてやってることを告白するスレ。 うん、そうしよう。 : 名無しさん@そうだ選挙にいこう [] NGNG 鼻毛切ることかな。 : 名無しさん@そうだ選挙にいこう [] NGNG ヨメとのセクース。 : 名無しさん@そうだ選挙にいこう [sage] NGNG カコイイ : 名無しさん@そうだ選挙にいこう [] NGNG 使い道無いね。といってみるテスト : 名無しさん@そうだ選挙にいこう [] NGNG 0001をコピペして、順次2,3,4、と手入力で直していく。 実際こうやってるんだろうな、マクロなんか知らない人って。 : 名無しさん@そうだ選挙にいこう [] NGNG マクロって知らないけどエクセルとかでできるじゃん。 って>1を見て思った。 : 名無しさん@そうだ選挙にいこう [sage] NGNG 「あいうえお0001.jpg」と入れたセルのフィルハンドル引っ張れば済むんじゃねーのか? : お尻丸出しの勇者 [ ] NGNG >0001をコピペして、順次2,3,4、と手入力で直していく。 >実際こうやってるんだろうな、マクロなんか知らない人って 私はやっていましたヨ それで頭がいたくなったんです : 名無しさん@そうだ選挙にいこう [sage] NGNG エロ画像収集か? 俺は、 curl 使って、 curl -O ttp://http://ero.site.com/ あいうえお[0001-0100].jpg だよ。ビジネスソフト板の話題じゃないな。 ttp://http://curl.haxx.se/download.html : 名無しさん@そうだ選挙にいこう [sage] NGNG ttp://http://www.borland.co.jp/cppbuilder/freecompiler/ これならフリーだぞ。 あとは、printf(もしくはcout)とループを覚えれば すぐ出来るYO : 7 [sage] NGNG ガ━━(゚Д゚;)━━ン! 思いっきり、忘れていました。 そう言うので使うにせよ、やっぱり、ビジネスソフトで、やるのがいいかな〜 などと、愚考しました。 私は、いいかもしれませんが、1さんには、敷居が高いかも。 私にもちょっと高いかも。 「Cドライブて、何?」「そんなのないわよ!!」「ちゃんと教えてよ!!」 なんて言う、お客様と付き合ってうまく伝えられない時を、思い出します。 (パソコンとは、何の関係のない職種です。) 自分勉強足りません・・・ もうだめぽ、氏んだほうがいいぽ・・・ : 名無しさん@そうだ選挙にいこう [] NGNG パルタハケーン : 名無しさん@そうだ選挙にいこう [] NGNG 俺は19の方法使って展開してからイリアにぶち込んでた 擬装gifとか : 名無しさん@そうだ選挙にいこう [] NGNG そのやり方、何だかチョト面白い Set MyFile = fso.CreateTextFile("c:\test.txt", True) の拡張子のところを、ためしにdocやxlsに変えたらやっぱりその通りになった。 でも、 SendKeys "%{F4}S~", False AppActivate ("Program Manager") とか Kill〜 とか CopyFile〜 とかはダメだった。 CreateをDeleteに変えたやつもダメだった。 どうやるの、ってよりも、何しらべたらそういうのが分かるの? : 名無しさん@そうだ選挙にいこう [sage] NGNG 何がしたいのかわからんが参考スレ ttp://pc.2ch.net/test/read.cgi/win/1009175619/ : 26 [] NGNG 即レスさんくす いまのところ何がしたいというわけでもないけど、何だか すんげー便利そうだったから。 VB(A)で、ExcelもAccessもなしにメモ帳から実行ファイル つくれるんしょ(ホントカヨ?) 明日休みなんで早速かじり始めてみます。 : 名無しさん@そうだ選挙にいこう [sage] NGNG VBSだし。。。 実行ファイルじゃないし・・・ (通常、実行形式ファイルとは.exeなどコンパイルしたモノのこと まぁ、実行できるけどさ、、、 使い捨てるには作るのに時間がかかるんで向いてないケド マウスの制御はカンタンにはできないっぽいから、GUIに向いてないケド おもしろいよ。 技術評論社のポケットリファレンスシリーズの VBScriptの本がけっこういいよ。安くて ttp://http://www2.gihyo.co.jp/books/bookinq.asp?ID=616 頑張ればウィルスだって作れるぞ。(作るな! (有名なラブレターウィルスはVBSだぞ) : 26 [] NGNG VBS、と・・・紹介されたページでその言葉知りました。 WSHて言葉も初めて。 こういうのって、VB何とかがインストールされてない限り、AccessやExcelを 土台にしないと出来ないんだと思ってた。 JAVAでもいけるのかな。でもこっちは分からない(VBAダッテ初心者ノ域ヲ出テナイケド) 夕べは、ファイルコピー、フォルダーコピーをいくつか試したところで終了。 本日は、違う場所にある同名のファイルを比較させ、古い方を新しいのに書き 換える、みたいなこと試そうとしたけど、イツノマニカ寝チマッタ。 まあしばらくは、さしあたって使い道のありそうなもので単純なやつだけを ちまちまつくってみます。 ただ、たしかに つくるものによっては、労力に見合わないケースもありそう。 あと、Accessのエディターだと、スペルが正しいとき間違ってるとき、 それなりの反応を返してくれたり、やりたいことの候補一覧を 出してくれたりするけど、何にもないのはちとつらい。アタリメーカ、メモ帳ダモンナ。 このスレはこのまま消滅を待つしかないと思うんで、もちっと 腕上げたら、あっちのスレに行きます。 : 名無しさん@そうだ選挙にいこう [] NGNG 目的が単純明快ならバッチでもマクロでも、 VBSなりPerlなりhtaなりbatなり自作するが吉。 目的ドンピシャって、探してもなかなか無いんだよね。 で、求める作業がそれらで出来ない場合、どうすりゃいい? cなりJavaなり、学ぶべき?誰かに頼むべき?自営で困ってます。 どうよ? : 名無しさん@そうだ選挙にいこう [sage] NGNG Perl書けるならCやJavaも出来るんでないかい? 「求める作業」が明確なら、かなり難しそうでも 作ってみるのが良いんじゃないかな? でも 多分「単純明快なら」とか言ってるところを見ると 自分のやりたい内容はそうとう複雑で そのせいで具体的で詳細なところまでイメージできてないんじゃない? 操作のイメージやらイロイロをどんどん書き出して それを元に「仕様をきっちりまとめる」ってのをやってみたら? 仕様がまとまった段階で、自分で作れそうか 誰かに頼まなきゃ無理そうかを判断する、って方針は? : 31 [sage] NGNG >32 ありがとう、只今思いつき羅列のまっ最中です。 本人は複雑とは思ってないんだが(知識があるという意味ではない)、精度と信頼性を要する。 いままで自分で作ったのはレベルの低いもので、しかもちゃんと出来てない。 ある目的で真剣にPerlを勉強しようと助言を求めたら、その実現はPerlでは苦しいし プロにまかせろという返事だったもので。 それだと次に困ったときまた自分で解決できないから、PerlがダメならJavaなりきちんと勉強する ほうがいいのか、、、って、31はそう読めないねスマソ 余計なことする位なら仕事に専念したいんだけど、その仕事中に>17に近いことに直面するたび なんか真剣に勉強したほうが結局早道なのかなぁと。 : 名無しさん@そうだ選挙にいこう [] NGNG RocketMouseでやれば一発。「繰り返し処理」の欄に ---------------------------------- 0000,0000,0000,文字列,あいうえお 0000,0000,0000,変 数,1,4 0000,0000,0000,文字列,.jpg 0000,0000,0000,キーOnly,{ENTER} ---------------------------------- これで、あとは繰り返し回数を設定するだけ。 って、レス遅すぎですね。 : 名無しさん@そうだ選挙にいこう [sage] NGNG はどうなったんだろうか? : 31=33 [sage] NGNG >35 ご心配をおかけしまして とりあえずJava本を買ってきた、けど本業が忙しくてそのまま。 J2SDKインストールすらしてない状態。長期戦ですなこれは。 こんぷーたって、あるレベルを超えると途端に敷居が高くなるもので 我慢してビルゲイツに付き合うか知識を得て新境地を切り開くか 吉野家牛丼こぴぺじゃないけど刺すか刺されるかの世界? : 31=33 [sage] NGNG ついでに 1が読んでるかどうか知らんけど、連番、あたしゃこうしてます。vbs。 もう解決してるだろうからウプせなんだ。クリップボードに連番を渡します。 ---------------------- Dim nFrom, nTo, Output nFrom=InputBox ("指定の連番をクリップボードへ渡します。" & vbCrLF _ & "開始番号は?","連番","1") nTo=InputBox ("終了番号は?","連番") Output = nFrom & vbCrLf For i= nFrom to (nTo - 1) nA = (i + 1) & vbCrLf Output = Output & nA Next Set Ie = WScript.CreateObject("InternetExplorer.Application") Ie.Navigate "about:blank" Do While Ie.Busy Wscript.Sleep 10 Loop Set oClip=Ie.Document.parentWindow.clipboardData oClip.setData "text",Output If IsNull(Output) Then Output="**error**" : 名無しさん@そうだ選挙にいこう [] NGNG おおこれは揚げだろう : 山崎渉 [(^^)sage] NGNG (^^) : 山崎渉 [(^^)] NGNG (^^) : 山崎渉 [(^^)] NGNG (^^) : 山崎渉 [(^^)sage] NGNG ∧_∧ ( ^^ )< ぬるぽ(^^) : 山崎渉 [(^^)] NGNG ━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━― : 山崎渉 [(^^)] NGNG ∧_∧ ピュ.ー ( ^^ ) <これからも僕を応援して下さいね(^^)。 =〔~∪ ̄ ̄〕 = ◎――◎ 山崎渉 : 22 [sage] NGNG 携帯ゲーム機"プレイステーションポータブル(PSP) このPSPは、新規格UMD(ユニバーサルメディアディスク)というディスクを利用しており、そのサイズは直径6cmととても小さい(CDの半分程度)。 容量は1.8GBとなっている。 画面は4.5インチのTFT液晶で、480px x 272px(16:9)。MPEG4の再生やポリゴンも表示可能。外部端子として、USB2.0とメモリースティックコネクタが用意されているという。 この際、スク・エニもGBAからPSPに乗り換えたらどうでしょう。スク・エニの場合、PSPの方が実力を出しやすいような気がするんですが。 任天堂が携帯ゲーム機で圧倒的なシェアをもってるなら、スク・エニがそれを崩してみるのもおもしろいですし。かつて、PS人気の引き金となったFF7のように。 : 山崎 渉 [(^^)] NGNG __∧_∧_ |( ^^ )| <寝るぽ(^^) |\⌒⌒⌒\ \ |⌒⌒⌒~| 山崎渉 ~ ̄ ̄ ̄ ̄ : ぼるじょあ ◆ySd1dMH5Gk [(^^)] NGNG ∧_∧ ∧_∧ ピュ.ー ( ・3・) ( ^^ ) <これからも僕たちを応援して下さいね(^^)。 =〔~∪ ̄ ̄ ̄∪ ̄ ̄〕 = ◎――――――◎ 山崎渉&ぼるじょあ : 山崎 渉 [(^^)] NGNG (⌒V⌒) │ ^ ^ │<これからも僕を応援して下さいね(^^)。 ⊂| |つ (_)(_) 山崎パン : 名無しさん@そうだ選挙にいこう [sage] NGNG A A A A A A A : 名無しさん@そうだ選挙にいこう [sage] NGNG A A A : 電脳プリオン [sage] NGNG もう書き込めましたか? : 名無しさん@そうだ選挙にいこう [sage] NGNG ttp://www.vector.co.jp/soft/winnt/util/se332987.html?g シェアだけど 正規表現で自動sendKey : せる ◆7PaVAaEDbs [sage] NGNG ここで書かれてるようなことやってたら、日が暮れます。 プログラムは極力書かないことです。 @エクセルで、数字のとこだけつくっておく 1、2、3、4、5、・・・・(セルの表示形式を「00000」(5けた表示)) A秀丸やnoeditorのキーボードマクロにて (1)行頭に「あいうえお」付加 (2)行末に「jpg」付加 1分もかからないと思う。 : せる ◆7PaVAaEDbs [sage] NGNG 4桁表示の間違い (^^;) : 名無しさん@そうだ選挙にいこう [sage] NGNG ローカルルール読んだことある? : せる ◆7PaVAaEDbs [sage] NGNG 読んだことないよ 死ね : 名無しさん@そうだ選挙にいこう [sage] NGNG 死ねって他人に言う気分はどう? : くさりん [] 2006/04/06(木) 16:24:31 ≫57答えるの脚下。 : くさりん [] 2006/04/06(木) 16:25:27 ≫57答えるの脚下。 : 名無しさん@そうだ選挙にいこう [sage] 2008/08/24(日) 18:02:54 a : 名無しさん@そうだ選挙にいこう [sage] 2008/10/11(土) 23:07:28 ccc : 名無し変更議論中@詳しくは自治スレへ [sage] 2009/02/16(月) 23:59:19 2005年と2007年に書き込みなし : 名無し変更議論中@詳しくは自治スレへ [] 2009/03/04(水) 19:49:48 ddddddd : 名無しさん@そうだ選挙にいこう [sage] 2011/02/16(水) 18:10:11 ガンジスDDT : 忍法帖【Lv=5,xxxP】 [sage] 2011/06/12(日) 22:03:46.98 test : 名無しさん@そうだ選挙にいこう [sage] 2011/12/22(木) 20:30:50.69 age : 名無しさん@そうだ選挙にいこう [sage] 2012/07/24(火) 20:53:04.14 age : 忍法帖【Lv=40,xxxPT】(3+0:8) 【49.4m】 電脳プリオン ◆3YKmpu7JR7Ic [sage] NGNG ∧_∧ ( ・∀・) | | ガッ と ) | | Y /ノ 人 / ) < >__Λ∩ _/し' //. V`Д´)/ ← (_フ彡 / : 名無しさん@そうだ選挙にいこう [sage] 2013/09/18(水) 09:50:32.09 て : 名無しさん@そうだ選挙にいこう [sage] 2013/09/18(水) 09:51:24.59 て : 名無しさん@そうだ選挙にいこう [sage] 2014/03/29(土) 21:57:31.93 保守 : [閉鎖病棟] [] 2015/03/23(月) 16:07:08.29 オートフィンでこんなのいくらでも入力できるだろ : 名無しさん@そうだ選挙にいこう [] 2015/03/23(月) 22:38:02.37 昔と違って、今はコマンドインタプリタの機能がかなり拡張されているから、内部コマンドだけでできる。 cmd /v /c "echo off& for /L %n in (1,1,123) do set n=0000%n& echo あいうえお!n:~-4!.jpg"> test.txt これで、1〜123の連番がついたのようなファイル名リストがtest.txtに書き込まれる。 : リンク+ ◆BotWjDdBWA [sage] 2017/09/04(月) 19:33:48.39 オートフィル機能で、連続データ作成も円滑にできるぞ。 最新鋭のエクセル2013/2016はすごいよな…。 : 名無しさん@そうだ選挙にいこう [] 2017/12/28(木) 12:46:09.08 誰でも簡単にネットで稼げる方法など 参考までに、 ⇒ 『加藤のセセエイウノノ』 というサイトで見ることができるらしいです。 グーグル検索⇒『加藤のセセエイウノノ』 1YKVW3UTK6
凡例:
レス番
100 (赤) → 2つ以上レスが付いている
100 (紫) → 1つ以上レスが付いている
名前
名無しさん (青) → sage のレス
名無しさん (緑) → age のレス
ID
ID:xxxxxxx (赤) → 発言が3つ以上のID
ID:xxxxxxx (青) → 発言が2つ以上のID
このページは2ch勢いランキング が作成したキャッシュです。元のページはこちら 。削除についてはこちら 。