VisualBasic | 開発日々の走り書き～

カテゴリー: VisualBasic

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

スポンサードリンク

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
'-------------------------------------------------