Visual Basic

<br />
        'Open Script from file name.<br />
        Dim oStreamReader As System.IO.StreamReader<br />
        Dim sb As New System.Text.StringBuilder<br />
        Dim sTemp As String = ""<br />
        oStreamReader = New IO.StreamReader(ScriptName)<br />
<br />
        'Loop Through Lines until done<br />
        Do<br />
            Dim cmd As New SqlClient.SqlCommand<br />
            sb = New System.Text.StringBuilder<br />
            Do<br />
                sTemp = oStreamReader.ReadLine<br />
                If sTemp > "" And sTemp <> "GO" Then<br />
                    sb.Append(sTemp + vbCrLf)<br />
                End If<br />
            Loop Until (sTemp = "GO" Or oStreamReader.Peek = -1)<br />
<br />
            ''Execute chunk against database<br />
            'oStreamReader.ReadLine()<br />
            If sb.ToString > "" Then<br />
                Try<br />
                    cmd.CommandText = sb.ToString<br />
                    cmd.Connection = cn<br />
                    cmd.ExecuteNonQuery()<br />
                    cmd.Dispose()<br />
                Catch ex As SqlClient.SqlException<br />
                    MessageBox.Show(ex.Message)<br />
                    <br />
                End Try<br />
            End If<br />
            'MessageBox.Show(sb.ToString)<br />
            sb = Nothing<br />
            'oStreamReader.ReadLine()<br />
<br />
        Loop Until (oStreamReader.Peek = -1)<br />
        cn.Close()<br />

<br />
Imports System.IO<br />
public sub RunSQL<br />
        Dim conn As New SqlClient.SqlConnection<br />
        Dim sqlCmd As New SqlClient.SqlCommand<br />
        Dim sqltxt As String<br />
<br />
        conn.ConnectionString = ("Data Source= " + DS + "  ;Initial Catalog= " + DB + ";Integrated Security=True")<br />
        conn.Open()<br />
<br />
        sqltxt = System.IO.File.ReadAllText("SP.sql")<br />
        sqlCmd.CommandText = sqltxt<br />
        sqlCmd.Connection = conn<br />
        sqlCmd.ExecuteNonQuery()<br />
        conn.Close()<br />
<br />

<br />
Imports System.IO<br />
Imports System.Windows.Forms<br />
<br />
Public Class Uninstall<br />
    Dim str As String<br />
    Public Sub FixDynamics()<br />
        str = System.IO.File.ReadAllText("Test.txt")<br />
        If str.Contains("Auto") = True Then<br />
            MessageBox.Show("Exist txt")<br />
        End If<br />
<br />
    End Sub<br />

Function IsValidEmailAdress(emailAdress As String) As Boolean<br />
   Retrun Regex.IsMatch(emailAdress, ("\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"))<br />
End Function