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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

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

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

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

' 変数を宣言

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

VBAでエクセル操作：セルの値を変更

2011年9月12日 posted by マサ in Excel, Microsoft Office, Officeスイート, VBA, VisualBasic, ソフト, プログラム, 開発・運用

Worksheets(“対象シート名”).Range(“対象セル”).Value = “変更する値” 対象シート名：変更セルの対象シート名を入力対 […]

VBAでエクセル操作：アクティブなシート名を変更

2011年9月12日 posted by マサ in Excel, Microsoft Office, Officeスイート, VBA, VisualBasic, ソフト, プログラム, 開発・運用

ActiveSheet.Name = “変更するシート名” 変更するシート名：現在選択されているシート名の変更名スポンサードリンク

VBAでエクセル操作：シートをコピー

2011年9月12日 posted by マサ in Excel, Microsoft Office, Officeスイート, VBA, VisualBasic, ソフト, プログラム, 開発・運用

Worksheets(“コピー元シート名”).Copy After:=Worksheets(“現在存在するシート”) コピー元シート名：コピーするシート名現在存在するシー […]

今度はプログラミングの基本的な書き方に関する啓蒙と勉強

2011年8月7日 posted by マサ in .NET Framework, C/C++, JavaScript, PHP, VisualBasic, プログラム, 開発・運用

またしてもサイトオープン！今回もプログラム関連！その名も、 ★各種プログラミング言語の基本的な書き方　http://programming.w.ezic.info/ いろんな言語の表現方法をまとめてみようと思ってま […]

ADOのRecordsetで全フィールドのレコードを取得するのに・・・

2011年5月29日 posted by マサ in VisualBasic, データベース, プログラム, 開発・運用

ADOのRecordsetで、実行したSQLから抽出レコードを全フィールド分取ろうとすると、対象フィールド名を明示的に指定しないと取れない・・・つまりそれをやるには、一旦フィールド名を全て取得した後、出力する対象フ […]

HTTPステータスコードをチェックできる「ステータスコードチェッカー」

2011年5月20日 posted by マサ in .NET Framework, VB2010, VisualBasic, 開発・運用

今日、VB2010でサイトのステータスコードを一括チェックできるソフトを作ってみた！「config.txt」に書かれたURLを一括チェック～ ※ただし100URLまで。とりあえずベータ版なので、正式版は・・・出そうか […]

カテゴリー

カレンダー