T
Travis Llewellyn
I am writing a program that write out and array that I have stored. It
writes out the whole array but adds a Carrot "^" in front of each
section it writes.
If I do a debug.writeline(hello) it shows the line perfect in the
immediate windows without the carrot.
Any help would be appreciated.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
shrdvars.wflname = Microsoft.VisualBasic.Mid(ofdlg1.FileName,
21, 12)
sfdlg1.FileName = shrdvars.wflname
sfdlg1.InitialDirectory() = "h:\dp\testfolder\out\"
sfdlg1.ShowDialog()
Dim fsw As New FileStream(sfdlg1.FileName, FileMode.CreateNew)
Dim rw As New BinaryWriter(fsw)
'FileOpen(1, sfdlg1.FileName, OpenMode.Binary, OpenAccess.Write,
OpenShare.Default, 94)
Dim three As New shrdvars
Dim hello As String
Dim s As Integer
For s = 0 To shrdvars.al.Count - 1
hello = three.parsrecord(shrdvars.al(s))
rw.Write(hello)
Next
rw.Close()
fsw.Close()
End Sub
writes out the whole array but adds a Carrot "^" in front of each
section it writes.
If I do a debug.writeline(hello) it shows the line perfect in the
immediate windows without the carrot.
Any help would be appreciated.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
shrdvars.wflname = Microsoft.VisualBasic.Mid(ofdlg1.FileName,
21, 12)
sfdlg1.FileName = shrdvars.wflname
sfdlg1.InitialDirectory() = "h:\dp\testfolder\out\"
sfdlg1.ShowDialog()
Dim fsw As New FileStream(sfdlg1.FileName, FileMode.CreateNew)
Dim rw As New BinaryWriter(fsw)
'FileOpen(1, sfdlg1.FileName, OpenMode.Binary, OpenAccess.Write,
OpenShare.Default, 94)
Dim three As New shrdvars
Dim hello As String
Dim s As Integer
For s = 0 To shrdvars.al.Count - 1
hello = three.parsrecord(shrdvars.al(s))
rw.Write(hello)
Next
rw.Close()
fsw.Close()
End Sub