Stringで”1,2,3,4,5,6,7,8,9"のような物を
Integer型にするにはどうすればいいですか?
[VB6.0]
Private Sub Command1_Click()
Dim wString As String
Dim wStrArray() As String
Dim wIntArray() As Integer
Dim i As Integer
wString = "1,2,3,4,5,6,7,8,9"
wStrArray = Split(wString, ",")
ReDim wIntArray(UBound(wStrArray))
For i = LBound(wStrArray) To UBound(wStrArray)
wIntArray(i) = CInt(wStrArray(i))
Next
End Sub
解決しました。
ありがとうございました。
ツイート | ![]() |