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:

What Objects Should I Omit from Replication to Ensure My License Keys Work on my HA/DR System? What Objects Should I Omit from Replication to Ensure My License Keys Work on my HA/DR System?
Posted by June 27, 2022
BVSTools >> BVSTools Software Discussion
GreenTools for Google Apps (G4G) v15.00 Now Offers Functions to Bypass Registration Command and BVSTools Landing Page GreenTools for Google Apps (G4G) v15.00 Now Offers Functions to Bypass Registration Command and BVSTools Landing Page
Posted by May 3, 2022
BVSTools >> BVSTools Announcements >> GreenTools for G Suite (Google Apps) (G4G) Specific Announcements
How Do I Switch From MAILTOOL Plus to GreenTools for Google or Microsoft Office 365? How Do I Switch From MAILTOOL Plus to GreenTools for Google or Microsoft Office 365?
Posted by April 18, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
PTFs Issued for SSL/TLS Issues PTFs Issued for SSL/TLS Issues
Posted by March 12, 2022
IBM Power Systems >> PTF Watch
Google Dropping Support for Google Dropping Support for "Less Secure Apps" May 30th, 2022. What Does This Mean for Your IBM i Email?
Posted by March 4, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Have You Installed a New Version of MAILTOOL and Now Things Are Acting Different?  Check the Command Defaults! Have You Installed a New Version of MAILTOOL and Now Things Are Acting Different? Check the Command Defaults!
Posted by February 28, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Using MAILTOOL Plus on V7R1, or Any OS Using TLS 1.1 or Older Using MAILTOOL Plus on V7R1, or Any OS Using TLS 1.1 or Older
Posted by January 27, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
BVSTools ILE Functions Being Updated to Remove Hashtag (#) from Function Names BVSTools ILE Functions Being Updated to Remove Hashtag (#) from Function Names
Posted by December 30, 2021
BVSTools >> BVSTools Announcements
GETURI v12.00 Released Removing Beginning # (Hashtag) From Function Names GETURI v12.00 Released Removing Beginning # (Hashtag) From Function Names
Posted by December 28, 2021
BVSTools >> BVSTools Announcements >> Get URI (GETURI) Specific Announcements
Is any of BVSTools Software Affected by the log4j exploit? Is any of BVSTools Software Affected by the log4j exploit?
Posted by December 20, 2021
BVSTools >> BVSTools Software Discussion
GreenTools for Microsoft Apps (G4MS) Updated to Allow Downloads, Deletes, and Sharing of Files GreenTools for Microsoft Apps (G4MS) Updated to Allow Downloads, Deletes, and Sharing of Files
Posted by December 17, 2021
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
SSL Handshake Errors with GETURI, MAILTOOL and GreenTools Products SSL Handshake Errors with GETURI, MAILTOOL and GreenTools Products
Posted by October 18, 2021
BVSTools >> BVSTools Software Discussion
MAILTOOL Updated to Retry Sending when GSK SSL Handshake Error 415 (GSK_ERROR_BAD_PEER) is Encountered MAILTOOL Updated to Retry Sending when GSK SSL Handshake Error 415 (GSK_ERROR_BAD_PEER) is Encountered
Posted by August 19, 2021
BVSTools >> BVSTools Announcements >> eMail Tool (MAILTOOL) Specific Announcements
MAILTOOL Updated to Allow List-Unsubscribe and User Defined Headers MAILTOOL Updated to Allow List-Unsubscribe and User Defined Headers
Posted by August 13, 2021
BVSTools >> BVSTools Announcements >> eMail Tool (MAILTOOL) Specific Announcements
AWS signing process in as400 AWS signing process in as400
Posted by August 13, 2021
Programming >> Web Programming

Reply




Copyright 1983-2020 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).