FC2ブログ
ブログパーツ アクセスランキング
インフラ情報まとめ
アクセスランキング
サーバー、クライアント関係の構築、運用等のまとめ書きです。旧名 ほぷぅ(。・ω・)ノPCまとめ

配列の操作




にほんブログ村 IT技術ブログ IT技術メモへ

配列 配列を使いたい Array

------------------------------------------------

'Array[(1[,2[,・・・・[,3]]])]
'引数わ指定しなかった場合長さ0の配列が作成される


members = Array("いぬ","さる","きじ")
For Each member In members
str = str & member & vbCR '配列を作成し,すべての要素を表示
Next
MsgBox("配列の変数を指定" & vbCR & str)

------------------------------------------------

実行結果


ほぷぅ(。・ω・)-vbs-Array



配列 配列を初期化した後、要素数を表示 Erase

------------------------------------------------

'Erase
'配列が静的配列の場合は初期化、動的の場合は配列に割り当てたメモリを解放


Dim animal(3)
animal(1) = "いぬ"
animal(2) = "さる"
animal(3) = "きじ"
Erase animal
MsgBox("要素数" & UBound(animal) & vbCR &_
"animal(1) : " & animal(1))

------------------------------------------------

実行結果


ほぷぅ(。・ω・)-vbs-Erase


配列 配列を結合したい Join

------------------------------------------------

'Join(1[,2]))
'1 配列名
'2 連結文字(省略可)


myStr = "ロシアンブルー,アメリカンショートヘアー,メインクーン"
str = "元の文字列 => " & myStr & vbCR
members = split(myStr,",")
For i = LBound(members) To Ubound(members)
str = str & "members(" & i & ") => " & members(i) & vbCR
Next
MsgBox(str & "&で結合 => " & Join(members,"&"))

------------------------------------------------

実行結果


ほぷぅ(。・ω・)-vbs-Join

配列 配列から条件に一致する文字列を抜き出して配列を作成 Filter

------------------------------------------------

'Filter(1,2[,3[,4]])
'1 検索先の一次配列
'2 検索する文字列
'3 文字列を含むかどうか(省略可)
'4 比較モード(省略可)


animal = Array("ロシアンブルー","アメリカンショートヘアー","アメリカンカール","スフィンクス","エジプシャンマウ")
str = "アメリカンのみ" & vbCR
cats1 = Filter(animal,"アメリカン")

For i = LBound(cats1) To Ubound(cats1)
str = str & "cats1(" & i & ") => " & cats1(i) & vbCR
Next

str = str & vbCR & "アメリカン以外" &vbCR
cats2 = Filter(animal,"アメリカン",False)

for i = LBound(cats2) To Ubound(cats2)
str = str & "cats2(" & i & ") => " & cats2(i) & vbCR
Next
MsgBox(str)

------------------------------------------------

実行結果



ほぷぅ(。・ω・)-vbs-Filter

配列 文字列を分割して配列を作成 Split

------------------------------------------------

'Split(1[,2[,3[,4]]]))
'1 文字列
'2 区切り文字(省略可)
'3 返す配列の要素(省略可)
'4 比較モード(省略可)


myString = "アメリカンワイヤーヘア,アメリカンショートヘア,アメリカンカール"
str = "元の文字列 => " & myString & vbCR
members1 = split(myString,",")

For i = LBound(members1) To Ubound(members1)
str = str & "members1(" & i & ") => " & members1(i) & vbCR
Next

str = str & vbCR
members2 = split(myString,",",1) '-1だとすべての文字列を含む配列を返す

for i = LBound(members2) To Ubound(members2)
str = str & "members2(" & i & ") => " & members2(i) & vbCR '1にしたので一つになった 2にすると後ろ2つがまとめて表示
Next

MsgBox(str)

------------------------------------------------

実行結果



ほぷぅ(。・ω・)-vbs-Split

配列 使用可能なインデックス番号の最小値と最大値を調べたい LBound Ubound

------------------------------------------------

'LBound(1[,2])
'1 配列名
'2 次元(省略可)


members = Array("アメリカンワイヤーヘア","アメリカンショートヘア","アメリカンカール")
str = "LBound(members => " & Lbound(members) & vbCR &_
"UBound(members => " & Ubound(members) & vbCR

For i = LBound(members) To Ubound(members)
str = str & "members(" & i & ") => " & members(i) & vbCR
Next
MsgBox(str)

------------------------------------------------

実行結果


ほぷぅ(。・ω・)-vbs-LBoundUbound

関連記事







テーマ:プログラミング - ジャンル:コンピュータ


  1. 2010/10/18(月) 22:32:50|
  2. VBScript
  3. | トラックバック:0

トラックバック

トラックバック URL
http://pcmemorin.blog.fc2.com/tb.php/25-f3ef4d5c
この記事にトラックバックする(FC2ブログユーザー)


サイトマップ・お奨め記事

CentOS7 まとめ
Ubuntu14 まとめ
Ubuntu12用無線アダプタ紹介
Ubuntu12 まとめ
Server 2008R2 まとめ
SCCM2012R2 まとめ
Windows10 アップグレード
Windows7 まとめ
Windows7 SSD まとめ
Windows8 まとめ
EaseUS Todo Backup Server
Linux Destbision まとめ
Linuxコマンド関連Index
Zorin8.1まとめ
Fedora17まとめ
Fedora15まとめ
VB Script まとめ
USB3.0で快適バックアップ
リンク集・メール


スポンサードリンク


リンク


サイト登録Paseon

・はじめての自宅サーバ構築 - Fedora/CentOS -

・Fedoraで自宅サーバー構築

・CentOSで自宅サーバー構築

・ぼくんちのTV別館

・ネットセキュリティブログ

・まとめ横丁

・オールフリーソフト


相互リンク更新情報
BookMark
GPUベンチマーク(ドスパラ)
VMware OS仮想化
EaseUS
Fedora releases ISO
【Http外部からの表示確認】
ポートスキャンチェック
IPA情報処理推進機構
無料DNS ieServer
無料DNS-MyDNS
yahooログイン履歴チェック
メール不正中継拒否テスト
Fedora Project
allbootdisks
Edy Viewer
ESXi動作実績ハードウェア@Wiki
IEEE Standards

---ライセンス認証解除系リンク---
ShadowProtect Personal
.NET製品
弥生



--所有サーバーWiki--
NEC Express5800/S70
HP ProLiant ML110G5
PRIMERGY TX100 S3

このブログをリンクに追加する

カテゴリ

Linux (45)
Linux-CentOS7 (70)
Linux-Ubuntu14.04 (87)
Linux-Ubuntu12.04 (76)
Linux-Zorin8.1 (36)
Linux-Fedoras.soft (19)
Linux-Fedora18 (11)
Linux-Fedora17 (39)
Linux-Fedora15 (60)
Linux-Fedora11 (36)
Linux-Fedora16 (1)
Linux-Security (3)
Linux/Unix シェル (38)
Linux Distribution (53)
仮想OS (31)
Windows Server 2008 (254)
Windows Server 2012 (30)
Windows Server コマンド (39)
Windows Server アプリ (14)
Windows (40)
Windows 10 (3)
Windows 7 (59)
Windows 8 (257)
Windowsアプリ (23)
Windows 8 アプリ (29)
Windows レジストリ (6)
Windows BAT (17)
ネットワーク (5)
MySQL (1)
ニュース (8)
ハードウェア (11)
Windows VBScript-Basp21 (1)
VBScript (29)
Windows Vista (1)
Windows グループポリシー (3)
Security (6)
未分類 (4)
クールなアイテムまとめ (5)
Game (1)
PowerShell (4)


Linux ブログランキングへ

カテゴリ2

SCCM Backup 遠隔操作 VirtualBox FeliCaポート/パソリ ESXi 

カウンター

RSSリンクの表示

アクセスランキング

[ジャンルランキング]
コンピュータ
144位
アクセスランキングを見る>>

[サブジャンルランキング]
その他
31位
アクセスランキングを見る>>



フィードメーター - ほぷぅ(。・ω・) ノ PCまとめ Linux,Win,自宅サ..


Windows ブログランキングへ

にほんブログ村 IT技術ブログ IT技術メモへ
にほんブログ村

全記事表示リンク

全ての記事を表示する

検索フォーム

RSSリンクの表示

 



Linux ブログランキングへ





<%plugin_third_title>

<%plugin_third_description>

<%plugin_third_content>

<%plugin_third_description2>