Visual Basic

<br />
Option Explicit<br />
<br />
Dim mCollection As Collection<br />
<br />
Public Function AllocateLargeArray()<br />
    Dim loc As MyStruct<br />
    Dim ii As Integer<br />
    <br />
    Set mCollection = Nothing<br />
    Set mCollection = New Collection<br />
    <br />
    For ii = 1 To 10000<br />
        Set loc = New MyStruct<br />
        mCollection.Add loc<br />
    Next ii<br />
End Function<br />
<br />
Public Function DeAllocateLargeArray()<br />
    Dim ii As Integer<br />
    ii = 1<br />
        <br />
    Do While ii <= mCollection.Count<br />
        mCollection.Remove ii<br />
    Loop<br />
    <br />
    Set mCollection = Nothing<br />
End Function<br />

'searches teh text and colors it...<br />
    Private Sub ExtendedRichTextBox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ExtendedRichTextBox.TextChanged<br />
<br />
        Dim selectionAt As Integer = ExtendedRichTextBox.SelectionStart<br />
<br />
        'find out the linenumber...<br />
        lineNumber = ExtendedRichTextBox.GetLineFromCharIndex(ExtendedRichTextBox.SelectionStart()) + 1<br />
<br />
        If ExtendedRichTextBox.GetFirstCharIndexFromLine(lineNumber) = -1 Then<br />
            line = ExtendedRichTextBox.Text.Substring(ExtendedRichTextBox.GetFirstCharIndexOfCurrentLine())<br />
            startCharIndex = 0<br />
        Else<br />
            line = ExtendedRichTextBox.Text.Substring(startCharIndex, ExtendedRichTextBox.GetFirstCharIndexFromLine(lineNumber) - ExtendedRichTextBox.GetFirstCharIndexOfCurrentLine)<br />
        End If<br />
<br />
        'regular expression...<br />
        Dim reg_exp As Regex<br />
<br />
        'give reg_exp some values...<br />
        For i As Integer = 0 To 4<br />
<br />
            'give reg_exp a value from the array...<br />
            reg_exp = New Regex(syntaxText(i))<br />
<br />
            'search for matches...<br />
            Dim match As Match<br />
            match = reg_exp.Match(line)<br />
<br />
            'give the match the right color...<br />
            If reg_exp.IsMatch(line) Then<br />
<br />
                With ExtendedRichTextBox<br />
                    .Select(match.Index, match.Length)<br />
                    .SelectionColor = syntaxColor(i)<br />
                    .SelectionStart = selectionAt<br />
                    .SelectionColor = textColor<br />
                End With<br />
<br />
            End If<br />
        Next<br />
<br />
    End Sub

<script runat="server">
Public Function Date2Julian(ByVal vDate As Date) As Long

    Date2Julian = CLng(Format(Year(vDate), "0000") _
                  + Format(DateDiff("d", CDate("01/01/" _
                  + Format(Year(vDate), "0000")), vDate) _
                  + 1, "000"))
    
End Function

</script>

<script runat="server">
 Sub SendMail(sender As Object, e As System.EventArgs)
    Dim MyDate as String
    MyDate = Date.Now.ToString("MM/dd/yyyy")
    Dim Julian as String
    Julian = "IA" & Date2Julian(MyDate)& TimeGetTime()
    Ticket_ID.Value= Julian
End Sub
</script>