投稿日 | : 2003/01/24(Fri) 20:28 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: 動的配列を返すプロシージャについて |
http://www001.upp.so-net.ne.jp/shige-3peace/ さんのところの
下記のサンプルを使わせてもらったらどうですか?
http://www001.upp.so-net.ne.jp/shige-3peace/VB_Freak/lzh/VB6toVB5.zip
とりあえず、ちょっといじって見ました。
Private Sub Command1_Click()
Dim i As Integer
Dim MyVar As Variant
MyVar = split("abc,defgh,ijklm")
For i = LBound(MyVar) To UBound(MyVar)
Debug.Print MyVar(i)
Next i
End Sub
Function split(Time As String) As Variant '←ここでエラー
Dim intcheck As Integer
Dim strtime() As String '←30個以内には、データは収まる
Dim i As Long
Dim intlen As Long
i = 0
Do
intlen = Len(Time)
intcheck = InStr(Time, ",")
ReDim Preserve strtime(i) As String
If intcheck <> 0 Then
strtime(i) = Mid(Time, 1, intcheck - 1)
Time = Mid(Time, intcheck + 1, intlen - intcheck)
i = i + 1
End If
If intcheck = 0 And Len(Time) > 0 Then
strtime(i) = Time
End If
Loop Until (intcheck = 0)
split = strtime
End Function