Add Row Number to Text File

[swtrans]

I'm have a hard time with VB and try to use SQL to do the things I need to do. I'm stuck on this one and need a row number added to a text file. I found this code searching the internet, and think it will work. The problem I have is I can't get it working in VB. I'm getting it needs a subMain error. I'm not sure where (how) the file is named. Should this have a button?

Here is an example of what I'm trying to accomplish.

I have an ascii file that has records of varying length:

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
bbbbbbbbbbbbbbbbbbb
ccccccccccccccccccccccccccccccccccccccccc
dddddddddddddddddddddd
eeeeeee
fff
ggggggggggggggggggggggggggggggggggggggggggggggggg

I need to add a leading sequence number to these transactions, with padded zeros. So the output will look like this:

000001aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
000002bbbbbbbbbbbbbbbbbbb
000003ccccccccccccccccccccccccccccccccccccccccc
000004dddddddddddddddddddddd
000005eeeeeee
000006fff
000007ggggggggggggggggggggggggggggggggggggggggggggggggg

[swtrans]

Here is the code that I think will work. I think it is missing something, like a button or something. I get a needs subMain error.

Private Sub AddLineNumbers(ByVal theFile As String)
If File.Exists(theFile) Then
Dim file1Sr As New StreamReader(theFile)
Dim theLineNumber As Integer = 1
Dim aLine As String
Dim tmpFile As String = "./log.tmp"
 
' determine if tmp file exists
If File.Exists(tmpFile) Then
File.Delete(tmpFile)
End If
'create the tmp file
Dim fStream As FileStream
Try
fStream = File.Create(tmpFile)
Catch ex As Exception
MessageBox.Show(ex.Message, ex.GetType.Name, MessageBoxButtons.OK)
End Try
fStream.Close()
 
'create the streamwriter for the tmp file
Dim fileSw As StreamWriter
fileSw = File.AppendText(tmpFile)
 
While file1Sr.Peek() <> -1
aLine = file1Sr.ReadLine
If aLine.Length > 0 Then
If aLine.Chars(0) = "(" Or aLine.Split(":")(0) = "Server" Then
fileSw.WriteLine(theLineNumber.ToString & " - " & aLine)
theLineNumber += 1
Else
fileSw.WriteLine(aLine)
End If
Else
fileSw.WriteLine(aLine)
End If
End While
 
file1Sr.Close()
fileSw.Close()
 
Try
File.Copy(tmpFile, theFile, True)
Catch ex As Exception
MessageBox.Show(ex.Message, ex.GetType.Name, MessageBoxButtons.OK)
Exit Sub
End Try
 
File.Delete(tmpFile)
Else
MessageBox.Show("File '" & theFile & "' Not Found!", "File Error", MessageBoxButtons.OK)
End If
End Sub

[ganeshmoorthy]

this looks like you dint specify the startup form in your project->properties->startup form. try and let me know....

[swtrans]

OK I think I did it right. I did a standard EXE, then dropped this code into the Form1 code area. When I try to make an Project1.exe, I get a compile syntex error.

[ganeshmoorthy]

post the code where you get the syntax error...

[brucevde]

Since your code is .NET, post your question in the .NET forum as well.

[swtrans]

LOL, I thought is was VB 6 code.

How much different would this code be in VB6?