Munkeymon fucked around with this message at 16:35 on Apr 8, 2015

Try

	Using reader As New System.IO.StreamReader(strFilename),  
	      writer As New System.IO.StreamWriter("new file name")

		Do Until reader.EndOfStream
			writer.WriteLine(reader.ReadLine().Replace("thing1", "thing2"))
	    Loop
	
	End Using

Catch exception as System.IO.FileNotFoundException
	MsgBox("File not found!")
Catch exception	as System.UnauthorizedAccessException
	MsgBox("Access denied!")
'etc.
Catch exception as Exception
	MsgBox("Error: " & exception.GetType().ToString)
End Try

module myModule = 

    type myType = //...

    type myUnion =
        | double
        | string
	| myType
        
    let myFunction (someArgument : myUnion) = 
        match someArgument with
            | double -> printfn "It's a number!"
            | string -> printfn "It's a string!"        
            | myType -> printfn "It's my type!"        
        
    [<EntryPoint>]
    let myMain args = 
        myFunction 100.0
        myFunction "qwerty"
	myFunction (new myType())
        0

NihilCredo fucked around with this message at 00:47 on Apr 11, 2015

Public Interface IMarkupConverter
    Function ConvertXamlToHtml(xamlText As String) As String
    Function ConvertHtmlToXaml(htmlText As String) As String
    Function ConvertRtfToHtml(rtfText As String) As String
End Interface

Public Class MarkupConverter
    Implements IMarkupConverter

    Public Function ConvertXamlToHtml(xamlText As String) As String Implements IMarkupConverter.ConvertXamlToHtml
        Return ConvertXamlToHtml(xamlText)
    End Function
    Public Function ConvertHtmlToXaml(htmlText As String) As String Implements IMarkupConverter.ConvertHtmlToXaml
        Return ConvertHtmlToXaml(htmlText)
    End Function
    Public Function ConvertRtfToHtml(rtfText As String) As String Implements IMarkupConverter.ConvertRtfToHtml
        Return ConvertRtfToHtml(rtfText)
    End Function
End Class

Public Class Converter
    Public Shared Function ConvertRtfToHtml(rtfText As String) As String
        Dim thread = New Thread(AddressOf ConvertRtfInSTAThread)
        Dim threadData = New ConvertRtfThreadData With {.RtfText = rtfText}
        thread.SetApartmentState(ApartmentState.STA)
        thread.Start(threadData)
        thread.Join()
        Return threadData.HtmlText
    End Function

    Public Shared Sub ConvertRtfInSTAThread(rtf As Object)
        Dim threadData = TryCast(rtf, ConvertRtfThreadData)
        threadData.HtmlText = ConvertRtfToHtml(threadData.RtfText)
    End Sub

    Private Class ConvertRtfThreadData
        Public Property RtfText() As String
            Get
                Return m_RtfText
            End Get
            Set(value As String)
                m_RtfText = value
            End Set
        End Property
        Private m_RtfText As String
        Public Property HtmlText() As String
            Get
                Return m_HtmlText
            End Get
            Set(value As String)
                m_HtmlText = value
            End Set
        End Property
        Private m_HtmlText As String
    End Class
End Class

NetworkFileController.Converter.ConvertRtfToHtml(NetworkFileController.mainForm.appInfoBox.Text)

TheEffect fucked around with this message at 23:56 on Apr 11, 2015

    Public Function X
        For Each i In x
            If waitBox.Checked Then
                Wait()
            Else
                DoStuff()
            End If
        Loop
    Return Nothing
    End Function

    Public Function Wait()
        LogOutput("Application paused.")
        Do Until waitBox.Checked = False
            Task.Delay(1000)
        Loop
        LogOutput("Application unpaused.")
        Return Nothing
    End Function

LiterallyAnything fucked around with this message at 15:42 on Apr 13, 2015

New Yorp New Yorp fucked around with this message at 16:29 on Apr 13, 2015