home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / jsmutils.zip / pmm2jsm.cmd < prev    next >
OS/2 REXX Batch file  |  1998-05-30  |  1KB  |  61 lines
  1. /*
  2.   Some rexx to convert PMMail Addressbook entries
  3.   to JStreet Mailer
  4. */
  5.  
  6. separator = x'DE'
  7.  
  8. infile  = 'Addr.db'
  9. outfile = 'jstreet.adr'
  10.  
  11.  
  12. lineX  = "<TD></TD>"
  13. lineTR = "</TR>"
  14.  
  15. do while lines(infile)
  16.  addrline = linein(infile)
  17.  parse value addrline with email "▐" nickname "▐" realname "▐" flags
  18. /* say "Here's the stuff: "
  19.  say "  realname      : " realname
  20.  say "  email         : " email
  21.  say "  nickname      : " nickname */
  22.  
  23.  line1  = "<TR VALIGN=TOP>" 
  24.  line2  = "<TD><B>"||nickname||"</B></TD>"
  25.  line3  = "<TD>"||email||"</TD>"
  26.  line4  = "<TD>"realname"</TD>"
  27.  line5  = lineX
  28.  line6  = lineX
  29.  line7  = lineX
  30.  line8  = lineX
  31.  line9  = lineX
  32.  line10 = lineX
  33.  line11 = lineX
  34.  line12 = lineX
  35.  line13 = lineX
  36.  line14 = lineX
  37.  line15 = lineTR
  38.  
  39.  rc = lineout(outfile, line1)
  40.  rc = lineout(outfile, line2)
  41.  rc = lineout(outfile, line3)
  42.  rc = lineout(outfile, line4) 
  43.  rc = lineout(outfile, line5) 
  44.  rc = lineout(outfile, line6) 
  45.  rc = lineout(outfile, line7) 
  46.  rc = lineout(outfile, line8) 
  47.  rc = lineout(outfile, line9) 
  48.  rc = lineout(outfile, line10) 
  49.  rc = lineout(outfile, line11) 
  50.  rc = lineout(outfile, line12) 
  51.  rc = lineout(outfile, line13) 
  52.  rc = lineout(outfile, line14) 
  53.  rc = lineout(outfile, line15) 
  54.  
  55. end
  56.  
  57. return
  58.  
  59.  
  60.  
  61.