Question

I have converted a VB6 project to VB.NET and am left with a large number of inline ‘warning messages’ such as ‘UPGRADE_WARNING: Couldn’t resolve default property of object varJonSkeet’ that I would like to get rid of. Is there a way to do this within Visual Studio 2008? Will it be easier to remove the warning messages with regex? I would prefer to do the removals one file at a time, but it isn’t a dealbreaker.

Answer 1

I believe he is saying that he wants to remove the inline comments from his code.

Fastest way is to perform a find in files for UPGRADE_WARNING: and remove them by hand.

Or,

You could create a new .Net program to iterate through each .vb file in your source directory and read them in using a StreamReader and then write them out 1 line at a time to the same file and as you go omit any lines containing UPGRADE_WARNING:.

If you do the second way you will be that much better for having done some more vb.net coding.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click          Dim FileName As String = 'c:\form1.vb'         Dim SourceFile As System.IO.FileInfo = New FileInfo(FileName)         Dim SourceTextStream As System.IO.TextReader = SourceFile.OpenText()          Dim SourceFileContent() As String = Split(SourceTextStream.ReadToEnd(), vbCrLf)         SourceTextStream.Close()          Dim CurrentSourceLine As String         Dim CurrentSourceLineNumber As Long          Dim DestStream As StreamWriter = New StreamWriter(FileName)         Dim LogStream As StreamWriter = New StreamWriter(FileName + '.log')          For Each CurrentSourceLine In SourceFileContent             CurrentSourceLineNumber += 1             If InStr(CurrentSourceLine, 'UPGRADE_WARNING') = 0 Then                 DestStream.WriteLine(CurrentSourceLine)             Else                 ' Write to Log File                 LogStream.WriteLine('Line Skipped at number: ' + CurrentSourceLineNumber.ToString())             End If         Next          DestStream.Close()         LogStream.Close()         End Sub