7 replies to this topic

[Blimp]

Okay so I wont tell you exactly what im doing as it's kind of a secret..

My program is going to open up a text file into a textbox..I then want the program to change my.settings according to the colour. For example, setting1 is line1 of the textbox, setting2 is line2 of the textbox.
Here's my text file

brown
green
yellow
orange

so what I want it to do is assign a line to a setting. Line 1 for setting1, line 2 for setting2. And so on, I need it so it saves the line as the setting. So if line 1 = brown then setting1 = brown.
Could somebody please help me out a bit here?

Thanks a bunch!

[Vswe]

You can either split the string at each line and add each line to the correct setting or you can use IO.File.ReadAllLines to get a string already. Or is the problem that you doesn't know from the beginning how many settings you need?

[Blimp]

What I'm looking for is a code that will pick out each line. I want it to assign a line to a setting. Obviously line 1 will be setting1 and line 2 is setting 2. I just dont know how to do this?

[Vswe]

But what part doesn't you know? Do you know how to get it line by line? Or do you know how to assign the values to settings?

[Blimp]

I don't know both. I haven't really worked with streamreader before. So I'm a bit stuck :\

[Vswe]

I guess something like this could work, I haven't tried it though.

Open File and Saving the settings:

Dim content() As String = IO.File.ReadAllLines("C:\example\example.txt")
        For i As Integer = 0 To content.GetUpperBound(0)
            SaveSetting("myAppName", "Settings", "Setting" & i + 1, content(i))
        Next

Loading the settings (and here showing them in a messagebox each):

Dim settingCount As Integer = 1
        Dim content As String
        Do
            content = GetSetting("myAppName", "Settings", "Setting" & settingCount)
            If content <> "" Then
                MsgBox(content)
                settingCount += 1
            End If

        Loop Until content = ""

[blindtrevor]

How about domething like this...?

Imports System.IO

Public Class Form1


Dim FileReader As StreamReader
Dim fileLocation As String = "c:\text.txt"


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     If My.Computer.FileSystem.FileExists(fileLocation) Then
            FileReader = New StreamReader(fileLocation)
            Dim strLine As String
            Do
                strLine = FileReader.ReadLine
                If strLine <> Nothing Then
                    My.Settings.Setting1 = strLine
                    My.Settings.Save()
                End If
            Loop While strLine <> Nothing
            FileReader.Close()
        End If
End Sub
End Class

[blindtrevor]

Hmmm... actually - this will just save each line to Setting1... Hmmmm?

How about domething like this...?

Imports System.IO

Public Class Form1


Dim FileReader As StreamReader
Dim fileLocation As String = "c:\text.txt"


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     If My.Computer.FileSystem.FileExists(fileLocation) Then
            FileReader = New StreamReader(fileLocation)
            Dim strLine As String
            Do
                strLine = FileReader.ReadLine
                If strLine <> Nothing Then
                    My.Settings.Setting1 = strLine
                    My.Settings.Save()
                End If
            Loop While strLine <> Nothing
            FileReader.Close()
        End If
End Sub
End Class