2016年4月9日 / 最終更新日時 : 2016年4月9日マサ VBA

VBAによる正規表現置換関数

rem ★正規表現による文字列置換関数(VBA)
rem 引数
rem   第1 ･･･ source ･･･ 置換対象文字列
rem   第2 ･･･ pattern ･･･ 検索文字(正規表現)
rem   第3 ･･･ dest ･･･ 置換文字

Public Function regexp_replace(source, pattern, dest)
On Error GoTo err_proc
rem     On Error Resume Next

    Dim Reg As Object
    Set Reg = CreateObject("VBScript.RegExp")
    Reg.pattern = pattern
    Reg.IgnoreCase = False
    Reg.Global = True
    regexp_replace = Reg.Replace(source, dest)
    Exit Function

err_proc:
    regexp_replace = "#Error"
End Function

1

rem ★正規表現による文字列置換関数(VBA)

rem 引数

rem 第1 ･･･ source ･･･置換対象文字列

rem 第2 ･･･ pattern ･･･検索文字(正規表現)

rem 第3 ･･･ dest ･･･置換文字

Public Function regexp_replace(source, pattern, dest)

On Error GoTo err_proc

rem On Error Resume Next

Dim Reg As Object

Set Reg = CreateObject("VBScript.RegExp")

Reg.pattern = pattern

Reg.IgnoreCase = False

Reg.Global = True

regexp_replace = Reg.Replace(source, dest)

Exit Function

err_proc:

regexp_replace = "#Error"

End Function

スポンサードリンク関連記事【yum】Error: Multilib version problems found.「ACCESS」のクエリが破損していま […]

2016年2月22日 / 最終更新日時 : 2016年2月22日マサ PHP

PHP5.6からPHP7へ移行！！

PHP5.6からPHP7へ移行してみた。 [参照] PHP: PHP 5.6.x から PHP 7.0.x への移行 – Manual [参照] PHP7.0がでたので、いまどきの「普通」のPHPの話。 &# […]

2015年5月13日 / 最終更新日時 : 2015年5月13日マサ OS

Windowsで対象フォルダを一気に削除

コマンドプロンプトを立ち上げて、「rmdir /s /q del_directory_name」 ※del_directory_name ･･･削除するディレクトリの名前 [参照] コマンドプロンプト rd / rm […]

2014年8月7日 / 最終更新日時 : 2014年8月7日マサ VBS

vbsで本日の日付のフォルダを生成する

VBSによる日付のフォルダを生成するスクリプト。

'=================================================
' 本日の日付のフォルダ生成
'=================================================

' 変数を宣言
Dim str_path

' ファイルストリーム・オブジェクト生成
Set objFS = CreateObject("Scripting.FileSystemObject")

' フォルダを生成する
str_path = objFS.CreateFolder(nowstring())


'-------------------------------------------------
'日時をyyMMdd形式にする
'-------------------------------------------------
Function nowstring()
	Dim nows
	nows = Right("0000" & Year(Now()) , 2 ) & Right("0" & Month(Now()) , 2) & Right("0" & Day(Now()) , 2)
	nowstring = nows
End Function
'-------------------------------------------------

'=================================================

' 本日の日付のフォルダ生成

'=================================================

' 変数を宣言

Dim str_path

' ファイルストリーム・オブジェクト生成

Set objFS = CreateObject("Scripting.FileSystemObject")

' フォルダを生成する

str_path = objFS.CreateFolder(nowstring())

'-------------------------------------------------

'日時をyyMMdd形式にする

'-------------------------------------------------

Function nowstring()

Dim nows

nows = Right("0000" & Year(Now()) , 2 ) & Right("0" & Month(Now()) , 2) & Right("0" & Day(Now()) , 2)

nowstring = nows

End Function

'-------------------------------------------------

[参照] Mako » VBScript 現在日付をyyyyMMddhhmmss形式にする ★参照リンク […]

2014年7月27日 / 最終更新日時 : 2014年7月27日マサ Java

Javaによるバーコード出力不可現象

とあるJavaで作られたシステムで、バーコードを出力するシステムがあるのだが、突然バーコードが出力されなくなった。原因は、Javaのバーコード出力するライブラリ(itext)で、バージョン依存によるものと思われる [ […]

2014年7月16日 / 最終更新日時 : 2014年7月16日マサ bash

bashによるサーバー負荷に応じた処理実行

# load averageを数値として取得する
#   ※例. 0.26 -> 26  /  1.37 -> 137
declare -i getLoadAverage=`awk '{sub(/0\.|0\.0|\./,""); print $1}' /proc/loadavg`

if [ $getLoadAverage -gt 500 ] ;then
  #load averageが5.00を超えた場合の処理を書く
fi

# load averageを数値として取得する

# ※例. 0.26 -> 26 / 1.37 -> 137

declare -i getLoadAverage=`awk '{sub(/0\.|0\.0|\./,""); print $1}' /proc/loadavg`

if [ $getLoadAverage -gt 500 ] ;then

#load averageが5.00を超えた場合の処理を書く

fi

・awkを使って、load averageの小数点を除いた整数値を取得する・load averageが指定数値以上、すなわちサーバー負荷が高い場合、何ら […]

2014年3月25日 / 最終更新日時 : 2014年3月25日マサ PostgreSQL

「PostgreSQL」によるテーブルのコピー(複写)SQL

-- ★テーブルのコピー(新規テーブル作成)
--   public.test_table_copy ･･･ 新規作成されるテーブル(コピー)
--   public.test_table ･･･ コピー元のテーブル
CREATE TABLE public.test_table_copy AS (
  SELECT * FROM public.test_table
);

-- ★テーブルのコピー(新規テーブル作成)

-- public.test_table_copy ･･･新規作成されるテーブル(コピー)

-- public.test_table ･･･コピー元のテーブル

CREATE TABLE public.test_table_copy AS (

SELECT * FROM public.test_table

);