You can also do it this way:

by Solitaire (Login Solitaire1)
S

 
Enter the data into arrays first, then copy the arrays to a text file. Run this program and see how it works. If you use
OPEN "mike2.txt" FOR APPEND AS #1

instead of
OPEN "mike2.txt" FOR OUTPUT AS #1

then it will add on new data to the end of the old file instead of starting all over. Try it both ways. Here is the program to try:

===========================================================================

DIM x, z, n AS INTEGER, mydata, E AS STRING
DIM index1, index2, index3 AS STRING
CLS
n = 4   'this can be 21 or any number
PRINT "There are"; n; "nations to list."
DIM nation(1 TO n) AS STRING
DIM jets(1 TO n) AS INTEGER
DIM tanks(1 TO n) AS INTEGER
' You would need a separate array for each data item
PRINT
FOR x = 1 TO n
    PRINT "Index #"; x
    INPUT "Enter the nation:  ", nation$(x)
    INPUT "Enter number of jets:  ", mydata$
    jets(x) = VAL(mydata$)
    INPUT "Enter number of tanks:  ", mydata$
    tanks(x) = VAL(mydata$)
    ' Continue listing all of the arrays inside the FOR loop
    PRINT
NEXT x
INPUT "Press Enter to continue...", E$
CLS
PRINT "Now save the arrays to a text file."
OPEN "mike2.txt" FOR OUTPUT AS #1
FOR x = 1 TO n
    WRITE #1, nation$(x)
    WRITE #1, jets(x)
    WRITE #1, tanks(x)
    'Continue with all the arrays
NEXT x
CLOSE #1
PRINT "Then print them all out."
PRINT
OPEN "mike2.txt" FOR INPUT AS #1
z = 0
DO WHILE NOT EOF(1)
    INPUT #1, mydata$
    PRINT mydata$
    'It will continue inputting and printing all the data in your text file  
LOOP
CLOSE #1
PRINT
INPUT "Press Enter to continue...", E$
CLS
PRINT "You can print it this way instead:"
PRINT
OPEN "mike2.txt" FOR INPUT AS #1
DO WHILE NOT EOF(1)
    INPUT #1, index1$, index2$, index3$
    PRINT "Nation:  "; index1$
    PRINT "Jets:  "; index2$
    PRINT "Tanks:  "; index3$
    PRINT
LOOP
CLOSE #1
END

Posted on Jan 4, 2010, 9:12 PM

Respond to this message   

Return to Index

Response TitleAuthor and Date
is there any way to... on Jan 5
 Your using output to edit..unseenmachine on Jan 5
 How to edit a text file:Solitaire on Jan 5
  thanks again solitaire! on Jan 6
   You're very welcome.Solitaire on Jan 6

 Copyright © 1999-2014 Network54. All rights reserved.   Terms of Use   Privacy Statement