2016-10-17

VBAで正規表現HITした文字列取得方法

excelVBA

$1,$2みたいな取り方ね。

Sub RegExpSample4()
    Dim regEx As Object, Matches  As Object, Match As Object

    Set RE = CreateObject("VBScript.RegExp")

    Dim targetString As String
    targetString = "kakeru@yabuki @kyogokudo  hisao@nanao "

    With RE
        .Pattern = "([^@\s]+)@([^@\s]+)"
        .IgnoreCase = False
        .Global = True
    End With

    Set Matches = RE.Execute(targetString)

    For Each Match In Matches
        MsgBox Match.submatches(0) & ":" & Match.submatches(1)
        '' 1回目 kakeru:yabuki 、2回目 hisao:nanao
    Next Match
End Sub

ネタ元:VBAの正規表現における後方参照の考え方とサンプルコード

15f9a95d14498f5476aa

2016-10-14

BSTRの文字列をAfxMessageBoxで表示する

CPP

_bstr_t経由でCStringにコピーして出力

void CVbsDlg::ShowBSTR(BSTR bstr)
{
  _bstr_t bstrStart(bstr);

  CString s;

  s.Format(_T("%s"), (LPCTSTR)bstrStart);

  AfxMessageBox(s);

}

ネタ元

https://codezine.jp/article/detail/25

2016-10-12

CSSの上書きルール

css

単純に下にあるのが優先というわけじゃないそうだ。

これは引っかかるなぁ。

ネタ元

http://www.mdn.co.jp/di/articles/517/?page=4

2016-10-12

CSSでスタイル解除

CSS

ここでは、初期値を表す「initial」を使って、ブラウザの標準値で上書きをするという手法です。

.clear_text {
	color: initial;
	font-size: initial;
	text-shadow: initial;
}

ネタ元

http://www.shurey.com/html/css_initial.html

2016-10-12

CSSで吹き出し

css

いい吹き出し

/* 04.吹き出し */
#heading04{
	position:relative;
	margin:0 15px;
	padding:10px 20px;
	font:bold 24px/1.6 Arial, Helvetica, sans-serif;
	color:#333;
	border:#333 solid 3px;
	border-radius:18px;
	background:#fff;
	box-shadow:
		-7px -5px 0 0 #e8e8e8 inset,
		2px 3px 0 0 #000;
}
#heading04:before{
	content:" ";
	position:absolute;
	top:100%;
	left:14px;
	width:0;
	height:0;
	border-width:20px;
	border-style:solid;
	border-color:transparent;
	border-top-color:#333;
}
#heading04:after{
	content:" ";
	position:absolute;
	bottom:-27px;
	left:18px;
	width:0;
	height:0;
	border-width:14px;
	border-style:solid;
	border-color:transparent;
	border-top-color:#e8e8e8;
}

ネタ元