Visual Basic

llandyw wrote:

Was it taken out in VS 2008 or before?

llandyw wrote:

When I did batch build on VS 6, a window would come up with release and debug with checkboxes to include in the build.

http://www.yourwebsite.com/Image.aspx?i=logo&Id=YourReceipientsId

dim objReader as new system.IO.StreamReader(FILE_NAME)

Do while not EOF(1)

list1.text = names(a) & objReader.readline()
a=a+1
loop

objReader.close
call highscores

' Create an instance of StreamReader to read from a file.
Dim sr As StreamReader = New StreamReader("TestFile.txt")
Dim line As String
' Read and display the lines from the file until the end
' of the file is reached.
Do
    line = sr.ReadLine()
    Console.WriteLine(Line)
Loop Until line Is Nothing
sr.Close()

names = New List(Of String)
scores = New List(Of Integer)
Dim strFilename As String = Application.StartupPath & "\highscores.txt"
Dim srScores As New StreamReader(strFilename)
While Not srScores.EndOfStream
    Dim strRead As String = srSave.ReadLine
    ListBox1.Items.Add(strRead)
    Dim strSplit() As String = Split(strRead, ",")
    names.Add(strSplit(0))
    scores.Add(strSplit(1))
End While
srScores.Close()

names = New List(Of String)   ' vb doesn't like the new list of string? 
        scores = New List(Of Integer)
        Dim strFilename As String = Application.StartupPath & "\highscores.txt"
        Dim srScores As New StreamReader(strFilename)
        While Not srScores.EndOfStream
            Dim strRead As String = srSave.ReadLine
            ListBox1.Items.Add(strRead)
            Dim strSplit() As String = Split(strRead, ",")
            names.Add(strSplit(0))   ' doesnt like names.add?
            scores.Add(strSplit(1))
        End While
        srScores.Close()

New System.Collections.Generic.List(Of String)

names = New System.Collections.Generic.List(Of String)

Dim names = System.Collections.Generic.List(Of String)
names = New System.Collections.Generic.List(Of String)()

If you have knowledge, let others light their candles at it. 
Margaret Fuller (1810 - 1850)
<a href="http://www.codeproject.com/script/Articles/MemberArticles.aspx?amid=926797" target="_Blank">[My Articles]</a>  <a href="http://JacksonSoft.co.uk" target="_Blank">[My Website]</a> 

Imports System.IO

Public Class Form1
    Dim scores = New System.Collections.Generic.List(Of String)
    Dim names = New System.Collections.Generic.List(Of String)
    Dim test1(0 To 10) As String
    Dim test2(0 To 10) As Integer
    Dim userscore As Integer
    Dim username As String
    Dim a As Integer
    Dim b As Integer
    Dim i As Integer
    Dim strFilename As String = ("High Scores.txt")



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Call highscore()
        names = New System.Collections.Generic.List(Of String)
        scores = New System.Collections.Generic.List(Of Integer)
        Dim srScores As New IO.StreamReader(strFilename)
        While Not srScores.EndOfStream
            Dim strRead As String = srScores.ReadLine
            ListBox1.Items.Add(strRead)
            Dim strSplit() As String = Split(strRead, ",")
            names.Add(strSplit(0))
            scores.Add(strSplit(1))
        End While
        srScores.Close()


    End Sub

Private Sub comtest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comtest.Click
    username = Text1.Text
    userscore = Val(Text2.Text)
    For i = 1 To 10
        a = scores(i)
        If userscore >= a Then
            test1(i) = username
            test2(i) = userscore
            For b = i + 1 To 10
                test1(b) = names(b - 1)
                test2(b) = scores(b - 1)
            Next
            Call newscore()
            Exit Sub
        End If
        test1(i) = names(i)
        test2(i) = scores(i)
    Next
End Sub
Private Sub highscore()
    For i = 1 To 10
        ListBox1.Items.Add(names(i))
            List2.Items.Add(scores(i))
    Next
End Sub
Private Sub newscore()  ' write
    ListBox1.ClearSelected()
    List2.ClearSelected()
    For i = 1 To 10
        ListBox1.Items.Add(test1(i))
        List2.Items.Add(test2(i))
        names(i) = test1(i)
        scores(i) = test2(i)
    Next
    Dim objWriter As New System.IO.StreamWriter(highScoresFile)

    For i = 1 To 10
        objWriter.Write(names(i) & "," & scores(i))

    Next
    objWriter.Close()
End Sub

Dim scores(1 To 10) As Integer
Dim names(1 To 10) As String
Dim test1(1 To 10) As String
Dim test2(1 To 10) As Integer
Dim userscore As Integer
Dim username As String
Dim a As Integer
Dim b As Integer

Private Sub comtest_Click()
username = Text1.Text
userscore = Val(Text2.Text)
For i = 1 To 10
    a = scores(i)
    If userscore >= a Then
        test1(i) = username
        test2(i) = userscore
            For b = i + 1 To 10
                test1(b) = names(b - 1)
                test2(b) = scores(b - 1)
            Next
            Call newscore
            Exit Sub
    End If
    test1(i) = names(i)
    test2(i) = scores(i)
Next
End Sub

Private Sub Form_Load()
Open App.Path & "\files\high scores.txt" For Input As #1
a = 1
While Not EOF(1)
Input #1, names(a), scores(a)
a = a + 1
Wend
Close #1
Call highscore
End Sub
Private Sub highscore()
For i = 1 To 10
    List1.AddItem names(i)
    List2.AddItem scores(i)
Next
End Sub
Private Sub newscore()
List1.Clear
List2.Clear
For i = 1 To 10
    List1.AddItem test1(i)
    List2.AddItem test2(i)
    names(i) = test1(i)
    scores(i) = test2(i)
Next
Open App.Path & "\files\high scores.txt" For Output As #1
For i = 1 To 10
Print #1, names(i) & "," & scores(i)
Next
Close #1
End Sub