FileToString? StringToFile?

Question

hai... everyone who know how to convert the File to String? Actually my idea is doing this to transfer the file to another computer. So i convert the file (.text file or .exe file) to string and then send to another pc. After this the pc will received this string then convert the string to File... So i build up the protocol already but i dont know how to convert the file to string and the convert back from string to file.... anyone can help me..... thanks....

spock 0 · Answer

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

spock 0 · Answer

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

mibuyt · Answer

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.