板 1- 前 次 新 レス
for REMA-PING
[12]kiyo：2003/10/31(Fri) 20:32
'書きかけのソース
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) + " "
'
' expList = expList + "WAIT "
'
' Else
' expList = expList + ElList(c) + " "
' End If
'Next c
For Each X In ElList
expList = expList + X + " "
Next X
expList = Trim(expList)
'expList = ElList(5)
End Function
前 次 新