拡張例: 配列と文字列関数

重要なコードは ArrayExamples と AtComputeStrings という 2 つのルーチンにあります。残りの部分は宣言と初期化です。コードから生成される出力も以下にリストしてあります。

StringExample: 
Option Public
Option Base 1
Dim arr1(8) As String
Dim arr2(8) As String
Dim arr3 
Dim arr4(8) As Integer
Dim tarray1(10) As Integer
Dim tarray2(10) As Integer
Dim tarray3(10) As Integer
Dim i As Integer, x As Integer
Dim ans As String 
Dim Indexresult
Dim localarray
Dim arresult
Sub Initialize
   ' arr1 will contain the following names
   arr1(1) = "Daniel"
   arr1(2) =  "Nate"
   arr1(3) =  "Joshua"
   arr1(4) =  "Sam"
   arr1(5) =  "Benjamin"
   arr1(6) =  "Julie "
   arr1(7) =  "Lauren "
   arr1(8) =  "Scrubbles"
   ' arr2 will contain "Joe1", "Joe2", etc
   ' arr4 will contain integers, with all even
   ' entries being zero
   For i = 1 To 8
      arr2(i) = "Joe" & i
      If (i Mod 2) = 0 Then
         arr4(i) = 0
      Else
         arr4(i) = i
      End If
   Next
   ' Initialize the arrays
   ' tarray1 will contain (1,2,3,4,5,6,7,8,9,10)
   x = 1
   For i =1 To 20
      If i  =< 10 Then
         tarray1(i) = i
      End If
   ' tarray2 will contain (2,4,6,8,10,12,14,16,18,20)
      If (i Mod 2) = 0 Then
         tarray2(x) = i 
         x = x+1	
      End If
   Next
   ' tarray3 will contain the following (8,6,4,2,25,0,0,0,0,0)
   tarray3(1) =  8
   tarray3(2) =  6
   tarray3(3) =  4
   tarray3(4) =  2
   tarray3(5) =  25
   ' Run the examples
   ArrayExamples
   AtComputeStrings
End Sub
Sub Arrayexamples
   ' Arrayappend populates arr3 with all elements of arr1
   ' and all elements of arr2,  arr3 lower bound is 1
   ' its upper bound is 16
   Print "Arrayappend results:"
   arr3 =  Arrayappend (arr1, arr2)
   Print "    arr3 contains: ", arr3(1), arr3(2), "..." , _
      arr3(15), arr3(16)
   Print "    Up/Low bounds for arr3: " & Lbound(arr3) & _
      " & " & Ubound(arr3)
   ' Arraygetindex example
   value = "Benjamin"
   Indexresult = Arraygetindex(arr1,value)
   Print "Arraygetindes results:"
   Print "    Arraygetindex(arr1,value) returns ";_
     Indexresult
   Indexresult = Arraygetindex(arr1,"Scrubbles")
   Print "    Arraygetindex(arr1,""Scrubbles"") returns "; Indexresult
   ' Fulltrim of an array
   Print "Arraygetindex on fulltrimed array results:"
   localarray = Fulltrim(arr4) 'localarray = [1, 3, 5, 7]
   Indexresult = Arraygetindex(localarray, 3)
   Print  "    Arraygetindex(localarray, 3) returns "; Indexresult
   'Fulltrim of a string
   Print "Fulltrim of string:"
   qbf_spaces = "       The       quick brown     fox" & _
     "    jumped      over the    lazy    dog.      "
   Print "   ", qbf_spaces
   qbf_trimed = Fulltrim(qbf_spaces)
   Print "   ", qbf_trimed
   ' Arrayreplace example
   Print "Arrayreplace results:"
   'Expected answer is "1 8 3 6 5 4 7 2 9 25"
   arresult = Arrayreplace( tarray1, tarray2, tarray3)
   ' Generate string that represent the contents of arresult 
   msg1 = ""
   For i = 1 To 10
      msg1 = msg1 & " " & arresult(i)
   Next
   Print "    arresult = " & msg1
End Sub
Sub  AtComputeStrings()
   Dim s1 As String
   Dim s2 As String
   Dim v1 As Variant
   s1 = "The quick brown FOX jumps over the lazy dog."
   s2 = "he"
   Print " "
   Print "Results for Strleft, strright, strrightback," & _
     " Strleftback"
   ' Search left to right  
   ' Strleft: expect v1 = "T"
   v1 = Strleft( s1, s2 )
   Print "    " + v1
   ' Strright:
   ' expect v1 = " quick brown FOX jumps over the lazy dog."
   v1 = Strright( s1,s2 )
   Print "    " + v1
   ' Search right to left
   ' Strleftback: 
   ' expect v1 = "The quick brown FOX jumps over t"
   v1 = Strleftback( s1, s2 )
   Print "    " + v1
   ' Strrightback: expect v1 = " lazy dog."
   v1 = Strrightback( s1, s2 )
   Print "    " + v1
   ' With some optionals.....
   s1 = "The quick brown FOX jumps over the lazy dog."
   s2 = "o"        
   ' the letter o  CHANGED S2, pattern searched for HERE.
   ' A case INsensitive search, it finds the second
   ' occurrence of 'o' and returns what is to the left of that.
   ' expect v1 = "The quick brown F "
   v1 = Strleft( s1,s2, 5, 2  )
   Print "    " + v1
   ' A Case sensitive search,  Finds the third occurrence of  
   ' 'o'  and returns what is to the RIGHT of that.
   ' expect  v1 = "ver the lazy dog."	
   v1 = Strright( s1,s2, 0, 3 )
   Print "    " + v1
   s2 = "O"
   ' A case sensitive search. Expect v1 = "The quick brown F"
   v1 = Strleftback( s1,s2,0 )
   Print "    " + v1
   ' A case sensitive search, with a skip first occurrence,
   ' O in FOX is Skipped and  no other occurrence exists,
   ' expect v1 = ""
   v1 = Strleft( s1,s2,0,2)
   Print "    " + v1
End Sub

このプログラムの結果:

ArrayAppend の結果:

    arr3 contains:   Daniel, Nate, ... Joe7, Joe8
    Up/Low bounds for arr3: 1 & 16

ArrayGetIndex の結果:

    ArrayGetIndex(arr1,value) returns  5 
    Arraygetindex(arr1,"Scrubbles") returns  8 

空白が削除された配列に対する ArrayGetIndex の結果:

Arraygetindex(localarray, 3) returns  2 

文字列の FullTrim:

The quick brown fox jumped over the lazy dog.

 The quick brown fox jumped over the lazy dog.

ArrayReplace の結果:

arresult =  1 8 3 6 5 4 7 2 9 25

Strleft、strright、strrightback、Strleftback の結果

    T
     quick brown FOX jumps over the lazy dog.
    The quick brown FOX jumps over t
     lazy dog.
    The quick brown F
    g.
    The quick brown F