[RESOLVED] Input values from text file

[Nightwalker83]

Hi,

How would I achieve the some outcome here but with a text file instead of an ini file?

This is what I have tried but the input into the program does not work.

Dim start As String
Public Sub WData(settings As String)
  ff = FreeFile
  start = frmMain.chkStartup.Value
  cap = frmMain.chkStartup.Caption
  Open settings For Output As #ff
  Print #ff, "[Load]" & vbCrLf & cap & " = " & start
  Close #ff
End Sub
 
    Public Sub RData(settings As String)
       ff = FreeFile
        Dim tmpString()  As String
       Open settings For Input As #ff
       Do Until EOF(ff)
       Input #ff, entry
       tmpString = Split(entry, " ")
        If UBound(tmpString) = 0 Or UBound(tmpString) = 1 Then frmMain.chkStartup.Value = entry
       Loop
       Close #ff
    End Sub

Thanks,


Nightwalker