home *** CD-ROM | disk | FTP | other *** search
/ Super Net 1 / SUPERNET_1.iso / PC / OTROS / EXTRAS / WINWAIS / UTIL / CVTSRC.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-09-16  |  1.7 KB  |  46 lines
  1. CLEAR (50000)
  2. OPEN "allsrc.txt" FOR INPUT AS 1
  3. OPEN "allsrc.src" FOR OUTPUT AS 2
  4. WHILE NOT EOF(1)
  5.   LINE INPUT #1, rec$
  6.   IF LEFT$(rec$, 10) = "::::::::::" THEN
  7.     LINE INPUT #1, title$
  8.     title$ = LEFT$(title$, LEN(title$) - 4)
  9.     LINE INPUT #1, rec$
  10.   ELSE
  11.     IF INSTR(LCASE$(rec$), ":ip-name") AND ipnumberfound = 0 THEN
  12.       c1 = INSTR(rec$, CHR$(34))
  13.       c2 = INSTR(c1 + 1, rec$, CHR$(34))
  14.       IF c2 = 0 THEN
  15.         c2 = LEN(RTRIM$(rec$))
  16.       END IF
  17.       server$ = LTRIM$(MID$(rec$, c1 + 1, c2 - c1 - 1))
  18.     ELSEIF INSTR(LCASE$(rec$), ":ip-address") THEN
  19.       c1 = INSTR(rec$, CHR$(34))
  20.       c2 = INSTR(c1 + 1, rec$, CHR$(34))
  21.       IF c2 = 0 THEN
  22.         c2 = LEN(RTRIM$(rec$))
  23.       END IF
  24.       server$ = LTRIM$(MID$(rec$, c1 + 1, c2 - c1 - 1))
  25.       ipnumberfound = 1
  26.     ELSEIF INSTR(LCASE$(rec$), ":tcp-port") > 1 THEN
  27.       i = INSTR(LCASE$(rec$), ":tcp-port") + 9
  28.       port = VAL(MID$(rec$, i, 70))
  29.     ELSEIF INSTR(LCASE$(rec$), ":database-name") THEN
  30.       c1 = INSTR(rec$, CHR$(34))
  31.       c2 = INSTR(c1 + 1, rec$, CHR$(34))
  32.       IF c2 = 0 THEN
  33.         c2 = LEN(RTRIM$(rec$))
  34.       END IF
  35.       database$ = LTRIM$(MID$(rec$, c1 + 1, c2 - c1 - 1))
  36.     ELSEIF INSTR(LCASE$(rec$), ":description") THEN
  37.       PRINT database$; port; server$; " "; LEFT$(title$, 4); " "; title$
  38.       PRINT #2, database$; port; server$; " "; LEFT$(title$, 4); " "; title$
  39.     END IF
  40.   END IF
  41. WEND
  42. CLOSE
  43. END
  44.                                                                                                                                                                                                                                                                                                          
  45.  
  46.