テキストマイニング的なことを始めています。 で、形態素分析にかける前に文単位で分割しといた方が 便利そうなので、作ってみた。 Public Function 文分割(str As String) As String() Dim nStart As Long Dim Flg As Boolean Dim i As Long Dim j As Long …

Option Compare Database 'テキスト中、接頭文字固定のキーコードを抽出。 '複数埋め込まれている場合はカンマ区切りで返す 'Usage 'ret = GetKeyCode(検索対象となるテキスト,キーコード特定用の接頭文字,接頭文字以降の連番数) Public Function GetKeyCode…

たぶん出典元はここ。 http://www.h3.dion.ne.jp/~sakatsu/holiday_logic.htm#Access「M_休日」テーブル内の「休日」フィールド(日付型)に、 土日以外の休日が登録されている前提です。 元ネタの方が営業日の正負分岐の書き方がいい感じ。 土日以外で休日指…

http://blog.livedoor.jp/yorinaga/archives/51557918.html がネットワークドライブに対応してなかったのでカスタマイズ。 Public Function MakeFolder(strPath As String) As Boolean On Error GoTo ErrHandler On Error GoTo 0 Dim pos1 As Integer Dim po…