- 締切済み
VBでの単純な質問！配列に定数を一発で入れる方法ありますか？
単純な質問です。 Const B = "0123456789" ←定数 DIM A(10) AS String ←配列 と言う定義に対して、 A = B と言った方法で、一発でデータをセットして各配列に、 以下のようなデータをセットしようと思っています。 A(0) = 0 A(1) = 1 A(2) = 2 A(3) = 3 A(4) = 4 ・ ・ A(9) = 9 他の言語では再定義などで可能ですが、 VBではいかにしてやるのでしょうか？ 定数を個別に切り分けてセットするのが面倒くさいので、ご存知の方いらっしゃれば、宜しくお願いします。
- tosi0000
- お礼率87% (142/162)
- オフィス系ソフト
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
みんなの回答
- imogasi
- ベストアンサー率27% (4737/17068)
ＳＰＬＩＴ関数を使います。 Ｆｏｒ文以下は確認用です。実質１行ですみます。 Sub test01() a = "a bb c dd e ffff" b = Split(a, " ") For i = 0 To UBound(b) MsgBox b(i) Next i End Sub
> Dim A(10) As String VBの言語仕様で、上記は、A(0) ～ A(10)の要素数10の配列になるので、誤り。 正しくは、 Dim A(9) As String 質問の答えは、 Const B = As String "0123456789" Dim A(9) As String Dim i As Long For i = LBound(A) To UBound(A) A(i) = Mid$(B, i + 1, 1) Next i 「A」、「B」といった1文字のみの定数名は可読性の面で大いに疑問。 (ループカウンタは慣習的に1文字で記述されるので、例外)
お礼
ご回答有り難う御座います。 突っ込みが厳しいな～！ 汗！汗！
- hana-hana3
- ベストアンサー率31% (4940/15541)
A = Array(0,1,2,3,4,5,6,7,8,9) という方法ではだめですか？
お礼
早速の有難うございます。 知らない方法でした。 参考になりました。 すみません。 もう少し簡単にしたいです・・・。
関連するQ&A
- 定数配列の書き方
VB6で定数を定義する場合は次の通りです。 Const strTest As String = "TEST" では、定数配列を定義する場合はどのように書けばいいのでしょう？ Const astrTest() As String = Array("A", "B", "C") '→NG Const astrTest(0 To 2) As String = Array("A", "B", "C") '→NG いろいろな書き方を試して見たのですが、上記のような書き方でも文法的にエラーになるようです。 どのように書けばいいのでしょうか？ それとも定数を配列で定義するのは無理なんでしょうか？
- ベストアンサー
- Visual Basic
- VBのString型の配列をVCで受け取るには？
VBでString型の配列として定義されている変数を VCのプログラムで受け取るにはどうすればよいのでしょうか？ 試しにVBでString型の配列を作って DLLのC_TESTというファンクションを呼び出すという 処理を作ってみたのですが、コンパイルエラーになってしまいます。 なにかおかしいところありますか？ そもそもVCにはString型ってないんですよね？ プログラミング初心者ですので、変な言葉遣いに なってるかもしれませんが宜しくお願いします。 VB Declare Function C_TEST Lib "\test.dll" (ByVal data() As String) As Integer Dim A(1) As String dim rtn as Integer A(0)="あああ" A(1)="いいい" rtn= C_TEST(A) VCのプログラム int _stdcall C_TEST(LPSTR A[2] ){ AfxMessageBox( A[0] ); return(0); }
- ベストアンサー
- C・C++・C#
- VB.NET 2次元配列
二次元配列に関して質問があります。 二次元配列を定義します。 Dim a(,) As Integer = _ {{0, 0, 0, 0, 0, 0, 1, 1, 1}, _ {0, 0, 0, 0, 0, 1, 0, 0, 1}, _ {0, 0, 0, 0, 0, 0, 1, 1, 1}} 一次元配列を定義します。 Dim b() As Integer 一次元配列のb()に二次元配列a(,)の {0, 0, 0, 0, 0, 0, 1, 1, 1}の部分を 入れようとした場合、 どのように記載すればよろしいでしょうか？ イメージ的には b = a(0) で出きると思ったのですが、 構文エラーとなってしまいます。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- Generic.Listに１次元配列の配列を格納したい(VB2005)
VB2005の質問です。 変数ghogeにString型の1次元配列の配列を格納したいと考えています。 ----------------------------------------------- 'a) Dim hoge()() As string = _ {New string() {"a1", "b1", "c1"}, _ New string() {"a2", "b2", "c2"}, _ New string() {"a3", "b3", "c3"}} Dim ghoge As New Generic.List(of ) 'b) MessageBox.Show(ghoge(1)(1)) ' "b2"と表示したい ----------------------------------------------- 質問内容は、(a)を(b)の初期値として設定するにはどのようにすればよいか、ということです。 (b)がGeneric.ListでなくArrayListの場合だと、 Dim ghoge As New ArrayList(hoge) でhoge配列を格納できますが、Generic.Listの場合はどのような構文にすればよいでしょうか。 現在は、下記のような処理でghogeに値を格納しています。 ------------------------------------------------------------ Dim ghoge As New Generic.List(Of Generic.List(Of String)) Dim aryhoge1 As New Generic.List(Of String)(New String() {"a1", "b1", "c1"}) Dim aryhoge2 As New Generic.List(Of String)(New String() {"a2", "b2", "c2"}) gary_hoge.Add(ary_hoge1) gary_hoge.Add(ary_hoge2) MessageBox.Show(gary_hoge(1)(1)) ' "b2"と表示される ------------------------------------------------------------ どうぞよろしくお願い致します。
- ベストアンサー
- Visual Basic
- VB6で配列を引数にするときの２通りの方法について
VB6で引数に配列を渡す方法が２通りあるよう？ですが以下のような配列があり、渡し方によって引数の定義の仕方が異なると思うのですが、(2)番目の関数の書き方が知りたいです。 dim ary_dat(10) as integer (1)test_A( ary_dat ) は、sub test_A( byref ary() as integer)という関数を作れば動作することはわかりましたが、 (2)test_B( ary_dat(0) ) は、関すでどのような引数を定義すればできるのでしょうか？
- 締切済み
- Visual Basic
- VB 配列
今，VBでテキストファイルを読込み配列に入れるという作業を書いたのですが，うまくいきません． 初回例外が発生してしまいます．配列は文字列の配列になります． どなたかご教示のほどよろしくお願いいたします． 'ファイルの読込み Dim path1 As String = "C:\Users\aleph_H.S\Desktop\気象台データインポートツール\気象台データインポートツール\" Dim path2 As String = "気象台データリスト.txt" Dim Mypath As String = path1 + path2 ' StreamReader の新しいインスタンスを生成する Dim cReader As New System.IO.StreamReader(Mypath, System.Text.Encoding.Default) ' 読み込んだ結果をすべて格納するための変数を宣言する Dim stResult As String = String.Empty Dim matrix(,) As String Dim ic As Long = 0 Dim icc As Long = 0 ReDim Preserve matrix(80, 3) ' 読み込みできる文字がなくなるまで繰り返す While (cReader.Peek() >= 0) ' ファイルを 1 行ずつ読み込む Dim stBuffer As String = cReader.ReadLine() ' 読み込んだものを追加で格納する stResult &= stBuffer & System.Environment.NewLine ic = ic + 1 'カンマ区切りで分割して配列に格納する Dim stArrayData As String() = stResult.Split(","c) For Each sstData In stArrayData icc = icc + 1 '文字列をInteger型に変換 matrix(ic - 1, icc - 1) = sstData Next End While cReader.Close()
- 締切済み
- Visual Basic
- 配列について
配列の要素数をinteger型にいれたいのですがどうしたらいいですか？ 例 Dim A() As String Dim B AS Integer A = "あ","い","う" Aの要素数３をBに入れたいのです。 この配列の作りかたもあっているか分かりませんがよろしくお願いします。
- 締切済み
- Visual Basic
- ＶＢ２００５でバイト配列をコピーするには
どなたかご教授下さい。 ＶＢ６で作成したプログラムをＶＢ２００５にコンバートしました。構造体からなる配列変数を一つの配列変数にコピー したいのですが、構造体の最初のメンバーだけ値が同じで以降の値は正しくセットされていませんでした。 どのように記述したらよいのでしょうか。またCopymMemory以外で良い方法があればご教授下さい。 よろしくお願い致します。 ===概略=== Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Byte, ByRef Source As Byte, ByVal Length As Short) 構造体定義 （コピー元） <StructLayout(LayoutKind.Sequential)>Structure ST_MOTO <MarshalAs(UnmanagedType.ByValArray, SizeConst:=4)> Dim byte_strTranCd() As Byte <MarshalAs(UnmanagedType.ByValArray, SizeConst:=5)> Dim byte_strTanSeq() As Byte <MarshalAs(UnmanagedType.ByValArray, SizeConst:=2)> Dim byte_strTxtNo() As Byte <MarshalAs(UnmanagedType.ByValArray, SizeConst:=3)> Dim byte_strTxtSeq() As Byte End Structure Dim A As ST_MOTO （コピー先） <StructLayout(LayoutKind.Sequential)> Structure ST_SAKI Dim lngrecLen As Integer 'データのLength <MarshalAs(UnmanagedType.ByValArray, SizeConst:=100)> Dim bytrecData() As Byte 'データ End Structure Dim B As ST_SAKI Call CopyMemory(B.bytrecData(0), A.byte_strTranCd(0), 14) 出力結果 '最初の構造体のメンバーの値は正しく設定されている B.bytrecData(0) =80 A.byte_strTranCd(0) =80 B.bytrecData(1) =50 A.byte_strTranCd(1) =50 B.bytrecData(2) =57 A.byte_strTranCd(2) =57 B.bytrecData(3) =50 A.byte_strTranCd(3) =50 'これ以降は正しくない。（VB6だと正しく設定されている） B.bytrecData(4) =0 A.byte_strTanSeq(0) =80 B.bytrecData(5) =0 A.byte_strTanSeq(1) =87 B.bytrecData(6) =0 A.byte_strTanSeq(2) =48 B.bytrecData(7) =0 A.byte_strTanSeq(3) =48 B.bytrecData(8) =6 A.byte_strTanSeq(4) =55 ・ ・ ・ ・
- 締切済み
- Visual Basic
- VB.NETで、配列をテーブルに変換する。
VB.NETで、一次元配列string()にあるデータを、DataTableに変換 したいのですが、「型'String'の値を'System,Data,DataTable'に変換できません。」 と、エラーが発生してしまいます。 s1に、配列データが入っています。 Dim dt As DataTable Dim cnt As Integer Dim i As Integer dt = New DataTable count = s1.Length For i = 0 To cnt - 1 dt = CType(s1(i), DataTable) Next 解決方法が見つからず、行き詰っております。 宜しくお願い致します。
- ベストアンサー
- Visual Basic
- VB6で、一次元配列と二次元配列の相互コピー
VB6で、一次元配列と二次元配列の相互コピーをしたいです。 (1)元々下記のような宣言をもつ配列がありました。 Public Type TKey no As String id As String code As String atr() As String End Type Public Type tr Key As TKey atr() As String abc As Boolean End Type Public gtr() As tr (2)コピー用に、下記のような二次元配列用宣言をつくりました。 Public Type TKey2 2no As String 2id As String 2code As String a2tr() As String End Type Public Type 2tr Key22 As TKey2 atr22() As String abc22 As Boolean End Type Public g2tr() As 2tr (3) (1)から(2)にデータを複製したり、 (4) (2)から(1)にデータを複製したいです。 今は、下記のように面倒くさいことをしています。 dim gtr(maxcnt) ReDim Preserve g2tr(500, maxcnt) ループ g2tr(cnt, i).Key22.2code = gtr(i).Key.code ・・・(3) gtr(i).Key.code = g2tr(j, i).Key22.2code ・・・(4) 今は上記を全ての宣言の配列に実行しています。 なにかもっと効率のよい方法はないでしょうか。 (1)の配列は、1～500くらいはあり、不定です。
- ベストアンサー
- Visual Basic
お礼
ご回答有り難う御座います。 大変参考になりました。