板 1- 前 次 新 レス
for REMA-PING
[14]kiyo：2003/10/31(Fri) 21:54
Function expList(リスト) As String
s = " "
リスト = s + Trim(リスト) + s
Dim ElList() As String
count = -1
' 一次ループ
For n = 0 To Len(リスト) - 1
If Mid(リスト, n + 1, 1) = s Then count = count + 1
Next n
' count = count - 1
ReDim ElList(count)
' 二次ループ
c = 0
' m = InStr(1, リスト, " ")
For n = 0 To Len(リスト) - 2
If Mid(リスト, n + 1, 1) = s Then
sTartX = n + 2
ength = InStr(sTartX, リスト, s) - sTartX
ElList(c) = Mid(リスト, sTartX, ength)
c = c + 1
If c >= count Then c = count - 1
' m = n + 1
End If
Next n
For c = 0 To count - 1
If ElList(c) Like "*#-#*" Then
If ElList(c) Like "[!0123456789-]" Then
expList = expList + ElList(c) + " "
Else
'配列に入れて数値比較、間をステップ1で補完して戻す
'関数書いてもよし というより書け
expList = expList + supList(ElList(c)) + " "
'
'
'
End If
'
Else
expList = expList + ElList(c) + " "
End If
Next c
'For Each X In ElList
'
' expList = expList + X + " "
'
'Next X
'
expList = Trim(expList)
End Function
前 次 新