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:

G4MSMAIL Now Allows Wildcard Attachments G4MSMAIL Now Allows Wildcard Attachments
Posted by June 10, 2021
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
G4G Update for Uploading Large Files G4G Update for Uploading Large Files
Posted by May 28, 2021
BVSTools >> BVSTools Announcements >> GreenTools for G Suite (Google Apps) (G4G) Specific Announcements
Can We Purchase License Keys for More Than One Year at a Time? Can We Purchase License Keys for More Than One Year at a Time?
Posted by May 21, 2021
BVSTools >> BVSTools Announcements
JOBWATCH 5.10 Released with New Feature to Monitor CPU Percentages JOBWATCH 5.10 Released with New Feature to Monitor CPU Percentages
Posted by May 10, 2021
BVSTools >> BVSTools Announcements >> Job Watch (JOBWATCH) Specific Announcements
Iseries Access data transfer Iseries Access data transfer
Posted by April 29, 2021
IBM Power Systems >> (QGPL) IBM i
YAJL - Parsing YAJL - Parsing
Posted by April 4, 2021
Programming >> RPG Programming
Create LPAR partition and install OS Create LPAR partition and install OS
Posted by March 24, 2021
IBM Power Systems >> (QGPL) IBM i
G4MS Now Allows User/Password Authentication Option G4MS Now Allows User/Password Authentication Option
Posted by March 16, 2021
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
IPDS printer file using CHRSIZ IPDS printer file using CHRSIZ
Posted by February 25, 2021
Programming >> RPG Programming
How to Correctly Send the Display Machine Information (DSPMCHINF) Data to BVSTools for Key Generation How to Correctly Send the Display Machine Information (DSPMCHINF) Data to BVSTools for Key Generation
Posted by February 9, 2021
BVSTools >> BVSTools Software Discussion
G4MS Updated to v7.10 - Required Update for All G4MS Users G4MS Updated to v7.10 - Required Update for All G4MS Users
Posted by November 12, 2020
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
MAILTOOL Errors with Microsoft Office 365 (2020) MAILTOOL Errors with Microsoft Office 365 (2020)
Posted by September 3, 2020
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Using MAILTOOL With Office 365 and Two Factor Authentication (2FA or MFA) Using MAILTOOL With Office 365 and Two Factor Authentication (2FA or MFA)
Posted by August 17, 2020
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Updating DNS With Dynamic IP Addresses After a Router Reboot/Power Outage Updating DNS With Dynamic IP Addresses After a Router Reboot/Power Outage
Posted by August 16, 2020
Programming >> Proof of Concept (POC)
GETURI v10.10 Released with New ILE Functions GETURI v10.10 Released with New ILE Functions
Posted by August 12, 2020
BVSTools >> BVSTools Announcements >> Get URI (GETURI) 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).