QB / QB64 Discussion Forum      Other Subforums, Links and Downloads
 

 Return to Index  

tested....

December 12 2011 at 12:27 PM
Anonymous  (no login)


Response to Just more grunt work, really...

 

CLS
'OPEN "xyz.txt" FOR INPUT AS #1
OPEN "xyz.htm" FOR OUTPUT AS #2
'DO UNTIL EOF(1)
'LINE INPUT #1, a$
IF RIGHT$(a$, 1) <> " " THEN a$ = a$ + " "
DO UNTIL INSTR(flag + 1, LCASE$(a$), "http") = 0
x = INSTR(flag + 1, LCASE$(a$), "http")
y = LEN(MID$(a$, INSTR(flag + 1, a$, "http"), INSTR(x, LCASE$(a$), " ") - x))
a$ = MID$(a$, 1, x - 1) + "<a href=" + CHR$(34) + MID$(a$, INSTR(flag + 1, a$, "http"), INSTR(x, LCASE$(a$), " ") - x) + CHR$(34) + ">" + MID$(a$, INSTR(flag + 1, a$, "http"), INSTR(x, LCASE$(a$), " ") - x) + "</a>" + MID$(a$, INSTR(x, LCASE$(a$), " "))
flag = x + 12 + y
'LOOP
PRINT #2, a$ + "<br />"
LOOP
CLOSE
SHELL "cmd /c start xyz.htm"


 
 Respond to this message   
 Copyright © 1999-2014 Network54. All rights reserved.   Terms of Use   Privacy Statement