bvstone

Removing Unwanted Characters from a String with RPG

Posted:

Removing Unwanted Characters from a String with RPG

Today I was working on a project where I needed to remove any special characters from a string.  In my case, I knew exactly what characters COULD be in the string.

I did a search and found a few examples, but most were using a list of invalid characters to replace them with a space, then trim out the spaces, or something of that nature.

In my case, I knew the characters I wanted to keep.  The solution was easier than expected.

D ValidChars      C                   CONST('ABCDEFGHIJKLMNOPQRSTUVWXYZ-            
D                                            abcdefghijklmnopqrstuvwxyz-            
D                                            0123456789-_ ')                        
 *                                                                                  
D tempString      S           1024                                                  
D i               S             10i 0                                               
 ****************************************************************                   
  tempString = 'B\&eca#use_^^& Road++==kill()';                                            
  i = %check(validChars:tempString);                                                
                                                                                    
  dow (i > 0);                                                                      
    tempString = %subst(tempString:1:i-1) + %subst(tempString:i+1);                 
    i = %check(validChars:tempString);                                              
  enddo; 

  *INLR = *ON;                                                                           

First, I defined a constant containing all the characters that were valid.  In this case it was A-Z, a-z, 0-9, _, - and space.

Then I simply used the %check BIF to check for any invalid characters in my string.  If I found one, I would substring two parts of the string together minus the one character that was invalid.

So when we started out with the string:
B\&eca#use_^^& Road++==kill()

We ended up with:
Because_ Roadkill

Pretty simply solution.  There most likely are other ways to handle this as well, but I thought I would share this example since the others I saw didn't really fit the bill.

Finally, you're probably wondering why I picked what I did for the test string.  Well, if you like car shows like me, check out RoadKill on YouTube Motortrend On Demand.  It's an excellent series from Motor Trend! 

Since cutting the cord at home and ditching DirecTV I've been forced to find replacements for my favorite shows, most of which were on Velocity (Bitchin Rides, etc).  I found the first two seasons of Roadkill on Netflix and the rest on YouTube.  Check it out!  I like the Rotsun and Stubby Bob the best.  :)


Last edited 04/07/2018 at 14:08:59



Latest Posts:

MAILTOOL Updated to Allow Failed Message on Invalid Recipient MAILTOOL Updated to Allow Failed Message on Invalid Recipient
Posted by May 20, 2018
BVSTools >> BVSTools Announcements >> eMail Tool (MAILTOOL) Specific Announcements
Non HTTPS Callbacks Removed from GreenTools for G Suite (G4G) Non HTTPS Callbacks Removed from GreenTools for G Suite (G4G)
Posted by April 15, 2018
BVSTools >> BVSTools Announcements >> GreenTools for G Suite (Google Apps) (G4G) Specific Announcements
IBM i Related Survey Available IBM i Related Survey Available
Posted by April 7, 2018
IBM Power Systems >> (QGPL) IBM i
BVSTools Releases Braintree Webhook Open Source Application - Node.js BVSTools Releases Braintree Webhook Open Source Application - Node.js
Posted by April 5, 2018
Programming >> Open Source
BVSTools Now Offering Web Services (BETA) BVSTools Now Offering Web Services (BETA)
Posted by April 3, 2018
BVSTools >> BVSTools Announcements
Creating a Reverse SSL Proxy Using RPG on the IBM i - Part 2 Creating a Reverse SSL Proxy Using RPG on the IBM i - Part 2
Posted by March 29, 2018
Programming >> Web Programming
Still on V7R1 or Earlier?  Here's Why You Should Upgrade NOW! Still on V7R1 or Earlier? Here's Why You Should Upgrade NOW!
Posted by February 21, 2018
IBM Power Systems >> (QGPL) IBM i
Converting a MMDDYY date format to YYMMDD for Sorting Using SQL Converting a MMDDYY date format to YYMMDD for Sorting Using SQL
Posted by February 16, 2018
Programming >> RPG Programming
Moving All Files from a Google Drive Folder to the Trash Using GreenTools for Google Apps (G4G) Moving All Files from a Google Drive Folder to the Trash Using GreenTools for Google Apps (G4G)
Posted by February 3, 2018
BVSTools >> BVSTools Software Discussion >> GreenTools for G Suite (Google Apps) (G4G) Specific Discussion
Removing Unwanted Characters from a String with RPG Removing Unwanted Characters from a String with RPG
Posted by February 2, 2018
Programming >> RPG Programming
GETURI Version 8.10 Released GETURI Version 8.10 Released
Posted by January 23, 2018
BVSTools >> BVSTools Announcements >> Get URI (GETURI) Specific Announcements
BVSTools is Now a Sponsor of ALLAS400S.com BVSTools is Now a Sponsor of ALLAS400S.com
Posted by January 17, 2018
BVSTools >> BVSTools Announcements
Service Pack SP171219 Released for G4PP v3.10 Service Pack SP171219 Released for G4PP v3.10
Posted by December 20, 2017
BVSTools >> BVSTools Announcements >> GreenTools for PayPal (G4PP) Specific Announcements
GETURI Now Requires Minimum OS of V7R1 or Higher GETURI Now Requires Minimum OS of V7R1 or Higher
Posted by December 12, 2017
BVSTools >> BVSTools Software Discussion >> Get URI (GETURI) Specific Discussion
Need Help Updating Your Software Versions?  We Can Help. Need Help Updating Your Software Versions? We Can Help.
Posted by December 8, 2017
BVSTools >> BVSTools Announcements

Reply




Copyright 1983-2018 BVSTools
GreenBoard(v3) Powered by the eRPG SDK, MAILTOOL Plus!, GreenTools for Google Apps, jQuery, jQuery UI, BlockUI, CKEditor and running on the IBM i (AKA AS/400, iSeries, System i).