84 lines
2.1 KiB
Plaintext
84 lines
2.1 KiB
Plaintext
Function Token(cad As String, tokens() As String) As Integer
|
|
Dim As Integer n = 0
|
|
Dim As String temp = ""
|
|
Dim As Integer i
|
|
|
|
For i = 1 To Len(cad)
|
|
If Mid(cad, i, 1) <> " " Then
|
|
temp &= Mid(cad, i, 1)
|
|
Elseif temp <> "" Then
|
|
n += 1
|
|
Redim Preserve tokens(1 To n)
|
|
tokens(n) = temp
|
|
temp = ""
|
|
End If
|
|
Next
|
|
|
|
If temp <> "" Then
|
|
n += 1
|
|
Redim Preserve tokens(1 To n)
|
|
tokens(n) = temp
|
|
End If
|
|
|
|
Return n
|
|
End Function
|
|
|
|
Dim As String c = "add 1 alter 3 backup 2 bottom 1 Cappend 2 change 1 Schange Cinsert 2 Clast 3" & _
|
|
" compress 4 copy 2 count 3 Coverlay 3 cursor 3 delete 3 Cdelete 2 down 1 duplicate" & _
|
|
" 3 xEdit 1 expand 3 extract 3 find 1 Nfind 2 Nfindup 6 NfUP 3 Cfind 2 findUP 3 fUP 2" & _
|
|
" forward 2 get help 1 hexType 4 input 1 powerInput 3 join 1 split 2 spltJOIN load" & _
|
|
" locate 1 Clocate 2 lowerCase 3 upperCase 3 Lprefix 2 macro merge 2 modify 3 move 2" & _
|
|
" msg next 1 overlay 1 parse preserve 4 purge 3 put putD query 1 quit read recover 3" & _
|
|
" refresh renum 3 repeat 3 replace 1 Creplace 2 reset 3 restore 4 rgtLEFT right 2 left" & _
|
|
" 2 save set shift 2 si sort sos stack 3 status 4 top transfer 3 type 1 up 1"
|
|
c = Ucase(c)
|
|
|
|
Dim As String chunk()
|
|
Dim As Integer i, j, n, v
|
|
|
|
n = Token(c, chunk())
|
|
|
|
Dim As Integer lonc(1 To n)
|
|
|
|
For i = 1 To n - 1
|
|
v = Val(chunk(i + 1))
|
|
If v Then
|
|
lonc(i) = v
|
|
chunk(i + 1) = ""
|
|
Else
|
|
lonc(i) = Len(chunk(i))
|
|
End If
|
|
Next
|
|
|
|
Dim As String test = "riG rePEAT copies put mo rest types fup. 6 poweRin"
|
|
test = Ucase(test)
|
|
|
|
Dim As String w()
|
|
Dim As Integer x = Token(test, w())
|
|
|
|
Dim As Integer lonw(1 To x)
|
|
|
|
For i = 1 To x
|
|
lonw(i) = Len(w(i))
|
|
Next
|
|
|
|
Dim As String r = ""
|
|
|
|
For j = 1 To x
|
|
Dim As String p = ""
|
|
For i = 1 To n
|
|
Dim As String lc = Left(chunk(i), lonw(j))
|
|
Dim As String lw = w(j)
|
|
If (lw = lc) And (lonc(i) <= lonw(j)) Then
|
|
p = chunk(i)
|
|
Exit For
|
|
End If
|
|
Next
|
|
If p = "" Then p = "*error*"
|
|
r &= " " & p
|
|
Next
|
|
|
|
Print r
|
|
|
|
Sleep
|