Visual Basic

ivo75 wrote:

"Data type mismatch in criteria expression"

CONVERT(DATETIME, '" & Format(datetimepicker1.value, "MM/dd/yyyy") & " 00:00:00', 102)

Dim sReader As New IO.StreamReader("C:\\File.txt")<br />
        Dim CurrentLine As String = "TODAY 007"<br />
        Dim DataLines As New System.Collections.Specialized.StringCollection<br />
<br />
        Do While sReader.EndOfStream = False<br />
            CurrentLine = sReader.ReadLine<br />
            If CurrentLine.Contains("PRV*PE") = False Then<br />
                DataLines.Add(CurrentLine)<br />
            End If<br />
        Loop<br />
        sReader.Close()<br />
        sReader = Nothing<br />
<br />
        Dim sWriter As New IO.StreamWriter("C:\\File.txt")<br />
<br />
        For Each CurrentLine In DataLines<br />
            sWriter.WriteLine(CurrentLine)<br />
        Next<br />
        sWriter.Close()<br />
        sWriter = Nothing

IvanIT wrote:

If CurrentLine.Contains("PRV*PE") = False Then
DataLines.Add(CurrentLine)
End If

Do While Not sReader.EndOfStream
    DataLines.Add(CurrentLine)
    If CurrentLine.Contains("PRV*PE") Then
        DataLines.Add("TODAY 007")
    End If
Loop

Private Sub btnTranslate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTranslate.Click<br />
        MessageBox.Show("you are about to translate file")<br />
<br />
        'read the file to find data<br />
        Dim sReader As New IO.StreamReader("C:\moviez_21.txt")<br />
        Dim CurrentLine As String<br />
<br />
        Dim DataLines As New System.Collections.Specialized.StringCollection<br />
<br />
        CurrentLine = sReader.ReadLine<br />
        If CurrentLine.StartsWith("PRV*PE*ZZ*") = True Then<br />
            sReader.ReadToEnd()<br />
        End If<br />
        sReader.Close()<br />
<br />
        'modifying the  file<br />
        Dim oError As System.IO.StreamWriter<br />
        oError = New System.IO.StreamWriter("c:\moviez_21.txt", True)<br />
<br />
        'text to be inserted in after PRV*PE*ZZ*<br />
        oError.Write("REF*LU*") ' + file number<br />
        oError.Close()<br />
    End Sub

V.G wrote:

suggestions and criticism are welcome

V.G wrote:

but im doing this for my college and they require VB 6.