プログラム | 開発日々の走り書き～

カテゴリー: プログラム

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

2016年4月9日 posted by マサ in VBA, VisualBasic, プログラム, 開発・運用

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

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

スポンサードリンク

PHP5.6からPHP7へ移行！！

2016年2月22日 posted by マサ in PHP, プログラム

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

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

2015年5月13日 posted by マサ in OS, Windows, ソフト, バッチファイル, プログラム

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

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

2014年8月7日 posted by マサ in VBS, VisualBasic, プログラム

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形式にする ★参照リンク […]

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

2014年7月27日 posted by マサ in Java, プログラム

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

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

2014年7月16日 posted by マサ in bash, CentOS, Linux, OS, サーバー, シェルスクリプト, ソフト, プログラム

# 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を超えた場合の処理を書く

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

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

2014年3月25日 posted by マサ in 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

);

スポンサードリンク

Smartyにおけるテンプレート側での多次元配列の書き方

2014年2月17日 posted by マサ in PHP, Smarty, ウェブ, プログラム, 開発・運用

下記の2通りは同じ結果になる。

{$val['one']['two']}
{$val.one.two}

1 2	{$val['one']['two']} {$val.one.two}

スポンサードリンク

EclipseのHTMLエディタによる自動タグ入力を解除

2014年2月10日 posted by マサ in HTML, プログラム, 開発・運用

EclipseでHTMLを入力していると、タグの自動補完がとてもウザい・・・これは「ウインドウ」－＞「設定」から変更することが可能！スポンサードリンク

「WordPress」で「sitemap.xml」がメモリオーバーで生成されてなかった

2014年2月1日 posted by マサ in Apache, CMS, PHP, WordPress, XML, アプリケーション, ウェブアプリ, ウェブサーバー, ソフト, プログラム, 開発・運用

「WordPress」の「sitemap.xml」(サイトマップ)をプラグイン「XML Sitemap Generator for WordPress 4.0」で生成しているのだが、これがうまく生成できてない事に気がつい […]

1 2 3 … 12 »

月	火	水	木	金	土	日
« 11月
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31