配列をつなげて文字列にしたいと思っています。
Dim abc() As String
Dim i As String
Dim namae As String
i=0
ここでDBに接続してループでまわしながらデータを取得してきます。
Do while y > z
abc(i) = X
i = i+1
loop
Xはループがまわる毎に違う値がセットされます。例えば1回目のループでリンゴ、2回目のループでミカンといった具合にです。
つまり、abc(0)=リンゴ、abc(1)=ミカン、abc(2)=メロン
といった具合にです。
最終的には namae="リンゴ、ミカン、メロン、・・・・"といった具合にnamaeに代入したいと思っています。namae = abc(0) & "," & abc(1) & ","....と
やれば実現できるのはわかります。
Xにはデータがいくつはいっているかわかりません。どうやった式をたてれば、実現できるでしょうか？
Sub Main()
Debug.Print(Reverse("ABC")
End Sub
Function Reverse(ByVal aChars As String) As String
Dim C As Char
Dim I As Integer
Dim J As Integer
Dim L As Integer = aChars.Length - 1
J = L
Do While I < J
C = aChars.Chars(I)
aChars.Remove(I, 1)
aChars.Insert(I, aChars.Chars(J))
aChars.Insert(J, C)
aChars.Remove(J + 1, 1)
J -= 1
I += 1
Loop
Return aChars
End Function
１、"ABC"の"A"を変数 C に保存。
２、"ABC"の"A"を削除。
３、"BC" の先頭に"C"を挿入。
４、"CBAC" の３番目(J=2)に変数Cを挿入。
５、"CBAC" の４番(J+1=3)を削除
６、"CBA" を戻り値にセット。
という Reverse 関数ですが動作しません。
一体、どこでどのように考え違いをしているのでしょうか？
全くわかりません。
宜しくお願いします。
余り、やっている全容を示すのもと思って関係個所だけを提示して質問してきました。
しかし、回答者の方にとっては煩わしい質問の仕方。
ですから、今回は、全てを晒した上で質問します。
”列添字最大値”という記号定数を用いています。
現実のアプリケーションでは、これは良い方法だと思います。
しかし、それはそれ、これはこれです。
VB.NET の初学者の私は、＜記号定数を用いない書き方＞が知りたいところです。
この最終的な疑問が解消すれば、テキストの配列への呼び込み実験は終了。
宜しくお願いします。
' ==========================
' CSVReadToArray のテスト２
' ==========================
Const 列添字最大値 As Integer = 3
Sub Main()
Dim I As Integer ' 行を参照するための For 文の変数
Dim J As Integer ' 列を参照するための For 文の変数
'Dim K As Integer ' 列（フィールドあるいは要素）の数
Dim aDatas As New List(Of String())()
Dim N = CSVReadToArray("D:\Temp\付属一覧.csv", aDatas) - 1
For I = 0 To N
For J = 0 To 列添字最大値
Debug.Print(aDatas(I)(J))
Next J
Next I
End Sub
' =============================================================
' CSV ファイルを配列に読み込む; TextFieldParser クラス版; 第２版
' =============================================================
Function CSVReadToArray(ByVal aFile As String, _
ByRef aRows As List(Of String())) As Integer
If File.Exists(aFile) Then
Try
Using MyReader As New TextFieldParser(aFile, Encoding.Default)
MyReader.TextFieldType = FieldType.Delimited
MyReader.Delimiters = New String() {","}
While Not MyReader.EndOfData
aRows.Add(MyReader.ReadFields())
End While
Return aRows.Count
End Using
Catch ex As FileIO.MalformedLineException
MsgBox(ex.Message & "(CSVReadToArray)", , "告知:")
Return 0
End Try
Else
Return 0
End If
End Function
Sub Main()
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim aDatas As New List(Of String())()
Dim N = CSVReadToArray("D:\Temp\付属一覧.csv", aDatas) - 1
K = aDatas(0).Count - 1
For I = 0 To N
For J = 0 To K
Debug.Print(aDatas(I)(J))
Next J
Next I
End Sub
質問１、K = aDatas(0).Count - 1 の本当のやり方？
質問２、K の処理のされ方。
K が変数としてメモリに配置されることはないと推察しています。
多分、何がしかのスタック領域に一時的に置かれると・・・。
この辺りに関しても教えてもらえれば幸いです。
.NETにおいて、フォーム上に配置されたコントロールで発生したイベントを、各コントロールごとではなくて、まとめてハンドルする方法はないでしょうか。
例えば次のようなフォームがあります。
（Button1, Button2, Button3は、フォームに配置されたボタンとします）
Public Class MyForm
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
End Sub
End Class
ボタンが３つ程度の場合はこれで良いと思うのですが、例えば(極端に言えば)ボタンが100個ある場合、
Handles Button1.Click, Button2.Click, (途中省略.....) Button100.Click
と書くしかないのでしょうか。
後で対象コントロールが増えたり減ったりした場合に間違いが起こりそうなので、このような書き方は避けたいです。
フォーム上のどのコントロールでも構わないからとにかくクリックイベントが発生したことを知るための方法はないでしょうか。
例えば次のようなかんじでハンドリングできないでしょうか。
Private Sub All_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles フォーム上の任意のコントロールでのClickイベント
End Sub
（環境はVB.NET2005です）
VBSで、
a=inputbox("0+1=")
if lang=1 then
msgbox("あってます。")
else
msgbox("間違えています。")
end if
として、
msgbox("間違えています。")
のあとに、もういちど最初（aの位置）にもどしたいときはどうすればよいでしょう？
よろしくおねがいします。
VBSで、
a=inputbox("0+1=")
if lang=1 then
msgbox("あってます。")
else
msgbox("間違えています。")
end if
として、
msgbox("間違えています。")
のあとに、もういちど最初（aの位置）にもどしたいときはどうすればよいでしょう？
よろしくおねがいします。
こんばんは、
vbで悩んでいます。
配列の検索で、みつかったら、行と位置を出力する
でた結果の次の行から 再検索する
ということをしたいのですが。
一回目の検索はできるのですが、ボタンをおしたら つづいて
検索できるようにしたいのです。
できたら、アドバイス等おねがいいたいします。
Dim i,r,j As Integer
Dim a1() As String
Dim a2 As String
a2 = Text.Text
For j = LBound(a1) To UBound(a1)
r = r + 1
i = a1(j).IndexOf(a2, 0)
Do Until i <> 0
text1.Text = Val(i + 1)
i = a1(j).IndexOf(a2, i + 1)
text2.Text = r
text3.Text = a1(j)
If i <> 0 Then
Exit For
End If
Loop
Next
a1に以下の内容があった時
a1(0) = "例１"
a1(1) = "例２"
a1(2) = "例３"
”例”と検索をかけると、
text1.Textには 1と出力。(位置表す)
text2.Textには 1と出力。(行表す)
text3.Textには 例１と出力。
exit for でループをぬけているのですが。
これを、検索ボタンを押すたびに、行と位置
が表示されるようにしたいのですが、
アドバイスおねがいします。
