matriXscan というメール関連製品のログをチェックしたことがありました。 そのときに使ったテキストファイルを分割するスクリプトを紹介します。 ログのチェックはテキストエディタで開けばできるのですが、 そのときのログは 1.3 GB あり、テキストエディタでは開けない巨大なファイルになっていました。
環境
- Windows
Kenji のすべての投稿
VBA: ファイル名に関連した文字列操作
過去に書いていた VBA のファイル名に関連した文字列操作の記事をまとめました。
ファイルパスからディレクトリ名を取得する
|
1 2 3 4 5 |
''' ファイル名から拡張子を取り除く ''' ファイル名からディレクトリ名を取得する。 Private Function GetDirectoryFromFileName(ByVal Filename$) GetDirectoryFromFileName = Left(Filename, InStrRev(Filename, "")) End Function |
ファイルパスから一番右のバックスラッシュの位置を探して、ファイルパスのそれより左の部分を抽出します。 バックスラッシュが見つからなかった場合(ディレクトリがファイルパスに含まれない場合)は、空文字列が返ります。
ファイル名から拡張子を取り除く
|
1 2 3 4 5 6 |
''' ファイル名から拡張子を取り除く Private Function RemoveExtension(ByVal Filename As String) As String Dim dotIndex& dotIndex = InStrRev(Filename, ".") RemoveExtension = Left(Filename, dotIndex - 1) End Function |
注意
InStrRev が返す文字位置は 1 から始まります。 (配列インデックスのように 0 から始まるわけではありません。)
ファイル名に “.” が含まれない場合は Left の第2引数に負の数が渡るため、例外が発生します。 これを解消するには次のようにします。
|
1 2 3 4 5 6 7 8 9 |
''' ファイル名から拡張子を取り除く Private Function RemoveExtension(ByVal Filename As String) As String Dim dotIndex& dotIndex = InStrRev(Filename, ".") If dotIndex < 1 Then dotIndex = dotIndex + 1 End If RemoveExtension = Left(Filename, dotIndex - 1) End Function |
Right を使って拡張子を取得することもできます。
ファイル名から拡張子を取得する
ここでは、あるところで使われていたコードを見てみます。
|
1 2 3 4 5 6 7 8 9 10 |
Private Function GetFileExtention(Fnm As String) As String 'ファイルの拡張子を文字列操作で求める。 'すべて小文字に変換する。 Dim st$ st = Fnm If InStr(1, st, "") >= 1 Then st = Mid$(st, InStrRev(st, "") + 1) If InStr(1, st, ".") >= 1 Then st = Mid$(st, InStrRev(st, ".") + 1) Else st = "" GetFileExtention = StrConv(st, vbLowerCase) End Function |
与えられた文字列にバックスラッシュがあればそれより後ろの文字列にして、 その後ピリオドがあればそれより後ろを抜き出しています。 ピリオドがなければ空文字列が返ります。
関係する関数
- InStrRev(string1, string2[, start[, compare]])
ある文字列 (string1) の中から指定された文字列 (string2) を最後の文字位置から検索を開始し、最初に見つかった文字位置を返す文字列処理関数です。 引数 start を省略すると -1 が使用され、最後の文字位置から検索を開始します。 compare は比較するモード(テキスト/バイナリ)を指定します。省略時はバイナリモードになります。
検索文字列が見つからなければ 0 が返ります。
- Left(ByVal str As String, ByVal Length As Integer)
与えられた文字列の左端から指定された長さの文字列を抽出します。 Length が 0 より小さいと例外が発生します。
- Mid(string, start[, length])
与えられた文字列の部分文字列を返します。 start には先頭の文字を 1 として文字位置を指定します。
- Right(ByVal str As String, ByVal Length As Integer)
与えられた文字列の右端から指定された長さの文字列を抽出します。 Length が 0 より小さいと例外が発生します。
結びの挨拶 季節編
春 3,4,5月
- 春とはいえ、まだまだ寒い日が続いております。くれぐれもお体をお大切に
- 春寒はまたひとしお、どうぞご自愛くださいませ
- 春まだ浅い今日このごろ、お体には十分お気をつけください
- 花冷えの季節、くれぐれもご自愛ください
- 雲のたたずまいも夏の近さを思わせますが、季節の変わり目ですので、どうぞお体にお気をつけて
- 日夏の折、どうぞお体を大切に
夏 6,7,8月
- うっとうしい梅雨空が続きますが、どうかごきげんよくお過ごしください
- 梅雨空もいま少しとのこと、ご自愛のほどお祈り申し上げます
- 初夏の候、皆様ますますお元気で
- 暑さ厳しき折、くれぐれもお体をお大事に
- 酷暑（猛暑）の候、お体をお大切に
- 寝冷えなどなさいませんよう、お気をつけください
- 夕風に夏の名残を惜しみつつ
秋 9,10,11月
- 残暑厳しき折、くれぐれもお体をお大事に
- そろそろ夏の疲れも出る頃、どうかご自愛ください
- 季節の変わり目ですので、お風などをめしませんように
- さわやかな秋をお過ごしください
- 秋冷えが日増しに加わります今日このごろ、お体には十分お気をつけください
- 朝夕はめっきり冷え込むようになりました。どうぞお風邪など召しませんように
- 向寒の折、どうぞご自愛ください
- 日一日と寒さに向かいます。くれぐれもお体をお大切に
- そろそろストーブの恋しい季節ですが、お健やかな日々を送られますように
冬 12,1,2月
- 寒さ厳しき折から、一層のご自愛のうえ、よいお年をお迎えください
- 迎春の準備にお忙しいことと存じますが、お体には十分お気をつけください
- 来たるべき年も、ご家族の皆様に幸多かれと祈りつつ
- 本格的な寒さはまだこれから、お風など召しませんよう十分お気をつけください
- 余寒（残寒）厳しき折、くれぐれもお体をお大切に
- 春の足音がもうそこまで聞こえています。お健やかにおすごしください
Japan media ignore Japan
Yesterday, Aug. 21, 2011, over 20,000 people gathered at Odaiba Tokyo and held demonstration against distortion by Fuji TV Network. The number of perticipants, 20,000 is estimation by one, while organizer says 6,000.
Main Protest
These days, Fuji TV doesn’t report the moment of Japanese win in several tournament, doesn’t report critical Diet issue, doesn’t report what is happening in striken area of disastrous, on the contrary criticizes innocense people, blames athletes, and structs the TV program table for only Fuji TV’s profit. Participants criticized it.
Many sites report its demonstration as against Korean boom, but its not correct. Concern between Korean boom and Fuji TV or other medias are based on profit of Fuji TV. Nowadays, you can here “Korea boom” in Japan because all of medias create it intentionally, for their profit. For example, Fuji TV has got the right to sell music composed/sung by Korean artists and Korea boom artificially created gathers money. So, Fuji TV and other media broadcast Korean drama only, on daytime. The point is not Korea boom.
How was it reported?
In Japan, it has never been reported on Television News. Only a few web sites wrote articles. Though this is the largest demonstration in decades.
PHP初心者へ 『EclipseではじめるPHP(翔泳社)』
PHP をちょっとやってみたい人におすすめです。本当に初心者向けなので、勉強熱心な人は買わないでください。
私の場合、役に立ったのはサンプル集です。というのもこの本、サンプルを解説するというスタイルで書かれているから、使いたいサンプルがあったらそこから読めばいい！ っていう読み方ができるんです。
Amazon の評価では、eclipse の機能についての解説が薄い、という酷評が書かれていますが、それは eclipse についての話。PHP については初心者向けのいい本です。
ではどんなサンプルがあるの？ ということですが……
- アンケート （フォーム、集計、セッション変数の取扱）
- グラフ (円グラフや棒グラフ、3Dのグラフも)
- アクセスカウンタ
- アクセス解析
- ファイルへのI/O
こういうサンプルは初心者にとってはとても役に立ちますね。 結構利用させてもらいました。
『EclipseではじめるPHP(翔泳社)』(NRIラーニングネットワーク株式会社 )
特に今 eclipse で PHP といえば、Zend が出している PDT が有名ですね。