FileToString? StringToFile?

Here is where I read the same variables back in. If these two examples are too big or complicated to easily understand, I suppose I could write a simpler program to just read a text file and write it back out ... 'MenuFileOpen - open an existing Saved file of Register values. Private Sub MFOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MFOpen.Click Dim nCount As Integer = 0 OpenFile.Filter = "Data files (*.dat)|*.dat" OpenFile.ShowDialog() 'display Open dialog box 'If Cancel button not selected, load File variable If OpenFile.FileName <> "" Then Try 'open file and trap any errors using handler FileOpen(1, OpenFile.FileName, OpenMode.Input) Do Until EOF(1) 'read lines from file 'add each Array element to its SaveArray element SaveArray(nCount) = LineInput(1) If nCount > 4 And nCount < 105 Then nRegStack(nCount - 5) = Double.Parse(SaveArray(nCount)) End If nCount = nCount + 1 Loop Catch MsgBox("Main.MFOpen: Error opening file. nCount=" & nCount.ToString & " XReg=" & XReg.Text) Finally FileClose(1) 'close file End Try FileName.Text = OpenFile.FileName 'update label sFile = OpenFile.FileName 'update default file nLastX = Double.Parse(SaveArray(0)) 'Update Stack sLastX = nLastX.ToString() nXVal = Double.Parse(SaveArray(1)) XReg.Text = nXVal.ToString() nYVal = Double.Parse(SaveArray(2)) YReg.Text = nYVal.ToString() nZVal = Double.Parse(SaveArray(3)) ZReg.Text = nZVal.ToString() nTVal = Double.Parse(SaveArray(4)) TReg.Text = nTVal.ToString() 'Update Program variables If SaveArray(105) = "True" Then 'nCount = 105 = lAllowBackSpace() lAllowBackSpace = True Else lAllowBackSpace = False End If Mode.Text = SaveArray(106) 'nCount = 106 = Mode.Text If Mode.Text = "HEX" Then 'CalcBase CalcBase = 16 Else CalcBase = 10 End If Select Case SaveArray(107) 'nCount = 107 = oLastInput Case "Cancel" oLastInput = Operation.Cancel Case "Disable" oLastInput = Operation.Disable Case "Enable" oLastInput = Operation.Enable Case "None" oLastInput = Operation.None Case "Operand" oLastInput = Operation.Operand Case "Operator" oLastInput = Operation.Operator Case "Register" oLastInput = Operation.Register Case Else oLastInput = Operation.None End Select nRegTmp1 = CDec(SaveArray(108)) '108 nRegTmp2 = CDec(SaveArray(109)) '109 End If End Sub

Here is code I use to save program variables which are all text strings. You should be able to convert it into something to save your text file: 'Save program variables Private Sub SaveData() Dim sender As System.Object Dim e As System.EventArgs 'Reset the XReg if in the middle of a Memory Register operation. If nRegCase <> 0 Then nRegCase = 0 XReg.Text = SaveArray(110) End If 'Strip off the numeric input cue if necessary If Mid(XReg.Text, Len(XReg.Text)) = "_" Then XReg.Text = Mid(XReg.Text, 1, Len(XReg.Text) - 1) End If If sLastX.Length = 0 Then nLastX = nXVal End If SaveArray(0) = nLastX.ToString() SaveArray(1) = XReg.Text SaveArray(2) = YReg.Text SaveArray(3) = ZReg.Text SaveArray(4) = TReg.Text FileName.Text = sFile SaveFile.FileName = FileName.Text 'Open FileName for Output FileOpen(1, SaveFile.FileName, OpenMode.Output) For nStart = 0 To 104 'Save Registers If nStart > 4 Then SaveArray(nStart) = nRegStack(nStart - 5).ToString End If PrintLine(1, SaveArray(nStart)) 'copy to disk Next nStart If lAllowBackSpace Then '105 PrintLine(1, "True") Else PrintLine(1, "False") End If PrintLine(1, Mode.Text) '106 Select Case oLastInput '107 Case Operation.Cancel PrintLine(1, "Cancel") Case Operation.Disable PrintLine(1, "Disable") Case Operation.Enable PrintLine(1, "Enable") Case Operation.None PrintLine(1, "None") Case Operation.Operand PrintLine(1, "Operand") Case Operation.Operator PrintLine(1, "Operator") Case Operation.Register PrintLine(1, "Register") Case Else PrintLine(1, "Unknown") End Select PrintLine(1, nRegTmp1.ToString) '108 PrintLine(1, nRegTmp2.ToString) '109 For nStart = 110 To 119 PrintLine(1, SaveArray(nStart)) 'Save the rest of the program variables Next For nStart = 120 To 159 'Save Extended Registers SaveArray(nStart) = nExtRegStack(nStart - 120).ToString PrintLine(1, SaveArray(nStart)) 'copy to disk Next nStart FileClose(1) 'close file End Sub

Hi, You can look into FileStream to open the text file, and use StreamReader to read the text file and slowly say convert to string. I am not sure about exe then. Hope it helps. Cheers.