------
word1
word2
..ect..
-------
this code only give me the "word1" and not the others:
Code: Select all
OPEN file$ FOR INPUT AS #1
INPUT #1, word$
CLOSE
Thanks in advance!
Code: Select all
OPEN file$ FOR INPUT AS #1
INPUT #1, word$
CLOSE
Code: Select all
OPEN "FILE.txt" FOR INPUT AS #1
SPACER$ = " " 'Put whatever spacer you want between words here....
Word$ = ""
DO
IF EOF(1) = -1 THEN EXIT DO
INPUT #1, word1$
Word$ = Word$ + word1$ + SPACER$
LOOP
'do code to take off that last space here if you want to....
CLOSE #1
Code: Select all
'Given that HTML$ is loaded from HTM file
'HTML won't load into QB...
cont = 0
DO
cont = cont + 1
IF cont = LEN(HTML$) THEN PRINT "Not HTML File ": END
IF MID$(UCASE(HTML$), cont, 5) = "<HTML>" EXIT DO
LOOP
DO
cont = cont + 1
IF cont = LEN(HTML$) THEN PRINT " No <tag>s located " : END
IF MID$(UCASE$(HTML$), cont, 5) = "<HEAD>" THEN CALL Headread
IF MID$(UCASE$(HTML$), cont, 3) = "<P>" THEN CALL Pararead
IF MID$(UCASE$(HTML$), cont, 6) = "</HTLM>" THEN END
LOOP
Code: Select all
String$ = ""
count = 0 'make sure this is long BTW
DO
count = count + 1
String$ = String$ + "A"
LOOP
Code: Select all
number = number + 1
highestnumber = infinity
DO
number = number + 1
IF number = highestnumber THEN highestnumber = highestnumber + 1
LOOP UNTIL sunexploads = 1