Versions des environnements
Network:
Windows 2000 Server
Thank you for the information. We are currently blanking out the TAG and TAG2 fields. We are also modifying the EXPR field, replacing various values. The code we are using is overkill, but it is in place to fix a prior error.
IF '***DUPLEX' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "***DUPLEX", "*DUPLEX")
ENDIF
IF '***DEVICE' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "***DEVICE", "*DEVICE")
ENDIF
IF '***DRIVER' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "***DRIVER", "*DRIVER")
ENDIF
IF '***OUTPUT' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "***OUTPUT", "*OUTPUT")
ENDIF
IF '***DEFAULT' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "***DEFAULT", "*DEFAULT")
ENDIF
IF '***PRINTQUALITY' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "***PRINTQUALITY", "*PRINTQUALITY")
ENDIF
IF '***YRESOLUTION' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "***YRESOLUTION", "*YRESOLUTION")
ENDIF
IF '***TTOPTION' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "***TTOPTION", "*TTOPTION")
ENDIF
IF '**DUPLEX' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "**DUPLEX", "*DUPLEX")
ENDIF
IF '**DEVICE' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "**DEVICE", "*DEVICE")
ENDIF
IF '**DRIVER' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "**DRIVER", "*DRIVER")
ENDIF
IF '**OUTPUT' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "**OUTPUT", "*OUTPUT")
ENDIF
IF '**DEFAULT' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "**DEFAULT", "*DEFAULT")
ENDIF
IF '**PRINTQUALITY' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "**PRINTQUALITY", "*PRINTQUALITY")
ENDIF
IF '**YRESOLUTION' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "**YRESOLUTION", "*YRESOLUTION")
ENDIF
IF '**TTOPTION' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "**TTOPTION", "*TTOPTION")
ENDIF
IF '*DEVICE' $ Expr
ELSE
REPLACE Expr WITH STRTRAN(Expr, "DEVICE", "*DEVICE")
ENDIF
IF '*DRIVER' $ Expr
ELSE
REPLACE Expr WITH STRTRAN(Expr, "DRIVER", "*DRIVER")
ENDIF
IF '*OUTPUT' $ Expr
ELSE
REPLACE Expr WITH STRTRAN(Expr, "OUTPUT", "*OUTPUT")
ENDIF
IF '*DEFAULT' $ Expr
ELSE
REPLACE Expr WITH STRTRAN(Expr, "DEFAULT", "*DEFAULT")
ENDIF
IF '*PRINTQUALITY' $ Expr
ELSE
REPLACE Expr WITH STRTRAN(Expr, "PRINTQUALITY", "*PRINTQUALITY")
ENDIF
IF '*YRESOLUTION' $ Expr
ELSE
REPLACE Expr WITH STRTRAN(Expr, "YRESOLUTION", "*YRESOLUTION")
ENDIF
IF '*TTOPTION' $ Expr
ELSE
REPLACE Expr WITH STRTRAN(Expr, "TTOPTION", "*TTOPTION")
ENDIF
IF '*DUPLEX' $ Expr
ELSE
REPLACE Expr WITH STRTRAN(Expr, "DUPLEX", "*DUPLEX")
ENDIF
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement