人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

毎日、日記をPCのテキストに書いています。
09年というフォルダがあり8月というフォルダがあり
その中に18日(火)とかそういう.txtのファイルが31個入っています。
ずっとこの形式でやってきて自分的にとても使いやすいです。
しかし、日々の一個一個の.txtファイルを作るのが面倒です。
1年分とかを一気に作る方法はないでしょうか?
よろしくお願いします。


●質問者: huruta
●カテゴリ:コンピュータ
✍キーワード:8月 pc txt テキスト ファイル
○ 状態 :終了
└ 回答数 : 4/4件

▽最新の回答へ

1 ● SALINGER
●35ポイント

VBScriptでの方法です。

以下のコードをテキストファイルにコピーして、拡張子をvbsに変更してクリックして実行していみてください。

同じ場所に、2009年のテキストファイルを1年分作ります。

Option Explicit

Dim objFileSys
Dim strScriptPath
Dim strCreatePath
Dim strYear
Dim strMonth
Dim strDay
Dim strWeek
Dim i
Dim strDate

strDate = "2009/1/1"
strYear = Year(strDate)

Set objFileSys = CreateObject("Scripting.FileSystemObject")

strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")

strCreatePath = objFileSys.BuildPath(strScriptPath,strYear)
objFileSys.CreateFolder strCreatePath

For i = 1 to 12
strCreatePath = objFileSys.BuildPath(strScriptPath & "\" & strYear,i & "月")
objFileSys.CreateFolder strCreatePath
Next

For i = 0 to 364
strYear = Year(DateValue(strDate) + i)
strMonth = Month(DateValue(strDate) + i)
strDay = Day(DateValue(strDate) + i)
Select Case WeekDay(DateValue(strDate) + i)
Case 1
strWeek = "月"
Case 2
strWeek = "火"
Case 3
strWeek = "水"
Case 4
strWeek = "木"
Case 5
strWeek = "金"
Case 6
strWeek = "土"
Case 7
strWeek = "日"
End Select
strCreatePath = objFileSys.BuildPath(strScriptPath & "\" & strYear _
& "\" & strMonth & "月",strDay & "日(" & strWeek & ").txt")
objFileSys.CreateTextFile strCreatePath

Next
Set objFileSys = Nothing
◎質問者からの返答

ありがとうございます!

うまくいきました。


2 ● kimudon
●35ポイント

http://www.kisnet.or.jp/nappa/software/renamecopytool/renamecopy...

http://www.kisnet.or.jp/nappa/software/winsoft.htm

http://www.kisnet.or.jp/nappa/download/renamecopytool.lzh


RenameCopyTool は如何でしょうか?

使い方

1.任意の場所にフォルダーを作成 例.8月

2.フォルダー内に「新しいテキスト」を作成

3.RenameCopyTool を起動

4.「Drag your file here」に2で作成したファイルをドラッグ

5.「after」内を「日」に変更

6.「Optional Text」の「Number」を「1?31」に変更

7.「Done」をクリック

8.「Position」を「OptionalText+FileName」に変更

9.「Create」をクリック


8月フォルダー内に1日?31日のテキストファイルが作成されます。

◎質問者からの返答

ありがとうございます。試して見ます。


3 ● blueberry77
●10ポイント

すみません、失礼なことを言うようですが、

たぶん、初心者ではないかと・・・。

なので、記載されている方法はさっぱりわからないのではないかな、とも思ったのですが。

初心者なら・・・

まず、1?31までのファイルをつくる

中身はからにする

そのあとそのフォルダごと、右クリックでコピーして

あいているスペースではりつけ

そうすると、31個のテキストが入ったフォルダができます

これを12個つくったら月をかえる

次に、中のファイルを開き、テキストの数を28?31個に調整

次に、曜日をいれます。

(月)という文字をコピーして該当する日付の名前を一回クリックして1秒ほどおいてからもう一度クリックすると名前変更が簡単にできるので、そこで、貼り付ける。

月曜日ばかり作成し、次に火曜日というふうにやります。

もし、ソフトがあるようでしたら、名前を一括で変換してくれたりします

その場合、[.txt]->[(月).txt]とかえます。

複数ファイル選択可能なので、一か月分がまとめて変更できます。

それか、1日が月曜で始まっている月は、最初に曜日をいれてしまいそのフォルダをコピーして作成、という方法もあります。


4 ● chingryu
●10ポイント

もしかしてハズした事を投稿しようとしてるのかもしれませんが、

ご希望の事ができるシェアウェアで 紙copi というソフトがあります。

この紙copiには、紙copi Liteというフリーウェア版もありますが、シェアウェア版には

予定表機能が搭載されており、一発でご要望のようなテキストファイルを作成してくれる

ので、紙copiでもExplorerでも扱えるようになっています。

自分の紙copi利用は取り込み機能が殆どで、予定表機能は使っていませんが、試用でき

ますので、参考になればと思います。


紙copi メイン http://www.kamilabo.jp/copi/index.html

紙copi 予定表 http://www.kamilabo.jp/info/jirei_report.html

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ