人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VB 2005でプログラミングを行っています。1つおしえてください。

文字列リストを読み込んでEXCELのピボットテーブルのように変数に記憶したのですがなにか情報はありますでしょうか?


SOURCE
AAAAAAAA
BBBBBBBB
CCCCCCCC
DDDDDDDD
AAAAAAAA
EEEEEEEE

結果(変数)
S() String , i() integer
AAAAAAAA , 2
BBBBBBBB , 1
CCCCCCCC , 1
DDDDDDDD , 1
EEEEEEEE , 1

このような感じです。よろしくお願いします。

●質問者: mai_mai_mail
●カテゴリ:コンピュータ インターネット
✍キーワード:Excel String VB プログラミング ボット
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● きゃづみぃ
●0ポイント

>文字列リストを読み込んでEXCELのピボットテーブルのように変数に

記憶したのですが

なにか情報はありますでしょうか?


何の情報を求めてるのでしょうか?

というか 記憶したいということですか?

まず、文字列リストを 読み込むとありますが、何から読み込むのか不明です。

それが ないと 読み込むところは 作れません。

あと、指定された変数は配列なので、配列の変数を宣言すればいいだけです。

つまり、配列を宣言して読み込む部分を作ればその変数に入ります。

あと 「EXCELのピボットテーブルのように」とありますが、

それは、変数の使い方では ないのでしょうか?


http://wiki.livedoor.jp/cafeboy1/d/VB2005%CA%D1%BF%F4%A4%C8%C4%E...


2 ● haruo-31
●70ポイント ベストアンサー

HashTableを使えばいかがでしょう。

http://msdn2.microsoft.com/ja-jp/library/system.collections.hash...(VS.80).aspx

Dim val As String
Dim oHash As New Hashtable

val=InputBox("prompt")

While val<>""
if oHash.ContainsKey(val) Then
oHash.Item(val)=oHash.Item(val)+1
Else
oHash.Add val, 1
End IF
val=InputBox("prompt")
Wend

For each a As DictionaryEntry in oHash
WScript.Echo a.Key & ":" & a.Value
Next
◎質問者からの返答

ありがとうございまいました。完璧にできました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ