Microsoft.VisualBasic.FileIOでCSVの読み込み

使ったCSVファイル

--- foo.csv ---

"aaa,aaa","aaa","aaa"

"bbb","bbb,bbb","bbb"

"ccc","ccccccc","c,c"

--- ---

Booで読んでみた

--- foo.boo ---

1. import System  
2. import Microsoft.VisualBasic.FileIO  
3.   
4. p = TextFieldParser("foo.csv")  
5. p.TextFieldType = FieldType.Delimited  
6. p.SetDelimiters(",")  
7.   
8. while (not p.EndOfData):  
9.   r = p.ReadFields()  
10.   
11.   for i in r:  
12.     print i  

---　結果 ---

aaa,aaa

aaa

aaa

bbb

bbb,bbb

bbb

ccc

ccccccc

c,c

--- ---

楽チン過ぎてちょっとカルチャーショック!!

VBA ２次元配列

VBAで２次元配列の作り方

１．セルの値を丸ごと配列に入れる。

Dim values As Variant

values = Range("A1:B10")

アクセス方法（A4の値）

values(1, 4)

行の長さを求めるには

Ubound(values)

列の長さは、（ここでは２列目）

Ubound(values, 2)

２．セルを使わずに初期化して作る。

Dim values As Variant

values = Array(Array(11, 12, 13) , Array(21, 22, 23))

アクセス方法（2行目の1列目の値　２１）

values(1)(0)

行の長さ

Ubound(values)

列の長さ（2列目）

Ubound(values(1))

自PCのIPアドレスを取得する

複数ある場合は、foreachでまわして探す。

$localHostName = [System.Net.Dns]::GetHostName()

$localIP = [System.Net.Dns]::GetHostByName( $localHostName )

$localIP.AddressList[0].ToString()

ディスクの空き容量

PowerShell

空き容量の％

$d = New-Object System.IO.DriveInfo("C")

$d.TotalFreeSpace / ( $d.TotalSize / 100)

ディスクサイズ（GB)

$d.TotalSize / 1GB

リムーバブルディスクの取り出し

よく忘れるのでメモ。

PowerShell

$Shell.Application.NameSpace(17).ParseName('D:\').InvokeVerb("取り出し(&J)")

VBScript

CreateObject("Shell.Application").NameSpace("D:\").Items.Item.InvokeVerb "取り出し(&J)"