構造体の演習の締めに付属リストを数えるプログラムを考えました。
D:\Temp\SecondaryMaterialList.csv
品番001, 付属1_A, 付属2_A, 付属3_A
品番002, 付属1_A, 付属2_B, 付属3_A
品番003, 付属1_B, 付属2_A, 付属3_A
品番004, 付属1_B, 付属2_A, 付属3_B
品番005, 付属1_A, 付属2_B, 付属3_B
struct SecondaryMaterial {
char *aname;
int count;
} SMTab[] = {
"付属1_A", 0,
"付属1_B", 0,
"付属2_A", 0,
"付属2_B", 0,
"付属3_A", 0,
"付属3_B", 0
};
これ位は、VB.Net なら軽いもんだろうと思って色々と構造体の配列の初期化にアタック。
しかし、ことごとく失敗。
多分、VB.Net なら軽いもんだが私にはそうではないということ。
色々と調べましたが、配列ではない構造体の初期化は見つかりました。
が、配列の初期化のアイデアというか確たる手法は見つかりませんでした。
「それは、こういう方向性でアプローチしたらよい!」
そのようなアドバイスが頂けたらありがたいと思って質問します。
宜しくお願いします。
No.2
- 回答日時:
なんどもすみません。
>配列初期化子は配列にのみ有効
ということであれば、
Dim SMTab = ...
を
Dim SMTab() = ...
に変更してもダメでしょうか?
#検証環境が欲しい。。。
エラーの原因がわかりました。
厳密なオプションを宣言していたことが原因。
多分、クラスにすれば厳密でもOKかと思っています。
Option Explicit On
'Option Strict On <----------- これでエラーは回避できました!
Option Compare Binary
Option Infer Off
' ==========================
' 各付属の使用頻度を数える
' ==========================
Module theTEST
Private Const SMMAX As Integer = 5
Private Structure SecondaryMaterial
Dim aName As String
Dim iCount As Integer
End Structure
Sub Main()
Dim I As Integer
Dim iNow As Integer
Dim iNext As Integer
Dim aLine As String
Dim SMTab() = { _
New SecondaryMaterial With {.aName = "付属1_A", .icount = 0}, _
New SecondaryMaterial With {.aName = "付属1_B", .icount = 0}, _
New SecondaryMaterial With {.aName = "付属2_A", .icount = 0}, _
New SecondaryMaterial With {.aName = "付属2_B", .icount = 0}, _
New SecondaryMaterial With {.aName = "付属3_A", .icount = 0}, _
New SecondaryMaterial With {.aName = "付属3_B", .icount = 0} _
}
Do
iNow = iNext
aLine = ReadLine("D:\Temp\MaterialList.csv", iNow, iNext)
If aLine = "" Then Continue Do
For I = 0 To SMMAX
SMTab(I).iCount += If(aLine.Contains(SMTab(I).aName), 1, 0)
Next
Loop Until iNext = -1
For I = 0 To SMMAX
Debug.Print(Printf(SMTab(I).aName & " = 000", SMTab(I).iCount.ToString, 右詰め, "0"c))
Next I
End Sub
End Module
さて、厳密である限り不能であれば、それはそれで構いません。
「関数での初期化を考えなさい!」みたいなMSDNの記述が最有力であることが確定するならそれで構いません。
60日余の初学者ですから余りにも無知。
そういう意味で質問に至ったわけです。
ありがとうございました。
No.1
- 回答日時:
参考URLの記事を見つけたのですが、VB9.0(VB2008)から使用できるようです。
下記の様なコードで出来ないでしょうか?VB2008の検証環境がないので
あてずっぽうではありますが。。
----------------------------------------
Dim sm = { SMTab With { .aname = "付属1_A", .count = 0 },
・
・
・
SMTab With { .aname = "付属3_B", .count = 0 }}
----------------------------------------
#いつまでもVB2005やってる場合じゃないなぁ、、
参考URL:http://msdn.microsoft.com/en-us/library/ms364068 …
Sub Main()
Dim I As Integer
Dim iNow As Integer
Dim iNext As Integer
Dim aLine As String
Dim SMTab(SMMAX) As SecondaryMaterial
SMTab(0).aNmae = "付属1_A"
SMTab(1).aNmae = "付属1_B"
SMTab(2).aNmae = "付属2_A"
SMTab(3).aNmae = "付属2_B"
SMTab(4).aNmae = "付属3_A"
SMTab(5).aNmae = "付属3_B"
Do
iNow = iNext
aLine = ReadLine("D:\Temp\MaterialList.csv", iNow, iNext)
If aLine = "" Then Continue Do
For I = 0 To SMMAX
SMTab(I).iCount += If(aLine.Contains(SMTab(I).aNmae), 1, 0)
Next
Loop Until iNext = -1
For I = 0 To SMMAX
Debug.Print(Printf(SMTab(I).aNmae & " = 000", SMTab(I).iCount.ToString, 右詰め, "0"c))
Next I
End Sub
今、書き上げたコードはこのようです。
しかし、余りにも初期化が原始的です。
Dim SMTab = { _
New SecondaryMaterial With {.Name = "付属1_A", .icount = 0}, _
New SecondaryMaterial With {.Name = "付属1_B", .icount = 0}, _
New SecondaryMaterial With {.Name = "付属2_A", .icount = 0}, _
New SecondaryMaterial With {.Name = "付属2_B", .icount = 0}, _
New SecondaryMaterial With {.Name = "付属3_A", .icount = 0}, _
New SecondaryMaterial With {.Name = "付属3_B", .icount = 0} _
}
で、このやり方の類は昨日から試し続けています。
し、しかし、
>配列初期化子は配列にのみ有効!
というエラーが出て原始的初期化の対案が見つかりません。
VB6.0 ではない VB2008を知って60日余のプログラマではない単なるデザイナ。
構造体で四苦八苦しています。
しかし、ご紹介のサイトでエラー自体は当然だとわかりました。
ありがとうございました。
しかし、何とかこのエラーを回避する工夫ってのがないものでしょうか?
ウーンです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- メルカリ メルカリでヘッドホンを購入しましたが、本来この製品に付属しているはずの3.5mmケーブルが入ってませ 5 2023/01/07 10:08
- メルカリ メルカリでハイブランドの偽物を掴まされない注意点て何がありますか? 偽物の心配するなら正規店で買えと 4 2023/02/22 12:50
- メルカリ ps5海外版 1 2023/06/11 02:45
- 営業・販売・サービス アパレルで販売職をされている方に質問です。 着用の商品に付属のベルトがあってもそれをつけずに私物のベ 3 2022/04/24 08:29
- その他(買い物・ショッピング) iPhone中古の箱無しと箱ありケーブル、マニュアル付きで5000円変わるならどっち買った方がいいと 1 2023/07/10 00:15
- 化学 イオン結合の定義について教えてください。 2 2023/02/02 08:22
- クラフト・工作 物にネオジム磁石を固定して付ける方法を教えて下さい。 物に固定され一体化したネオジム磁石は、他の金属 3 2023/05/28 15:24
- DIY・エクステリア 外壁の磁気タイルの穴あけ。下穴は必要でしょうか 4 2022/07/15 11:35
- Windows 10 パソコンのリカバリー方法 4 2022/03/25 19:54
- 地図・道路 図面が読めるようになりたいです。 トンネル、橋梁、舗装、排水構造物、道路付属物等、土木の道路改築工事 2 2023/03/31 08:20
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
C言語 配列の長さの上限
-
配列を使わずに、変数名を動的...
-
配列で格納したものをmsgboxで...
-
先頭アドレスとは何ですか?
-
C# 配列の変数宣言について。
-
unsigned char配列への入力の仕方
-
pBluescriptベクター、pUC系ベ...
-
VBでC言語のポインタみたい...
-
テキストファイルから文字列を...
-
mallocの確保要素数の限界は?
-
C言語初心者 ポインタについて...
-
VBで構造体の配列を関数に渡す...
-
C++ vectorに配列をプッシュしたい
-
2次元配列を戻り値とする関数?
-
任意で決める配列を関数内から...
-
C言語の配列番号が"0"から始ま...
-
複数のボタンを配列で扱う方法...
-
ゼロサプレスって?
-
C# Listを使わずに2次元配列の...
-
C言語でcharの足し算
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
C言語 配列の長さの上限
-
配列を使わずに、変数名を動的...
-
配列で格納したものをmsgboxで...
-
配列の参照渡しで型が一致しま...
-
C# Listを使わずに2次元配列の...
-
VBで構造体の配列を関数に渡す...
-
複数の選択範囲の行番号を個別...
-
パイソンの
-
先頭アドレスとは何ですか?
-
【速いブラインドタッチ】手を...
-
C# 配列の変数宣言について。
-
C言語初心者 ポインタについて...
-
unsigned char配列への入力の仕方
-
テキストファイルから文字列を...
-
ExcelVBAで質問です。離れた二...
-
Redimした動的配列はEraseする...
-
C言語で特定列だけを抽出して配...
-
擬似コード 長さがmの配列でな...
-
メモリの初期値
-
C言語初心者 構造体 課題について
おすすめ情報