VBA ユーザー定義関数 Split(文字列,区切り値,取り出す配列番号)

Quick Edit Pencil 
'カスタム関数　Split(文字列,区切り値,取り出す配列番号)
Function hSeparate(ByRef str As String, ByRef sep As String, Optional ByRef lmt As String) As Variant
    Dim v As Variant
    If lmt Then
    v = Split(str, sep)(lmt)
    Else
    v = Split(str, sep)
    End If
    hSeparate = v
End Function

このブログの人気の投稿

PowerShellのGetDetailsOf メソッドでプロパティの詳細情報のID番号と項目名を列挙します

※PowerShell初心者 ※下の方に画像が持つExif情報を列挙する方法もあります。 例えば、あるJPG画像（C:\IMG_0001.JPG）のカメラ機器のモデル名とExifの撮影日時に関する情報が欲しいとします。 1. PowerShellでは、Get-ItemPropertやGet-ChildItemを使いFileInfoプロパティ取ることができます。 $path = "C:\IMG_0001.JPG" Get-ItemProperty $path | Select-Object * | Format-List $path = "C:\IMG_0001.JPG" Get-ChildItem $path | Format-List -property * 結果: しかし、Get-ItemPropert等を使い取ることができるFileInfoプロパティには必要な情報がありません。 そこで、 GetDetailsOf を使い、ファイルプロパティの詳細情報から必要な情報を取得します。 PSPath : Microsoft.PowerShell.Core\FileSystem::C:\IMG_0001.JPG PSParentPath : Microsoft.PowerShell.Core\FileSystem::C:\ PSChildName : IMG_0001.JPG PSDrive : C PSProvider : Microsoft.PowerShell.Core\FileSystem Mode : -a---- VersionInfo : File: C:\IMG_0001.JPG InternalName: OriginalFilename: FileVersion: FileDescription: Product: ...
Read more »

ヤバい！JAPANNEXT WQHD対応 27型ワイド液晶ディスプレイ「JN-IPS2716WQHD」を注文してみた！！！

イメージ
注文翌日にはブツが届き、梱包も本体にもおおむね満足している。通電も映像も設定も問題はない。メーカー対応は未知数だが品物はクールだ。さらに詳しくは下に... 何かと怪しさ満点のJAPANNEXT IPS液晶モニターのJN-IPS2716WQHD 27型 WQHD ディスプレイをアマゾンで注文してみたレポ。２０１６・５・５ JN-IPS2716WQHD 27型 WQHD モニター 60Hz対応ワイド液晶ディスプレイ （2560×1440 ) HDMI/DVIポート搭載 アマゾンが発送するので品物が届かないという不安は無さそうなのでお遊びで注文してみたが...
Read more »

AppleScript 改行 コード 置換

改行を置換 returnキーはLF、ASCII character (10)と\nはLF、ASCII character (13)と\rはCR、controlキー + returnキーはラインブレーク   (* テスト文字列を変数にセット *) set str to "1LINE(LF)" & ( ASCII character (10)) & "2LINE(CR)" & ( ASCII character (13)) & "3LINE(LineBrake) 3LINE_2" log " ★生 str: " & str & " ★ " (* ★生 str: 1LINE(LF) 2LINE(CR) 3LINE(LineBrake) 3LINE_2 ★ *)   (*LF 置換 *) set LFstr to do shell script "echo " & quoted form of str & " | perl -pe 's/\\n//g'" log " ★ LF 置換 str: " & LFstr & " ★ " (* ★ LF 置換 str: 1LINE(LF)2LINE(CR) 3LINE(LineBrake) 3LINE_2 ★ *)   (*CR 置換 *) set CRstr to do shell script "echo " & quoted form of str & " | perl -pe 's/\\r//g'" log " ★ CR 置換 str: " & CRstr & " ★ " (* ★ CR 置換 str: 1LINE(LF) 2LINE(CR)3LINE(LineBrake) 3LINE_2 ★ *)   (* ラインブレーク置換 *) set LAINBLAKEstr ...
Read more »

Blender 辺の交差点に頂点を追加するアドオン

イメージ
エッジ（辺）の交点にVertex（頂点）を作るアドオン （キーワード: blender エッジ交差 頂点追加） tinyCAD Edge Tools Extensions:2.6/Py/Scripts/Modeling/mesh tinyCAD - BlenderWiki 辺を選択してWキーでチョイスする VTX V : extending two edges towards their calculated intersection point.   T : extending the path of one edge towards another edge. X : two edges intersect, their intersection gets a weld vertex. You now have 4 edges and 5 vertices.   EXM   XALL   V2X Vertex to Intersection. Select 2 edges. Invoke V2X. Places a new vertex at their intersection.   BIX Given two selected edges, this script creates the bisector of these edges. The edges are first checked for coplanarity.
Read more »

ファイルの存在確認をするには [PHP]

file_existsはエライ！ includeやrequireでデータベースに関連する外部ファイルを 読み込んでいるのですが、たま〜にファイルの作成が抜けていたり、 データベースから削除したIDを辿られてエラーが出て困っていました。 なんとかしたいとおもいつつ、 Google 検索: php 存在確認 見つけました 備忘録とかもろもろ ファイルが存在するかどうかを確認する関数はある。 でもって使い方 PHP: file_exists - Manual PHP マニュアル
Read more »

NHKマイあさラジオ　インタビュー 明日の人

NHKマイあさラジオ - NHK インタビュー明日の人 を聴く - NHKマイあさラジオ - NHK 「無人の古本屋を広めたい」（再） BOOK ROADオーナー 中西 功 3月30日（土）「無人の古本屋を広めたい」（再） 2019年3月30日(土)放送 「無人駅の駅前開発を！」（再） クラシックレールウェイホテル代表取締役 仲島 秀豊 3月23日（土）「無人駅の駅前開発を！」（再） 2019年3月23日(土)放送 「大人の皆さんに伝えたいこと」 大阪府立四條畷高等学校生徒会 スマホ対策チーム 林 茉里奈 3月16日（土）「大人の皆さんに伝えたいこと」 2019年3月16日(土)放送 「東日本大震災から8年、“在宅被災者”問題を掘り起こし」 一般社団法人「チーム王冠」代表 伊藤 健哉 3月9日（土）「東日本大震災から8年、“在宅被災者”問題を掘り起こし」 2019年3月9日(土)放送
Read more »

https://gemini.google.com/search?q=%5B%5BOralHistory%5D%5D

＞light-monochrome＜ ＞light＜ ＞dark＜ javascript:(function(searchstr) { var input = document.querySelector('input[data-test-id="search-input"]'); if (input) { input.value = ""; input.value = searchstr; input.dispatchEvent(new Event('input')); input.dispatchEvent(new Event('change')); } else { alert('入力フィールドが見つかりませんでした。'); } })("代入するテキスト"); javascript:(function(searchstr) { var input = document.querySelector('input[data-test-id="search-input"]'); if (input) { input.value = ""; // 既存の値をクリア input.value = searchstr; // 新しいテキストを代入 input.dispatchEvent(new Event('input')); // 入力イベントを発火させる input.dispatchEvent(new Event('change')); // 変更イベントを発火させる } else { alert('入力フィールドが見つかりませんでした。'); } })("代入するテキスト"); javascript:(function() { var inp...
Read more »

リビングPCを購入 / SONY BRAVIA x ASUS EeeBox / 設置編

イメージ
  リビングPC:　EeeBox PC EB1501P http://www.asus.co.jp/product.aspx?P_ID=TjrpGyB7Ohm367YS   ソニーブラビア:　KDL-40EX710 http://www.sony.jp/bravia/products/KDL-40EX710/   EeeBox PC EB1501Pは2010年の夏モデルで、Win7、リモコン、HDMI、マルチDVD、ワイヤレスキーボード&マウスが付いていたので思い切って購入した。   ブラビアにはHDMIが付いているしPCの接続を想定していると説明があったので、EeeBox PC EB1501Pと同時に購入したのはHDMIケーブル（ ELECOM HDMI1.3aケーブル 1.5m (PS3対応) DH-HD13A15BK ）だけでした。   EeeBox PC EB1501Pはbluetoothが標準装備ではないので必要があれば、 bluetooth usbアダプタ を同時に購入しておくと良いかもしれない。   リビングPC（EeeBox PC EB1501P）を箱から出して電源を接続、薄型テレビ（SONY BRAVIA KDL-40EX710）とHDMIで接続して、テレビのスイッチをオン、入力切替ボタンで接続したHDMIを選択、PCのスイッチをオン。   ブラビア、EeeBox双方とも解像度の設定調整は必要なく、パソコンのセットアップ画面が自動で流れます。 パソコンのセットアップが一通り済むと、ウインドウズのセットアップ画面が出ます。 これが出てから、EeeBox付属のワイヤレスキーボードとワイヤレスマウス用のUSBアダプタをEeeBox背面のUSBポートに差し込み、赤いボタンを押して、キーボードとマウスを認識させます。   WiFi接続が求められますので、WiFi接続の人は所定のパスワードを入力します。 Macアドレスを確認する方法 http://www.akakagemaru.info/port/windows7mac.html   ユーザーの設定をしてログイン。何事もなく設定完了。   早速...
Read more »