How to enter data by keyboard and saved to a text file and load it to another progra

[Mike Armstrong]

I am going from gwbasic to vb 6. I want to enter data from one program to be read from a second program.
The data now looks like this

A line
122,43/34/49,23,97,69,56,45,89,872,3444,1,866666,643434,
87,88777,333222,6555,223,65542,755,4,34,34,276,55, 988,456545,7664,12,54,99

Another line

123,413/35/09,27,7,669,46,75,09,72,9744,1,861119,6466114,
67,89857,54382,65,22,62,76545,74,36,64,266,55,988, 456545,7664,12,54,99

I could also use a list of all terms used in the programing of v basic 6 and .net

[Guido Geurs]

Please can you give more specifications?
- What do you want to do in VB6 with the data?
- is the original file a x.TXT file (ASCII)?
- What do you want as output : x.TXT (ASCII)?
Is it possible to attach in Bytes a demo file of the data (input and output) ?
A screencapture of the GWbasic program?

[Mike Armstrong]

I want to input it from the keyboard to add the date line to the file. It will look just like the line listed in my question. This is for the first program. The second program will input all the lines store them in an array do some fuzzy math (lol) and output the data to another file.

[Guido Geurs]

Questions:
Q1 - do you want to input the data "line by line" or a hole text (multiple lines) at once?
Q2 - must the data in the array be split on each comma ?
Q3 - has each line 31 data's ?

Attached is a demo of the programs

[Liaibbops]

http://humoror.ru Буратино несем в ожоговый.2423... Сборник анекдотов

[Mike Armstrong]

Yes it will have 31 + data's in the input. they will be pulled out as 31 indepentent values. I think I got it but would liketo learn more way to do it.

[Guido Geurs]

In my previous mail I have attached an example with the code for saving text to a file =

Private Sub ComAddToFile_Click()
Dim OUTPUTFN As Integer '§ filenumber
   OUTPUTFN = FreeFile '§ asign a free number to the variable
   On Error GoTo ErrWriting '§ jump out sub  if there is an error
   Open App.Path & "\Data.txt" For Append As #OUTPUTFN '§ openthe file "data.txt" in the home folder of the program
      Write #OUTPUTFN, Text1.Text '§ append the text from Text1
   Close #OUTPUTFN '§ close the file
Exit Sub
ErrWriting:
   Close #OUTPUTFN '§ close the file
   MsgBox ("There is an error writing the Data file !") '§ show a message
End Sub

This is how to open the datafile and put the data in an array=

Private Sub Form_Load()
Dim FILEIN As Integer '§ variable for filenumber
Dim INPUTDATA As String '§ variable for holding inputdata
   ReDim ARRAYDATA(0)
   FILEIN = FreeFile '§ variable = a free number
   On Error GoTo Error_Loading '§ exit sub if error loading file
   Open App.Path & "\data.txt " For Input As #FILEIN '§ open file with data
      Do While Not EOF(FILEIN) '§ loop through the file until "end of file"
         ReDim Preserve ARRAYDATA(UBound(ARRAYDATA) + 1) '§ add 1 line to the array
         Input #FILEIN, INPUTDATA '§ read next line in the file
         ARRAYDATA(UBound(ARRAYDATA)) = INPUTDATA '§ enter data in the array
      Loop
   Close #FILEIN '§ close the file
Exit Sub
Error_Loading:
   Close #FILEIN '§ close the file
   MsgBox ("Error loading !") '§ show a message
End Sub

PS: Attached is the demo

[senncom]

ya its working thank you