All pastes #57867 Raw Edit

Anonymous

public text v1 · immutable
#57867 ·published 2006-05-22 02:45 UTC
rendered paste body
        Dim chkfs As New FileStream(URL, FileMode.Open, FileAccess.Read)
        Dim chksr As New StreamReader(chkfs)
        TempDump = chksr.ReadToEnd
        If TempDump.ToString.Contains("—") Or TempDump.ToString.Contains("’") Or TempDump.ToString.Contains("‘") Then
            chksr.Close()
            Dim chksw As New StreamWriter(URL)
            TempDump = TempDump.Replace("—", "-")
            TempDump = TempDump.Replace("’", "'")
            TempDump = TempDump.Replace("‘", "'")
            chksw.Write(TempDump)
            TempDump = ""
        End If