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:

How to Whitelist GreenTools for G Suite (G4G) For Your Organization How to Whitelist GreenTools for G Suite (G4G) For Your Organization
Posted by November 5, 2023
BVSTools >> BVSTools Software Discussion >> GreenTools for G Suite (Google Apps) (G4G) Specific Discussion
QuickBooks Online Releases QuickBooks Online Releases "New Invoices!"... and It's Terrible!
Posted by October 8, 2023
QuickBooks >> QuickBooks Online
Admin/4i - What is it? Admin/4i - What is it?
Posted by September 30, 2023
Vendor Corner >> MSD Information Technology
BVSTools Releases Send Job Log to BVSTools (SNDLOG2BVS) Command BVSTools Releases Send Job Log to BVSTools (SNDLOG2BVS) Command
Posted by August 28, 2023
BVSTools >> BVSTools Announcements
MAILTOOL Now Allows Email Redirection for Development and Testing MAILTOOL Now Allows Email Redirection for Development and Testing
Posted by May 27, 2023
BVSTools >> BVSTools Announcements >> eMail Tool (MAILTOOL) Specific Announcements
GreenTools for Microsoft Apps (G4MS) Now Supports Footers When Sending Email GreenTools for Microsoft Apps (G4MS) Now Supports Footers When Sending Email
Posted by March 29, 2023
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
QuickBooks Online - Subtotals and Discounts Frustration QuickBooks Online - Subtotals and Discounts Frustration
Posted by March 16, 2023
QuickBooks >> QuickBooks Online
Making the Switch From QuickBooks Desktop to QuickBooks Online - No Picnic Making the Switch From QuickBooks Desktop to QuickBooks Online - No Picnic
Posted by March 16, 2023
QuickBooks >> QuickBooks Online
BVSTools Software Verified on V7R5 and Power10 BVSTools Software Verified on V7R5 and Power10
Posted by December 9, 2022
BVSTools >> BVSTools Announcements
Microsoft Office 365 Servers and Random Errors Issue Microsoft Office 365 Servers and Random Errors Issue
Posted by November 14, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Sending/Resending Emails Using a MIME File with MAILTOOL Sending/Resending Emails Using a MIME File with MAILTOOL
Posted by November 8, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Sending an HTML Email on Your IBM i Using MAILTOOL Sending an HTML Email on Your IBM i Using MAILTOOL
Posted by November 1, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Transferring License Keys from One System to Another Transferring License Keys from One System to Another
Posted by October 31, 2022
BVSTools >> BVSTools Software Discussion
Calculating the Size of a File Before Base64 Encoding Calculating the Size of a File Before Base64 Encoding
Posted by August 13, 2022
Programming >> RPG Programming
GreenTools for Microsoft Apps (G4MS) v9.12 Now Includes Function to Send Emails using MIME File GreenTools for Microsoft Apps (G4MS) v9.12 Now Includes Function to Send Emails using MIME File
Posted by August 11, 2022
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements

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).