home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / os / mswindo / apps / 7451 < prev    next >
Encoding:
Text File  |  1993-01-23  |  3.2 KB  |  79 lines
  1. Newsgroups: comp.os.ms-windows.apps
  2. Path: sparky!uunet!portal!darla
  3. From: darla@shell.portal.com (Kuby Downs)
  4. Subject: Procom 4 Windows
  5. Message-ID: <C1At0q.4oo@unix.portal.com>
  6. Sender: news@unix.portal.com
  7. Nntp-Posting-Host: jobe
  8. Organization: Portal Communications Company
  9. X-Newsreader: TIN [version 1.1 PL7]
  10. Date: Sat, 23 Jan 1993 08:31:37 GMT
  11. Lines: 66
  12.  
  13. Hi Brad,
  14.  
  15. =>The messages come out double spaced no matter what we've tried.
  16.  
  17. Here is a script by Chuck Soper that works for me.
  18.  
  19. cut here---------------------------------------------------------------------------------
  20.  
  21. ; VIPASTE.WAS v 1.00  Paste function for Unix hosts
  22. ;****************************************************************************
  23. ;*                                                                          *
  24. ;* VIPASTE.WAS                                                              *
  25. ;* Copyright (C) 1992 Datastorm Technologies, Inc.                          *
  26. ;* All rights reserved.                                                     *
  27. ;*                                                                          *
  28. ;* Purpose:  Pastes the current contents of the Windows Clipboard to the    *
  29. ;*           terminal screen, stripping Line Feed characters.  This is      *
  30. ;*           especially useful on Unix system.                              *
  31. ;*                                                                          *
  32. ;* This ASPECT SCRIPT is intended only as a sample of ASPECT programming.   *
  33. ;* DATASTORM makes no warranty of any kind, express or implied, including   *
  34. ;* without limitation, any warranties of mechantability and/or fitness      *
  35. ;* for a particular purpose.  Use of this program is at your own risk.      *
  36. ;*                                                                          *
  37. ;* Author:  Chuck Spohr                                                     *
  38. ;*                                                                          *
  39. ;****************************************************************************
  40.  
  41. proc main
  42.    integer LFSetting
  43.  
  44.    cliptofile TEXT "\CLIPBRD.TMP"   ; Capture clipboard text to a file
  45.    fetch ascii upld_lf LFSetting    ; Store current value before changing
  46.    set ascii upld_lf STRIP          ; Set Linefeed Strip option
  47.    sendfile ascii "\CLIPBRD.TMP"    ; ASCII upload the file
  48.  
  49.    delfile "\CLIPBRD.TMP"           ; Clean up
  50.  
  51.    switch LFSetting                 ; Reset Line Feed traslation based on
  52.       case 0                        ; previously stored value
  53.          set ascii upld_lf STRIP
  54.       endcase
  55.       case 1
  56.          set ascii upld_lf CR_LF
  57.       endcase
  58.       case 2
  59.          set ascii upld_lf LF
  60.       endcase
  61.    endswitch
  62. endproc
  63. cut here--------------------------------------------------------------------------------------------------------
  64.  
  65. Just run this through the compiler and you should be all set. Works
  66. fine for me.
  67.  
  68.                ____    
  69.               /    \__                    Darla
  70.   |\         /    @   \
  71.   \ \_______|    \  .:|>     Portal: darla@shell.portal.com
  72.    \      ##|    | \__/              darla@cup.portal.com         
  73.     |    ####\__/   \           AOL: kuby2u@aol.com
  74.     /  /  ##       \|                darlaiam@aol.com
  75.    /  /__________\  \           WIX: darla   |GENIE: KUBY    
  76.    L_JJ           \__JJ   
  77.  
  78.  
  79.