Kenji のすべての投稿

CrypstalReports で日付の数値を年月日表記にする方法です。日付のデータを年月日の8桁の数値として保存している場合に使えるコードです。

まず、式フィールドを作成します。その中に、次のような式を書き込みます。式の編集をするには右クリックから式の編集を選択します。

Local NumberVar Y := {DBColumn} \ 10000;
Local NumberVar M := ({DBColumn} MOD 10000) \ 100;
Local NumberVar D := {DBColumn} MOD 100;
CDate (Y, M, D);

Local NumberVar Y := {DBColumn} \ 10000;

Local NumberVar M := ({DBColumn} MOD 10000) \ 100;

Local NumberVar D := {DBColumn} MOD 100;

CDate (Y, M, D);

これで、数値を日付にすることができました。DBColumn のところには、データベースのフィールド名を入れてください。

しかし、これではまだ 1986/01/06 という形で表示されます。この日付のフォーマットを変えるには、この式フィールドのプロパティを設定します。

DateFirstSeparator, DateSecondSeparator, DateSuffixSeparator それぞれに、”年”、”月”、”日” を入力すると、 1986年01月06日 というように表示されます。

コード

テキストファイルを分割するスクリプト

2011年11月19日 Kenji

matriXscan というメール関連製品のログをチェックしたことがありました。そのときに使ったテキストファイルを分割するスクリプトを紹介します。ログのチェックはテキストエディタで開けばできるのですが、そのときのログは 1.3 GB あり、テキストエディタでは開けない巨大なファイルになっていました。

環境

Windows

続きを読む →

コード

VBA: ファイル名に関連した文字列操作

2011年09月08日 Kenji

過去に書いていた VBA のファイル名に関連した文字列操作の記事をまとめました。

ファイルパスからディレクトリ名を取得する

''' ファイル名から拡張子を取り除く
''' ファイル名からディレクトリ名を取得する。
Private Function GetDirectoryFromFileName(ByVal Filename$)
GetDirectoryFromFileName = Left(Filename, InStrRev(Filename, ""))
End Function

''' ファイル名から拡張子を取り除く

''' ファイル名からディレクトリ名を取得する。

Private Function GetDirectoryFromFileName(ByVal Filename$)

GetDirectoryFromFileName = Left(Filename, InStrRev(Filename, ""))

End Function

ファイルパスから一番右のバックスラッシュの位置を探して、ファイルパスのそれより左の部分を抽出します。バックスラッシュが見つからなかった場合(ディレクトリがファイルパスに含まれない場合)は、空文字列が返ります。

ファイル名から拡張子を取り除く

''' ファイル名から拡張子を取り除く
Private Function RemoveExtension(ByVal Filename As String) As String
Dim dotIndex&
dotIndex = InStrRev(Filename, ".")
RemoveExtension = Left(Filename, dotIndex - 1)
End Function

''' ファイル名から拡張子を取り除く

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引数に負の数が渡るため、例外が発生します。これを解消するには次のようにします。

''' ファイル名から拡張子を取り除く
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

''' ファイル名から拡張子を取り除く

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 を使って拡張子を取得することもできます。

ファイル名から拡張子を取得する

ここでは、あるところで使われていたコードを見てみます。

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

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 より小さいと例外が発生します。

日記・回想, 社会

結びの挨拶季節編

2011年08月27日 Kenji

春 3,4,5月

春とはいえ、まだまだ寒い日が続いております。くれぐれもお体をお大切に
春寒はまたひとしお、どうぞご自愛くださいませ
春まだ浅い今日このごろ、お体には十分お気をつけください
花冷えの季節、くれぐれもご自愛ください
雲のたたずまいも夏の近さを思わせますが、季節の変わり目ですので、どうぞお体にお気をつけて
日夏の折、どうぞお体を大切に

夏 6,7,8月

うっとうしい梅雨空が続きますが、どうかごきげんよくお過ごしください
梅雨空もいま少しとのこと、ご自愛のほどお祈り申し上げます
初夏の候、皆様ますますお元気で
暑さ厳しき折、くれぐれもお体をお大事に
酷暑（猛暑）の候、お体をお大切に
寝冷えなどなさいませんよう、お気をつけください
夕風に夏の名残を惜しみつつ

秋 9,10,11月

残暑厳しき折、くれぐれもお体をお大事に
そろそろ夏の疲れも出る頃、どうかご自愛ください
季節の変わり目ですので、お風などをめしませんように
さわやかな秋をお過ごしください
秋冷えが日増しに加わります今日このごろ、お体には十分お気をつけください
朝夕はめっきり冷え込むようになりました。どうぞお風邪など召しませんように
向寒の折、どうぞご自愛ください
日一日と寒さに向かいます。くれぐれもお体をお大切に
そろそろストーブの恋しい季節ですが、お健やかな日々を送られますように

冬 12,1,2月

寒さ厳しき折から、一層のご自愛のうえ、よいお年をお迎えください
迎春の準備にお忙しいことと存じますが、お体には十分お気をつけください
来たるべき年も、ご家族の皆様に幸多かれと祈りつつ
本格的な寒さはまだこれから、お風など召しませんよう十分お気をつけください
余寒（残寒）厳しき折、くれぐれもお体をお大切に
春の足音がもうそこまで聞こえています。お健やかにおすごしください

日記・回想

Japan media ignore Japan

2011年08月22日 Kenji

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.

The Life

Kenji のすべての投稿

CrystalReports で数値を日付にする方法

テキストファイルを分割するスクリプト

環境

VBA: ファイル名に関連した文字列操作

ファイルパスからディレクトリ名を取得する

ファイル名から拡張子を取り除く

注意

ファイル名から拡張子を取得する

関係する関数

結びの挨拶季節編

春 3,4,5月

夏 6,7,8月

秋 9,10,11月

冬 12,1,2月

Japan media ignore Japan

Main Protest

How was it reported?

A Life Summary of an Gypsy