-
Notifications
You must be signed in to change notification settings - Fork 1
/
DeleteQuote.prg
27 lines (17 loc) · 1.03 KB
/
DeleteQuote.prg
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
*-----------------------------------------------------------------------------*
#include "eib_hmg.ch"
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
FUNCTION DeleteQuote( xcString )
*-----------------------------------------------------------------------------*
xcString := ALLTRIM( STRTRAN( xcString , CHR( 34 ) , "" ) )
xcString := STRTRAN( xcString , CHR( 34 ) + CHR( 34 ) + CHR( 34 ) , "" )
xcString := STRTRAN( xcString , CHR( 34 ) + CHR( 34 ) , "" )
xcString := STRTRAN( xcString , CHR( 34 ) , "" )
xcString := STRTRAN( xcString , CHR( 160 ) , CHR ( 32 ) )
xcString := STRTRAN( xcString , CHR( 32 ) + CHR ( 32 ) , CHR ( 32 ) )
xcString := ALLTRIM( xcString )
RETURN xcString
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*